Basic <-> Free Pascal | Hatultesztelős ciklus amig a feltétel hamis

Basic

do loop until

Leírás

do
statements
loop until condition
Használt kulcsszavak: do until loop

Bemenet

Megjegyzés: Itt használható utasítások:
Megszakító utasítás Következő iteráció elindítása

Példaprogramok

Basic

i=10
do
 i=i-1
 loop until ( i = 0)
do
  i=i+1
  if i=3 then
    exit do
end if
loop until (i=10)
.
Free Pascal

repeat until

Leírás

repeat statements until condition;
Használt kulcsszavak: repeat until

Bemenet

Megjegyzés: Itt használható utasítások:
Megszakító utasítás Következő iteráció elindítása

Példaprogramok

Free Pascal

i:=10;
repeat dec(i) until ( i = 0);
repeat
  inc(i);
  if i=3 then
    break;
until (i=10);
Hatultesztelős ciklus amig a feltétel hamis más programozási nyelven:
Különbségek:
Más nyelveken: en hu cz sk