MathiaKostur programa
program Ime;
begin
...
end.
Krajnji end. ima tačku.
Ispis
writeln('Zdravo');
write(x);
writeln('x = ', x);
writeln prelazi u novi red.
Tipovi
integer // ceo broj
real // decimalni
char // 'A'
string // 'tekst'
boolean // true/false
Tekst pod jednostrukim ' '.
var i dodela
var a, b: integer;
begin
a := 5;
end.
:= dodela, = poređenje.
Unos
readln(a);
readln(a, b);
Čita sa tastature.
Operatori
+ - * /
div // 7 div 2 = 3
mod // 7 mod 2 = 1
div/mod za cele brojeve.
Poređenja
= <> (različito)
< > <= >=
and or not
<> znači „različito".
if / else
if x >= 5 then
writeln('ok')
else
writeln('ne');
Pred else NEMA ;
case
case n of
1: writeln('a');
2: writeln('b');
else writeln('c');
end;
Više slučajeva odjednom.
for petlja
for i := 1 to 5 do
writeln(i);
// unazad: downto
Kad znaš broj koraka.
while / repeat
while i < 5 do
begin ... end;
repeat ...
until i = 5;
repeat se izvrši bar jednom.
Niz
var a: array[1..3]
of integer;
a[1] := 5;
Indeksi po opsegu [1..3].
Potprogrami
function f(x: integer)
: integer;
begin f := x*x; end;
// procedure ne vraća
Rezultat: ime := vrednost.