Pengertian Record Pada Pascal Beserta Contoh Programnya

50 sec read

Pengertian Record Pada Pascal Beserta Contoh Programnya – Record dalam bahasa pemerograman pascal adalah kumpulan item data (field) yang masing-masing dapat mempunyai tipe data yang beda.

Pengertian Record Pada Pascal Beserta Contoh Programnya

Contoh Program:
Type
Lgn= Record
Kode       : integer;
Nama      : string[35];
Piutang   : real;
End;
Var Langganan : Lgn;

Menggunakan Tipe Data Record
Tiap-tiap komponen field dari record dapat dipergunakan dengan cara menuliskan pengenalrecord.pengenalfield

Contoh Program:
Langganan.Nama :=’Maulana’;
||             |______pengenal field
||__________ pengenal record

Penulisan statemen diatas dapat menyebabkan statement menjadi panjang
Contoh lain :
Lingkaran.keliling := 2 * Pi * Jari Jari;

Menggunakan statemen With Do menjadi :
With Lingkaran Do
Begin
Keliling ; 2 * Pi * JariJari ;
End;

Contoh :
Uses Crt;
Type
Recsis = Record
Nama : String[15];
Nu       : byte;
End;
Var DataSis : Array[1..10] of RecSis;
X, JD : Byte ;
Pred  : String[6] ;

BEGIN
CLRSCR ;
Write( ‘ Jumlah Data : ‘ ) ; Readln(JD);
For X := 1 To JD Do
Begin
Write( ‘ Nama Siswa : ‘ ) ; ReadLn(Datasis[x].Nama) ;
Write( ‘ Nilai Ujian     : ‘ ) ; ReadLn(Datasis[x].Nu) ;
End;
For X := 1 To JD Do
Begin
With Datasis[X] Do
Begin
IF Nu > 60 Then Pred := ‘Lulus’;
Else Pred =: ‘Gagal’ ;
WriteLn(X, ‘ ‘ , Nama:10, ‘ ‘ ,Nu:2, ‘ ‘ ,Pred:6);
End;
End;
ReadLn;
END.

Jadi secara sederhana record merupakan tipe data tersetruktur yang terdiri dari beberapa data, kemudian masing-masing data tersebut disebut sebagai field.

Demikianlah penjelasan tentang record dan filed di bahass pemerograman pascal, semoga bisa membantu kalian yang sedang belajar atau mencari materi ini. Terimakasih banyak sudah berkunjung, jangan lupa sahre dan komen ya.

Anekdot: Struktur Teks Anekdot

Struktur teks-anekdot dari anekdot teks adalah diskusi pada bahan populer bahasa Indonesia, teks ini biasanya dapat ditemukan di berbagai media teks anekdot memiliki pengertian...
Adi Lesmana
1 min read

Leave a Reply

Your email address will not be published. Required fields are marked *