Ciklusok
Elöltesztelős ciklus
Pascal
while feltétel do utasítás
while feltétel do
begin
utasítás blokk
end
Java
while( feltétel ) utasítás
while( feltétel ) {
utasítás blokk
}
C#
while( feltétel ) utasítás
while( feltétel ) {
utasítás blokk
}
Hátultesztelős ciklus
Pascal
Vigyázat!!! Pascal-ban a hátultesztelős ciklusban a kilépési feltételt kell megadni. ("Ciklus .. hacsak")
repeat
utasítás blokk
until kilépési feltétel
Számlálós ciklus
Pascal
for i := kezdet to vég do utasítás
for i := kezdet to vég do
begin
utasítás blokk
end
Példák
A ciklusok működésének illusztrálására többféle módon megoldjuk a következő problémát: ki kell írni a képernyőre (standard kimenetre) a pozitív egész számokat 1-től 42-ig, növekvő sorrendben, szóközökkel elválasztva.
Pascal
program ciklus;
var i : byte;
begin
i := 1;
while i <= 42 do
begin
write(i,' ');
i := i + 1;
end;
end.
var i : byte;
begin
i := 1;
while i <= 42 do
begin
write(i,' ');
i := i + 1;
end;
end.
program ciklus;
var i : byte;
begin
i := 1;
repeat
write(i,' ');
i := i + 1;
until i > 42;
end.
var i : byte;
begin
i := 1;
repeat
write(i,' ');
i := i + 1;
until i > 42;
end.
program ciklus;
var i : byte;
begin
for i := 1 to 42 do write(i,' ');
end.
var i : byte;
begin
for i := 1 to 42 do write(i,' ');
end.