FreeBASIC <-> Free Pascal | Cyklus s podmínkou na konci dokud podmínka je nepravda

FreeBASIC

do loop until

do
statements
loop until condition

Použitá klíčová slova: do until loop

Poznámka: Zde použitelné příkazy:
Příkaz přerušení příkaz pokračování

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 statements until condition;

Použitá klíčová slova: repeat until

Poznámka: Zde použitelné příkazy:
Příkaz přerušení příkaz pokračování

i:=10;
repeat dec(i) until ( i = 0);
repeat
  inc(i);
  if i=3 then
    break;
until (i=10);

Cyklus s podmínkou na konci dokud podmínka je nepravda v jiném programovacím jazyce:

Rozdíly oproti: