Pętla Repeat...Until...

Jest to równie w pewnym sensie instrukcja grupuj ca i jest traktowana jak jedna instrukcja (podobnie jak Begin...End).

ż

ą

P tla zaczyna si s owem kluczowym REPEAT dalej znajduj si linie do wykonania a zako czona jest s owem UNTIL i

ę

ę ł

ą ę

ń

ł

warunkiem, który je eli zostanie spe niony przerywa p tl i kontynuuje program, je eli nie, powraca na pocz tek (po

ż

ł

ę ę

ż

ą

REPEAT) i wykonuje instrukcje pomi dzy nimi po raz kolejny i znowu dochodzi do UNTIL, znowu sprawdza warunek itd.

ę

jest to p tla która zostanie CO NAJMNIEJ RAZ WYKONANA, gdy warunek znajduje si dopiero na ko cu (jest te p tla

ę

ż

ę

ń

ż ę

WHILE .. DO .. w której warunek zostaje sprawdzany na pocz tku) Przyk ad:

ą

ł

Przykładowy program:

program dectobin;

var liczba,liczba2:integer;

reszta:array [1..20] of integer;

ndeks:integer;

begin

writeln(‘Program zamienia liczbe dziesietna na binarna’);

readln(liczba);

indeks:=1;

repeat

reszta[indeks:=liczba mod 2;

liczba:=trunic(liczba/2);

indeks:=indeks + 1;

until (liczba=0);

indeks:=indeks-1;

repeat

write(reszta[indeks]);

indeks:=indeks-1;

until (indeks=0);

readln;

end.