Perulangan dengan menggunakan fungsi For To Do adalah perulangan yang paling sederhana, kita juga dapat menyortirnya dengan fungsi IF
-------------------------------------------------------------
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:integer;
begin
for a:=1 to 10 do
if (a<>5) and (a<>8) then
writeln(a);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
-------------------------------------------------------------
Perulangan dengan fungsi repeat adalah pengulangan yang membaca dahulu apa yang ada didalam fungsi tersebut baru kemudian membaca kembali dengan rumus yang sudah ditetapkan. kita juga dapat menyortir dengan menggunakan fungsi IF.
-------------------------------------------------------------
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:integer;
begin
a:=1;
repeat
if (a<>5) and (a<>8) then
writeln(a);
a:=a+1;
until a>10;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
-------------------------------------------------------------