Array Lanjutan Pascal

array pascal

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

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.

Spread the love

Fajar (Ucup)

Pemilik dan Author dari FajarYusuf.com dan juga seseorang yang gemar membagikan info menarik kepada orang lain.

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *