Menggunakan Record/Rekaman Pada Pascal

Materi Pascal

Target PencapaianMahasiswa dapat mengerti  bagaimana cara menggunakan rekaman atau record dalam aplikasi yang dibuat dengan menggunakan Pascal

1. Rekord atau Rekaman

Dalam Pascal terdapat tipe data yang berisi kumpulan data, tipe data ini dikenal dengan nama Tipe Record (rekaman), perbedaan antara record dengan larik adalah bahwa dalam larik semua elemenya harus bertipe sama, tetapi dalam record setiap elemen bisa mempunyai tipe yang berbeda antara satu sama lainnya.

  

Pertama buat table mahasiswa dengan struktur table seperti berikut:

Bentuk Umum penulisan Rekord

Type

   Pengenal = Record

       Namafield-1 : Type

       Namafield-2 : Type

       ……

       Namafield-N : Type

End

Atau dapat juga dideklarasikan sebagai berikut:

Var

   Pengenal = Record

       Namafield-1 : Type

       Namafield-2 : Type

       ……

       Namafield-N : Type

End

           

Program berikut adalah contoh program untuk Memasukan dan menampilkan Data Nilai Mahasiswa.

Lihat Source Code

1. Contoh Program 
2. Uses Crt; 
3. Const 
4.  JumlahSiswa = 1; 
5.  Type Nilai = Record 
6.     Nim : String; 
7.     Nama: String; 
8.     Tugas : Real; 
9.     UTS   : Real; 
10.     UAS   : Real; 
11. End; 
12.  Var 
13.    Mhs : Array[1..JumlahSiswa] of Nilai; 
14.    I   : Integer; 
15.  Begin 
16.    Clrscr; 
17.    For I := 1 To JumlahSiswa Do 
18.    Begin 
19.      Writeln('Mahasiswa ke : ',i:2); 
20.      Write('Nim   : ');Readln(Mhs[i].Nim); 
21.      Write('Nama  : ');Readln(Mhs[i].Nama); 
22.      Write('Tugas : ');Readln(Mhs[i].Tugas); 
23.      Write('UTS   : ');Readln(Mhs[i].Uts); 
24.      Write('UAS   : ');Readln(Mhs[i].Uas); 
25.    End; 
26.     Writeln('----------------------------------------------------------'); 
27.    Writeln('  NO   NIM         NAMA  TUGAS   UTS   UAS     NA   GRADE '); 
28.    Writeln('----------------------------------------------------------'); 
29.    For I := 1 To JumlahSiswa Do 
30.    Begin 
31.       Writeln(i:3,Mhs[i].Nim:10,Mhs[i].Nama:10,Mhs[i].Tugas:7:2,Mhs[i].Uts:7:2, 
32.       Mhs[i].Uas:7:2); 
33.    End; 
34.    Readln; 
35.  End. 
36.            
37.                                  

Output program yang dihasilkan

8.2. Statement With

Dalam Turbo Pascal telah disediakan sebuah statement yang berfungsi untuk lebih mempersingkat penulisan dalam pembacaan field, statement yang digunakan adalah statement WITH, berikut adalah contoh penggunaannya:

Lihat Source Code

1. Uses Crt; 
2. Const 
3.  JumlahSiswa = 3; 
4.  Type Nilai = Record 
5.     Nim : String; 
6.     Nama: String; 
7.     Tugas : Real; 
8.     UTS   : Real; 
9.     UAS   : Real; 
10.     Na    : Real; 
11.     Grade : Char; 
12.  End; 
13.  Var 
14.    Mhs : Array[1..JumlahSiswa] of Nilai; 
15.    I   : Integer; 
16.  Begin 
17.    Clrscr; 
18.    For I := 1 To JumlahSiswa Do 
19.    Begin 
20.      With Mhs[i] Do 
21.      Begin 
22.       Writeln('Mahasiswa ke : ',i:2); 
23.       Write('Nim   : ');Readln(Nim); 
24.       Write('Nama  : ');Readln(Nama); 
25.       Write('Tugas : ');Readln(Tugas); 
26.       Write('UTS   : ');Readln(Uts); 
27.       Write('UAS   : ');Readln(Uas); 
28.      End; 
29.    End;                                     
30.    For I := 1 To JumlahSiswa Do 
31.    Begin 
32.    With Mhs[i] Do 
33.    Begin 
34.       Na := (Tugas + Uts + Uas) / 3; 
35.       If (Na >= 80) Then Grade := 'A' Else 
36.       If (Na < 80) and (Na>=70) Then Grade := 'B' Else 
37.       If (Na < 70) and (Na>=60) Then Grade := 'C' Else 
38.       If (Na < 60) and (Na>=50) Then Grade := 'D' Else 
39.       Grade :='E'; 
40.    End; 
41.    End; 
42.    Writeln('----------------------------------------------------------'); 
43.    Writeln('  NO   NIM         NAMA  TUGAS   UTS   UAS     NA   GRADE '); 
44.    Writeln('----------------------------------------------------------'); 
45.    For I := 1 To JumlahSiswa Do 
46.    Begin 
47.      With Mhs[i] Do 
48.      Begin 
49.       Writeln(i:3,Nim:10,Nama:10,Tugas:7:2,Uts:7:2, 
50.       Uas:7:2,Na:7:2,Grade:5); 
51.    End; 
52.    End; 
53.    Readln; 
54.  End. 
55.   

Jika program ini dijalankan, maka akan mendapatkan hasil output yang sama seperti dengan tanpa menggunakan statement With

Sekian. Selamat Mencoba, 

DOWNLOAD

menggunakan-record-dalam-pascal.pdf
Ukuran: 96.81 KB