Pascali põhitõed
NB! ELSE-sõnale eelneva lause järel ei ole semikoolonit - kogu IF ja
ELSE on sisuliselt üks lause.
c)mitmendvalik - mingi muutuja teatud väärtustele seatakse vastavusse
mingid tegevused:
...
case vanus of
0..17: writeln('alaealine');
18..59: writeln('parimas tööeas');
60..100: writeln('pensionär');
101..1000: writeln('surematu');
...
CASE-lausesse tuleb anda kas kindlad väärtused või väärtuste-
vahemikud.
Veel üks märkus: Pascal- keeles töötavad laused BEGIN ja END ka n.ö.
sulgudena - nende vahel paiknevaid lauseid vaadeldakse ühtse plokina.
N: if then
begin
;
;
;
end
else
begin
;
;
end;
Programminäide 2.
program Küsimus;
var arv : integer;
begin
write('Mitu miilitsat on vaja, et lambipirni vahetada? ');
readln(arv);
if arv = 6 then
writeln('Tubli! Nii see on.')
else
begin
writeln('Õige on 6 - üks seisab laual ja hoiab pirnist kinni... ');
writeln('...neli keerutavad nurkadest lauda... ');
writeln('..
annaabi.ee 
