Programy si nevystačí pouze s tím, co je pevně dáno. Občas je potřeba něco vypočítat, něco zjistit od uživatele, něco spočítat. A údaje si pamatovat. K tomu slouží proměnné — vlastně kousek paměti, který se nějak jmenuje a obsahuje data určitého typu. Typy dat v Pascalu jsou následující:
Type | Popis | Rozsah |
---|---|---|
Integer | Celé číslo | -32 768 až 32 767 |
Real | Desetinné číslo | |
Boolean | Logická hodnota | True(=ano), False(=ne) |
Char | Znak | |
String | Text, více znaků | 0..255 znaků |
Byte | Celé kladné číslo | 0..255 |
Word | Celé kladné číslo | 0..65 535 |
ShortInt | Celé číslo | -128..127 |
LongInt | Celé číslo | -2 147 483 648..2 147 483 647 |
Set | Množina | |
Array[x..x]of.. | Pole | |
Record | Záznam | |
Pointer | Směrník |
Proměnné se definují na začátku programu v části nadepsané:
Var i: Integer; {i je celé číslo} S: String; {S je text} a, b: Real; {a i b jsou desetinná čísla} Jmeno: String; {Jméno je text}
S proměnnými lze v programu provádět různé operace:
i:= 1; {Nastav i na jedničku} a:= 15; {Do a dej 15} b:= a+i; {Do b ulož výsledek a+i} a:= b*a; {vynásob a×b a ulož do a}Znaky := znamenají přiřazení.
Obvyklé operace s čísly:
součet | a:= b + c; |
rozdíl | a:= b - c; |
součin | a:= b * c; |
podíl | a:= b / c; |
celočíselné dělení | a:= b mod c; |
zbytek | a:= b div d; |
Celočíselné proměnné najdou své využití, chceme–li něco několikrát opakovat (třeba patnáctkrát). K naprogramování opakování slouží cyklus. For přiřazení to konec do příkaz
For i:=1 to 15 do WriteLn('Opakuji ti to!'); For i:=0 to 7 do Begin Write(i); WriteLn(' Ahoj'); end;Příklad:
Program Duha; { Duha program vypisuje zadané jméno v 16 barvách } Uses CRT; Var i : Integer; { Celé číslo } Jmeno: String; { Text = řetězec znaků } Uloz : Byte; { Číslo 0..255 } Begin ClrScr; { Smazat obrazovku } WriteLn('Duhové jméno'); { Nadpis programu } WriteLn('------------'); WriteLn; Write('Napis své jméno: '); { Zadání jména } Readln( Jmeno ); Uloz:= TextAttr; { Zapamatovat si staré nastavení barev } For i:=1 to 15 do { Opakuj patnáctkrát..} Begin { Začátek toho, co se má opakovat } TextColor( i ); WriteLn( i:2,' ', Jmeno ); end; { Konec opakovaně části} TextAttr:= Uloz; { Obnovit původní nastavení barev } WriteLn; Readln; End.
seznam unit, např.: CRT, DOS; |
definice konstant, např.: PREZIDENT = 'Václav Havel'; LUDOLF = 3.1415926538; |
definice typů, např.: Osoba = Record .... end; |
definice proměnných, např.: i: Integer; Jmeno: String; |
Const... Type... Var... Procedure PodProc( prom: typ ); Function PodFunc( prom: typ ): typ; Begin End; |
Const Type Var Procedure PodProc( prom: typ ); Function PodFunc( prom: typ ): typ; Begin End; |
|
|