Pascali põhitõed
(* tulemuse, kusjuures raadiuseks on muutuja *)
(* r1 reaalne väärtus. *)
......
writeln('Pindala on ', Pindala (r2) :3 ); (* Siin on Pindala nagu *)
(* tavaline arvmuutuja *)
end.
Programminäide 11. 3. näite protseduuriga variant.
program LeiaPindala;
(* Programm suudab arvutada ringi, täisnurkse kolmnurga või ruudu *)
(* pindala. Kasutaja ülesandeks on valida kujund ning anda lähteandmed
*)
(* Arvutuste tegemine toimub protseduuriga ArvutaPindala. *)
var kujund : char;
a,b,S : real;
procedure ArvutaPindala (MisAsi : char; var pind : real);
(* sisend - kujundi liik, väljund : selle kujundi pindala *)
begin
case kujund of
'r' : begin
write('Sisesta ringi raadius');
readln(a);
S := 3.14 * a * a;
end;
'k' : begin
write('sisesta kolmnurga kaatetid - a, b (tühikud vahele): ');
readln(a,b);
S := (a * b) / 2:
end;
'u': begin
write('sisestage ruudu küljepikkus: ');
readln(a);
S := a * a;
end;
end;
end; (* protseduuri lõpp *)
annaabi.ee 
