Pascal

Turbo Pascal

Základní příkazy v Turbo Pascalu   

Rozhodl jsem se na toto místo vložit pár základních příkazů Pascalu pro ty, co tomu rozumí asi tolik jako já před pár týdny. Dnes to není o moc lepší, ale alespoň základ snad zvládnu.

1. Základní struktura programu

program Pokus;    
 definice a deklarace
begin
 vlastní algoritmus
end.

2. Deklarace a definice

a) uses crt,dos;
b) const x=10;
              y=1;
              s='Honza';
c) type
d) var i,j:integer;
          s1:string;
e) procedure ; function

3. Datové typy

byte                0..255
integer           -32768..32768
longint            -2³¹..2³¹
real                -10³⁸..10³⁸
word            0..65535
char               znaky ASCII, bere jen jeden, nebo žádný
string             žádný až 255 znaku ASCII
boolean          pravda nebo nepravda (TRUE/FALSE)

4. Přiřazovací příkaz

proměnná  x:=výraz (mat. operace ve výrazu  + - / *)
například   x:=1+2;
nebo         x:=y+8;
nebo         x:=(x+3)/2;

DIV - dělení
MOD - zbytek po dělení

například   v:=11 DIV 2
                z:=11 MOD 2

5. Podmínky

if podmínka then příkaz 1
                  else příkaz 2

6. Výstup na obrazovku

write ('Pokus');            vypíše text v uvozovkách a kurzor zůstane za posledním písmenem
writeln ('Pokus');         to samé, akorát po vypsání odřádkuje

7. Vstup z klávesnice

read (x);                      přečte text 
readln (x);                   přečte text a odřádkuje

8. Cykly

a)  for i:=1 to 10 do příkaz
b)  while podmínka do příkaz
c)  repeat
     until podmínka

9. Práce s řetězci

S1:='mouka';
S2:='hladká';

S:=S2+S1; (bez mezery - hladkámouka)
S:=S2+' '+S1; (s mezerou - hladká mouka)

10. Pole znaků

var a:array [1..10] of byte;

Další příkazy:

val - zjistí zda řetězec string obsahuje jenom čísla
round - zaokrouhluje číslo
int - vezme celé číslo
gettime - vrátí hodnotu času (h:m:s:ss)
sqrt - druhá odmocnina


No konečne!! Uf. Tak to už by snad stačilo. Teď nechci Pascal alespoň dva měsíce vidět.