2 Ukázkový program

program opukaz.pas

program VetsiCislo ( Input, Output );

var A, B : Integer;

begin

Write ( 'Urceni vetsiho cisla ' );

Write ( 'Zadejte dve cisla ' );

Read ( A, B );

if A > B then

Write ( 'vetsi je ', A )

else

Write ( 'vetsi je ', B );

end.

hlavička

deklarace proměnných

tělo bloku (příkazy - commands)

2.1 co by se mohlo hodit?

clrscr - smaže obrazovku
delay (milisec) - čeká počet milisekund
čekání na stisk klávesy (viz. VT21):

repeat until keypressed; {PC čeká na stisk libovolné klávesy - aby zůstal vidět výsledek na obrazovce}

uses crt - použití unity CRT, obsahující tyto příkazy - musí být ještě před deklarací var
příklad použití (viz. VT21):

program Prumer;
uses crt; {nutné proto, aby fungoval příkaz "repeat until keypressed"}
var Soucet,Cislo : Real;
Pocet : Integer;
begin
clrscr; {smaže na začátku obrazovku - aby nezůstával text z předchozích aplikací}

používáš-li editor v prostředí Windows, je nutno volat unitu wincrt:

program Prumer;
uses wincrt; {nutné proto, aby fungoval příkaz "repeat until keypressed"}

2.2 cvičení 1:

upravte program opukaz:
- program nejdříve smaže obrazovku,
- pak se zeptá na první číslo, po jeho zadání poděkuje,
- zeptá se na druhé číslo,
- obě zadaná čísla zobrazí s vhodným textem,
- pak vypíše větu "Byla zadána čísla ....., větší z nich je....., menší je....."

2.3 cvičení 2:

upravte program opukaz, verzi ze cvičení 1, tak, aby program řešil situaci, kdy by byla zadána dvě stejná čísla

2.4 Šablona programu

program název;
uses crt; {nutné proto, aby fungoval příkaz "repeat until keypressed"}
uses wincrt; {v prostředí Windows}

var  proměnná 1, proměnná 2 : Real;
      proměnná 3, proměnná 4   : Integer;
begin
   clrscr; {smaže na začátku obrazovku - aby nezůstával text z předchozích aplikací}

delay (1000); {<- počká 1 sekundu}

write ('stiskni cokoli a program skončí');

repeat until keypressed;

{PC čeká na stisk libovolné klávesy - aby zůstal vidět výsledek na obrazovce}

end.

<-předchozí

další->

aktualizace: 27.11.2003 17:33:29