ARRAY Terhadap RECORD
Array juga bisa digunakan untuk record data dengan ketentuan sebagai berikut:
- Record harus merupakan tipe data yang terstruktur yang harus dideklarasikan sendiri
- Record harus terdiri dari beberapa field dimana pada setiap field harus dinyatakan namanya dan tipe dari field tersebut
- Deklarasi pada record dapat dinyatakan pada bagian isian atau blok dari TYPE dan pada blok VAR
- Untuk dapat melakukan pengolahan terhadap field dapat dilakukan dengan 2 cara seagai berikut : 1.perintah titik 2.statement WITH
Dibawah ini adalah contoh pendeklarasian record pada pascal :
TYPE mahasiswa = RECORD
Nama : string [15] ;
BP : string [8] ;
Umur : integer ;
END;
VAR mhs : mahasiswa; { hanya untuk 1 orang mahasiswa }
Membaca field array dengan menggunakan cara pertama yaitu dengan perintah titik :
Write ('Nama : '); readln (mhs.nama);
Write ('Nobp : '); readln (mhs.nobp);
Write ('Umur : '); readln (mhs.umur);
Untuk cara kedua dapat menggunakan statement WITH seperti berikut:
WITH mhs DO
BEGIN Write ('Nama : '); readln (nama);
Write ('BP : '); readln (BP);
Write ('Umur : '); readln (umur);
END ;
Untuk dapat menampung data Record variabel Array juga dapat digunakan, silakan kalian coba coding berikut ini :
KALIAN BISA MENCOBANYA DISINI KLIK INI
KALIAN BISA MENCOBANYA DISINI KLIK INI
program tipe_record_array;
uses crt;
type
rec_siswa =
record
nama: string[20];
umur: integer;
sekolah: string[30];
kota: string[20];
end;
var
siswa: array [0..5] of rec_siswa;
begin
clrscr;
siswa[0].nama:= 'Fajar Yusuf';
siswa[0].umur:= 17;
siswa[0].sekolah:= 'SMK Triple J';
siswa[0].kota:= 'Citereup';
writeln('Nama : ',siswa[0].nama);
writeln('Umur : ',siswa[0].umur);
writeln('Sekolah : ',siswa[0].sekolah);
writeln('Kota : ',siswa[0].kota);
writeln;
siswa[1].nama:= 'Nur Eka Insani';
siswa[1].umur:= 16;
siswa[1].sekolah:= 'SMA SEMPUR';
siswa[1].kota:= 'Cibinong';
writeln('Nama : ',siswa[1].nama);
writeln('Umur : ',siswa[1].umur);
writeln('Sekolah : ',siswa[1].sekolah);
writeln('Kota : ',siswa[1].kota);
end.
![]() |
hasil coding |
MATERI PASCAL
Jika kalian baru dalam pembelajaran pemrograman Pascal, Silakan belajar dari materi pertama :
Materi Ke-1 : Perintah Output
Materi Ke-2 : Perintah Input
Materi Ke-3 : Looping / Perulangan
Materi Ke-4 : Nested Loop
Materi Ke-5 : Percabangan (IF ELSE)
Materi Ke-6 : Perintah Loncat (GoTo)
Materi Ke-7 : Array
Materi Ke-8 : Array Lanjutan
Materi Ke-9 : Procedure
Materi Ke-10 : Function
Materi Ke-11 : Rekursif
Materi Ke-12 : Pemantapan Contoh Contoh Program Pascal
Materi Ke-2 : Perintah Input
Materi Ke-3 : Looping / Perulangan
Materi Ke-4 : Nested Loop
Materi Ke-5 : Percabangan (IF ELSE)
Materi Ke-6 : Perintah Loncat (GoTo)
Materi Ke-7 : Array
Materi Ke-8 : Array Lanjutan
Materi Ke-9 : Procedure
Materi Ke-10 : Function
Materi Ke-11 : Rekursif
Materi Ke-12 : Pemantapan Contoh Contoh Program Pascal
Comments