 Wysłany: Sob 22:08, 09 Lut 2008 Temat postu: Pętla repeat-until |
|
| 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} |
|
