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.

Tinggalkan Balasan

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

Previous post Linux : 7 Alasan Pintar Untuk Memakai dan Pindah Ke Linux
Next post Apa Saja Fungsi dan Prosedur pada Python