Array Multidimensi

Array Multidimensi
• Dalam array multidimensi terdiri atas baris
(row) dan kolom (column). Index pertama
adalah baris dan yang kedua adalah
kolom
5
Syntax
• Type nama_array =ARRAY[bawah..atas,
bawah..atas] of tipe_data;
var variabel_array : nama_array; atau
• SYNTAX var variabel_array :
ARRAY[bawah..atas, bawah..atas] of tipe_data;
• Pernyataan berikut membentuk suatu array
integer dengan nama bilangan , 10 x 10 elemen
(100).
type matriks = ARRAY [1..10, 1..10] of integer;
var AKU: matriks;
Array[1..5,1..5]
A[5,1] A[5,5]
A[4,4]
A[3,3]
A[2,1] A[2,2]
A[1,1] A[2,1] A[5,1]
6
Contoh Program
Procedure ISI_MATRIK(AKU:matriks;
m,n:integer);
var
i,j: integer; {faktor pengulang}
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
gotoxy(x+2i.y+2y);
read(A[i,j]);
end;
readln ;{ini memungkinkan kita menulis tiap
baris elemen}
end;
Record
• Sebuah record rekaman disusun oleh
beberapa field. Tiap field berisi data dari
tipe dasar / bentukan tertentu. Record
mempunyai kelebihan untuk menyimpan
suatu sekumpulan elemen data yang
berbeda-beda tipenya (di banding array).
Contoh , sebuah record dengan empat
buah field
7
Cara Pendefinisian
• Cara pendeklarasian dari record adalah sbb:
• Mendefinisikan tipe dari record (jumlah field, jenis
tipe data yang dipakai),
• Mendefinisikan variabel untuk dilakukan operasi.
field1 field2 field3 field4
Sintax
type
nama_record = record
identifier_1 : tipe_data_1;
:
:
identifier_n : tipe_data_n;
end;
var variabel : nama_record;
8
Contoh
type
Data_mahasiswa = record
Nama : string;
Usia : integer;
Kota : String;
Kodepos : integer;
end;
Var
x: Data_mahasiswa;
Pengaksesan Elemen Record
x.Nama
x.Usia
x.Kota
x.Kodepos
9
Contoh Program
program RECORD_INTRO;
type tanggal = record
bulan, hari, tahun : integer;
end;
var waktu : tanggal;
begin
waktu.hari :=25;
waktu.bulan:=09;
waktu.tahun:= 1983;
writeln('hari ini adalah
',waktu.hari,':',waktu.bulan,':', waktu.tahun)
end.
Pengunaan With … do
Pernyataan with untuk lebih
menyederhanakan pengaksesan field-field
pada record. Pemrograman dapat
mengakses field cukup dengan
menyebutkan nama field-nya saja.
10
• x.Nama
x.Usia
x.Kota
x.Kodepos diganti
• with x do
Begin
Nama
Usia
Kota
Kodepos
end
Contoh
program RECORD_INTRO;
type tanggal = record
bulan, hari, tahun : integer;
end;
var waktu : tanggal;
begin {program utama}
with waktu do {mulai with}
begin
hari :=25;
bulan:=09;
tahun:=1983;
writeln('hari ini adalah ',hari,':',bulan,':', tahun)
end {akhir with}
end.
11
Array dari Record
type tanggal = record
bulan, hari, tahun : integer;
end;
var birthdays : array[1..10] of tanggal;
Visulaisasi Array dari Record
12
Pemberian nilai elemen birthday
Birthdays[1].hari :=25;
Birthdays[1].bulan:=09;
Birthdays[1].tahun:=1983;
With do…
For i:=1 to x do
Begin
With birthday[i] do
Begin
Hari:=25;bulan:=09;tahun:=1983;
End;
End;
13
Record di dalam Record
type tanggal = record
bulan, hari, tahun : integer;
end;
type waktu =record
jam, menit, detik : integer;
end;
type waktu_ini =record
tanggal_ini : tanggal;
waktu_ini : waktu
end;
var saat_ini : waktu_ini;
Pemberian Nilai
saat_ini.tanggal.bulan:= 11;
saat_ini.tanggal.hari:= 2;
saat_ini.tanggal.tahun:= 1985;
saat_ini.waktu.jam:= 3;
saat_ini.waktu.menit:= 3;
saat_ini.waktu.detik:= 33;