Live As Technology

http://idup.in/8yzvdtl2uc2b/nilaidancss.rar.htm

Array Digunakan untuk memberikan sekaligus langsung banyak variabel contoh penggunaannya dibawah ini:
---------------------------------------------------------------------------------
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
a:array[1..10] of integer;
b:integer;
begin
a[1]:=25;
a[2]:=30;
a[3]:=28;
a[4]:=59;
a[5]:=72;
a[6]:=21;
a[7]:=15;
a[8]:=56;
a[9]:=23;
a[10]:=99;
for b:=1 to 10 do
writeln(a[b]);
readln;
end.
---------------------------------------------------------------------------------

Silahkan unduh di TempatUnduhMateriHtmlFrameSet

 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.
 -------------------------------------------------------------