RIEZONEMA

Setelah menyelesaikan tugas praktikum pascal aku array, kini akhirnya aku bisa menampilkan tugas praktikum aku untuk program pascal record.

jika ada kesalahan atau kurang memuaskan buat kalian2 tolong kasih comentnya ya....

ini dia laporannya.


RECORD
Record adalah kumpulan elemen (field) yang memiliki tipe data yang sama ataupun berbeda. Field-field tersebut digabungkan menjadi satu record dengan tujuan memudahkan pencataan dan pembacaan data.


Contoh Program:
Uses Crt;
Type
Mahasiswa=Record
Nama:String[30];
NIM:String[10];
Alamat:String[50];
End;
Var
Mhs:Mahasiswa;
Begin
ClrScr;
With Mhs do
Begin
Write('Nama :'); readln(Nama);
Write('NIM :'); readln(NIM);
Write('Alamat :'); readln(Alamat);
Writeln;
End;
Writeln('Nama :',Mhs.Nama);
Writeln('NIM :',Mhs.NIM);
Writeln('Alamat :',Mhs.Alamat);
Readln;
End.

Hasil program:
Nama :Ah. Riziq Khildani
NIM :120711007
Alamat :Sidomulyo

Nama :Ah. Riziq Khildani
NIM :120711007
Alamat :Sidomulyo

TUGAS RECORD

LISTING PROGRAM:

Uses Crt;
Type
Telepon=Record
Nama:string[30];
Telephone:string[10];
Kota:string[50];
End;
DataTlp=Array[1..10]of Telepon;
Var
Tlp:DataTlp;
Jml,A:Byte;
Begin
ClrScr;
Write('Jumlah Telpon :'); Readln(Jml);
For A:=1 to Jml Do
With Tlp[A] Do
Begin
Write('Nama :'); Readln(Nama);
Write('Telephone :'); Readln(Telephone);
Write('Alamat :'); Readln(Alamat);
Writeln;
End;
For A:=1 to Jml Do
With Tlp[A] Do
Begin
Writeln('Nama :',Nama);
Writeln('Telephone :',Telephone);
Writeln('Alamat :',Alamat);
Readln;
End;
End.

HASIL PROGRAM :

Nama :Ahmad Dhani
Telephone :03177323117
Alamat :Sidayu

Nama :Ahmad Dhani
Telephone :03177323117
Alamat :Sidayu