Felhasználói eszközök

Eszközök a webhelyen


inf-prog-fszi:elotesztelos_ciklus

Ciklusok. Előtesztelős ciklus. While

While ciklus

Formátum

while.txt
While logikai_kifejezés do 
  {ciklusmag ismétlése,
   amíg a logikai_kifejezés IGAZ};

Példa

while.pas
a := 2;
while a < 6 do
begin
  writeln (a);
  a := a + 1
end;

Végtelen ciklus

whilevegtelen.pas
while true do ;
whilevegtelen2.pas
a := 2;
while a < 6 do
  writeln (a);
{az a ciklusváltozó nem növekszik!}

Break

whilebreak.pas
var
  i:integer;
begin
  i := 0;
  while true do
    begin
      i := i + 1;
      if i = 10 then break;
    end;
end;

Continue

whilecontinue.pas
var
  i:integer;
begin
  i := 0;
  while true do
    begin
      i := i + 1;
      if i = 10 then continue;
    end;
end;
inf-prog-fszi/elotesztelos_ciklus.txt · Utolsó módosítás: 2017/06/17 20:19 szerkesztette: beistvan