Felhasználói eszközök

Eszközök a webhelyen


inf-prog-fszi:utotesztelo_ciklus

Ciklusok. Utótesztelő ciklus. Repeat-until/do-while

Repeat ciklus

Formátum

repeat.txt
repeat
  {ciklusmag ismétlődik,
   amíg a logikai_kifejezés HAMIS}; 
until logikai_kifejezés;

Példa

repeat.pas
a := 2;
repeat
  writeln(a);
  a := a + 1
until a >= 6; 

Végtelen ciklus

repeatvegtelen.pas
repeat
until false;
repeatvegtelen2.pas
a := 2;
repeat
  writeln(a);
until a >= 6; 
{az a ciklusváltozó nem növekszik!}

Break

repeatbreak.pas
var
  i:integer;
begin
  i := 0;
  repeat
    i := i + 1;
    if i = 10 then break;
  until false;
end;

Continue

repeatcontinue.pas
var
  i:integer;
begin
  i := 0;
  repeat
    i := i + 1;
    if i = 10 then continue;
  until false;
end;
inf-prog-fszi/utotesztelo_ciklus.txt · Utolsó módosítás: 2017/06/17 18:21 szerkesztette: beistvan