Instrukcje powtarzające
Instrukcje powtarzające służą do organizowania cykli programowych
Opisany niżej program zawiera instrukcje repeat until zadaniem jej jest umożliwienie wielokrotnego wykonywania działań matematycznych na kalkulatorze do momentu wciśnięcia klawisza T oraz wieloktotne wykonywanie działan matematycznych ( druga pętla repeat until) wówczas warunek repeat until stanie się warunkiem prawdziwym i wyjdziemy z pętli. Szerzej o tej pętli znajdziesz na tej stronie w dziale algorytmy
program kalkulator;
var operacja,znak:char;
arg1,arg2,wynik:real;
begin
writeln('Program KALKULATOR umozliwia wykonywania');
writeln('podstawowych operacji matematycznych');
writeln('Podajemy kolejno arg1,dzialanie;');
writeln('*/+- oraz arg2 potwierdzajac kazdy z nich');
writeln('klawiszem {ENTER}');
writeln;
repeat
readln(arg1);
readln(operacja);
readln(arg2);
case operacja of
'+':wynik:=arg1+arg2;
'-':wynik:=arg1-arg2;
'*':wynik:=arg1*arg2;
'/':wynik:=arg1*arg2;
end;
writeln('=',wynik:50:10);
write('Nastepne dzialanie(t/n)?');
repeat
readln(znak)
until ((znak='t')or(znak='n'));
until znak<>'t';
end.