www.techinf1.fora.pl

isar

aby zakonczyc program po np ifie uzywamy HALT;

napisze przykladowy program z zastosowaniem "Halt"

program przykladowy ; {rozpoczecie programu}
var a : integer; {zadeklarowanie zmiennej A}

begin
writeln('podaj liczbe'); {wypisuje 'podaj liczbe'}
readln(a); {wczytuje podana liczbe do zmiennej a}
if a=1 then halt ; {jezeli a=1 wtedy program zakancza sie}
writeln('nie wpisales liczby 1, program trwa:D'); {nastepna wypisana linia}
readln;
end.

a wiec HALT konczy program bez wzgledu na to co jest dalej