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.

Artikel Terkait:
Disqus Comments