Sunday, December 16, 2018

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.


Reviewer: FajarYusuf.Com
ItemReviewed: Array Lanjutan Pascal

Seseorang yang ingin membagi pengalaman dan ilmu yang berguna untuk para pembaca FajarYusuf.Com :)

TENTANG SITUS

SITUS INI ADALAH SITUS PEMBELAJARAN PEMROGRAMAN DAN JUGA PEMAHAMAN TERHADAP TEKNOLOGI KOMPUTER. KALIAN BISA MENGIKUTI PEMBELAJARAN PEMROGRAMAN DENGAN BERTAHAP PADA MATERI YANG SUDAH SAYA SEDIAKAN, JIKA ADA MATERI YANG MEMBINGUNGKAN SILAKAN LAKUKAN KOMENTAR PADA MATERI YANG ANDA TANYAKAN ATAU KALIAN BISA MENGHUBUNGI SAYA DIHALAMAN KONTAK.