www.techinf1.fora.pl

tehran

skladnia petli:
repeat
instrukcja_1;
instrukcja_2;
until
warunek{np.zmienna a>3}
I teraz prosty przyklad:
program wypisujacy kwadraty kolejnych liczb petla repeat-until.

program kwadraty; {program ma nazwe kwadraty}
var {deklarujemy zmienne}
a,b:integer; {zmienne mieszcza sie w zakresie 2 bajtow i sa calkowite}
begin {zaczynamy program}
repeat {nastepuje otwarcie peli}
writeln (' kwadrat ' , i , 'wynosi' ,i*i);
i:=i+1; {co obieg petli i zwiekszamy o 1}
until i>100; {jesli zmienna i bedzie wieksza od
readln; 100 to paskal wypisze kwadraty
end. kolejnych liczb}