www.techinf1.fora.pl

isar

a wiec teraz petla While Do
wyglada ona tak:

While warunek Do
begin
dzialanie
end;

czyli:

While a>b do
begin
a:=a+1
end;

program niby nic nie robi, ale mozemy zobaczyc chociaz po czesci dzialanie petli

program sprawdza czy warunek (a>B) jest prawdziwy jesli tak robi to co po begin, czyli dodaje do A liczbe 1 i znowu sprawdza czy a>b Smile

while=do mometu kiedy, warunek jest prawdziwy. do -wykonaj

a wiec prosty program wypisujacy 'ti1' 10x;)

program czwarty;
var a : integer;

begin
a:=1;
while a<=10 do
begin
writeln('ti1');
end;
readln;
end.

zastosowalem cos takiego: <= oznacza to "mniejsze lub rowne"