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.
-------------------------------------------------------------
0 komentar:
Posting Komentar