Page 151 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

procedure Fibo;

begin
for I := 1 to 10 do

begin

if I < 3 then
Data[I] := I - 1

else

Data[I] := Data[I-1] + Data[I-2];
end;

Writeln('Deret Fibonacci suku ke-1 hingga suku ke-10 :');
for I := 1 to 10 do Write(Data[I]:3);

Writeln;

end;
begin

ClrScr;

Awal;
Fibo;

Writeln;
Write('Tekan Enter...');

Readln;

end.

program di atas adalah array berdimensi tunggal atau array

berdimensi satu. Dengan demikian, dapat pula dideklarasikan
variabel array dengan dimensi lebih dari satu atau array berdimensi

banyak. Berikut adalah cara mendeklarasikan array berdimensi dua :

2. Program Jumlah_Matrik;

uses wincrt;

const
Orde = 3;

type

Matrik = array[1..orde,1..orde] of integer;