Salinlah program berikut ini :
program P0501;
{Program Array menggunakan 1 dimensi}
uses Crt;
var
a: array[1..10] of byte;{maksimum jumlah elemen=10}
begin
a[1]:=10;
a[2]:=15;
a[3]:=a[1]+a[2];
Writeln(a[1]);
Writeln(a[2]);
Modul 5 – Array 5-31
Writeln(a[3]);
end.
Kompilasi program tersebut dengan menekan Alt+F9 dan jalankan
program tersebut dengan menekan Ctrl+F9, kemudian amati hasilnya
bila dimasukkan masukan tertentu.
Sekarang simpan program tersebut dengan memilih menu File lalu
pilih Save. Simpan dengan nama Prak5_01.PAS.
Berikut ini akan diperkenalkan array 1 dimensi dengan menggunakan
program P0502;
uses crt;
const
N=10;
type
int_array= ARRAY [1..N] of integer;
var
bil : int_array;
indeks : integer;
begin
writeln('masukkan sepuluh bilangan integer.');
for indeks := 1 to 10 do
begin
readln(bil[indeks]);
end;
writeln('Isi dari array ini adalah');
for indeks := 1 to 10 do
begin
writeln('bil[', indeks:2,'] adalah ',bil[indeks] );
end
end.
Kompilasi dan jalankan program tersebut, kemudian amati hasilnya
bila dimasukkan 10 nilai tertentu.
Untuk lebih memahami pendeklarasian dari type, konstanta dan
variabel dalam array lebih lanjut serta tingkatan array yang lebih banyak
lagi, salinlah program array multidimensi di bawah ini
program P0503;
uses crt;
const
kolom = 3;
baris = 3;
type
matriks = ARRAY [1..baris, 1..kolom] of integer;
var
AKU: matriks;
Modul 5 – Array 5-32
procedure ISI_MATRIK(m,n:integer);
var
i,j: integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
read(AKU[i,j]);
end;
readln ;
end;
end;
procedure TULIS_MATRIK(m,n:integer);
var i,j: integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
write(AKU[i,j]:6);
end;
writeln ;
end;
end;
begin
clrscr;
isi_matrik(kolom,baris);
tulis_matrik(kolom,baris);
end.
Kompilasi dan jalankan program di atas. Amati hasil dari program
tersebut, program diatas digabung dengan 2 procedure. Procedure pertama
untuk mengisi nilai matrik, dan procedure yang kedua untuk menulis
hasil dari nilai matrik yang sudah diisikan.
Tidak ada komentar:
Posting Komentar