"Datormācība. Skaitlisko aprēķinu realizācijas metodes ...

Nepieciešams atcerēties, ka, ja aiz operatora then vai aiz operatora else seko vairāki
operatori, tad tie jāraksta starp operatoru iekavām begin un end, t.i.,
if then
begin ; ; ..... ; end
else
begin ; ; …. ; end;
pie kam aiz pirmā operatoru bloka end semikols (;) nav jāliek. Nav jāliek semikols (;)
arī pirms else.
Piemērs:
if X=0 then
writeln('A=', X)
else
begin
A:=X - 1;
writeln('A=', A);
end;
Daļējā sazarojuma konstrukcijas forma
if Y=0 then
begin
A:=Y+1;
writeln('A=', A);
end
else
writeln('A=', A);
if then < operatori>
ir izmantojama gadījumos, ja kāda programmas daļa jāizpilda tikai pie noteiktiem nosacījumiem.
Gadījumos, kad šie nosacījumi neizpildās, operatori aiz atslēgvārda then tiek
ignorēti un izpildās nākamie programmas operatori.
Šādas konstrukcijas if..then blokshēma ir:
Piemērs. Sastādīt programmu, kura dod iespēju
aprēķināt divu no klaviatūras ievadītu skaitļu a
un b summu un izvadīt to uz ekrāna gadījumos,
ja kāds no skaitļiem a vai b ir pāra skaitlis. Pretējā
gadījumā, programma beidz darbu neaprēķinot
summu.
program summa;
uses crt;
Var a, b, sum: integer;
begin
ClrScr;
write('Ievadi a :'); readln (a);
write('Ievadi b :'); readln (b);
if (a mod 2=0) or (b mod 2=0) then
begin
sum:=a+b;
writeln('summa ir: ',sum);
end;
{sazarojums ar dubultnosacījumu or
(vai)}
{izvada summu}
{sazarojuma beigas}
21