Pętla Repeat Until
repeat warunek until instrukcje;
var
x,i: integer;
begin
x:= 0; i:= 1;
repeat
x:= x+i;
readln (i);
until i>8;
writeln ('x= ',x);
readln;
end.
Pętla jest tak długo wykonywana dopóki warunek wyjścia nie jest prawdziwy.
REPEAT
wypisz(tekst,ile);
UNTILL keypressed;
Jeśli ktoś naciśnie klawisz, warunek będzie prawdziwy i iteracja zostanie przerwana.
Podobne strony
Podobne Strony • Inline • Obsługi warunków i stanów wyjątkowych • Destruktor • Konstruktor • Of • Asm • Typ obiektowy • Struktura modułu • Label • Zbiór • Instrukcja "jeśli" • Instrukcja wiążąca • Goto • Funkcja • End • Instrukcje warunkowe • Typ tablicowy • While • Typ Rekordowy • Typ Plikowy
wersja strony: 6, ostatnia edycja: 16 Jul 2009 08:31