DIF : PASCAL - RECORD

LAPORAN AKHIR

DINNI I.F

32112203

UNIVERSITAS GUNADARMA

PASCAL

PROGRAM RECORD

Langkah pertama yaitu buka aplikasi turbo pascal, maka kita akan disuguhkan layar seperti ini ;

Lalu klik Option>>Environment>>Preferences

Maka akan tertampil seperti ini, lalu pilih 43/50 lines untuk baris lebih panjang>>Ok

Maka akan tertampil seperti ini ;

Layar yang lebih panjang untuk membuat kodingan yang lebih banyak

Membuat kodingan program seperti ini ;

LOGIKA PROGRAM

Uses crt : untuk menghidupkan atau mengaktifkan perintah

Type mahasiswa variabel bertipe record

Untuk npm,nama,ket adalah variabel yang bertipe string

Untuk thnmasuk variabel yang bertipe integer

End; untuk mengakhiri program

Var adalah singkatan dari variabel

Mhs : array[1..50] of mahasiswa adalah variabel yang mendeklarasikan sebuah array

X,y,z : integer adalah variabel yang bertipe integer

Begin untuk memulai program

Clrscr untuk membersihkan layar

Writeln(‘----‘) ; hanya untuk tampilan pada outputnya saja

Writeln(‘ program record‘) ; hanya untuk tampilan pada outputnya saja

Writeln(‘----‘) ; hanya untuk tampilan pada outputnya saja

Write(‘banyaknya data mahasiswa yang akan dimasukkan’); perintah pada output untuk menginput data atau untuk menuliskan output, dengan posisi cursor – penunjuk aktif, terletak pada akhir output yang ditampilkan pada baris yang sama.

Readln(x); untuk membaca outputnya dan memindahkan kursor

Writeln; digunakan untuk menampilkan tampilan perbaris, akan ganti baris untuk tampilan berikutnya.

For y := 1 to x do untuk melakukan proses looping dimulai dari satu

Begin untuk memulai proses pada looping

With mhs[y] do

Begin untuk memulai program

Write(‘ NPM mahasiswa : ‘); readln(NPM); write untuk memasukkan perintah pada output untuk menginput data, data disini untuk memasukkan npm. Readln juga digunakan untuk memasukkan data perbaris, artinya setelah tombol Enter ditekan, maka akan ganti baris,

Write(‘nama mahasiswa :’); readln(nama); write untuk memasukkan perintah pada output untuk menginput data, data disini untuk memasukkan nama. Readln juga digunakan untuk memasukkan data perbaris, artinya setelah tombol Enter ditekan, maka akan ganti baris,

Write(‘tahun mahasiswa : ‘); readln(thnmasuk); write untuk memasukkan perintah pada output untuk menginput data, data disini untuk memasukkan tahun masuk. Readln juga digunakan untuk memasukkan data perbaris, artinya setelah tombol Enter ditekan, maka akan ganti baris,

Writeln; untuk memindahkan kursor pada baris yang sama

End; untuk mengakhiri proses looping

End; untuk mengakhiri program

Clrscr untuk menghapus atau membersihkan layar

Writeln(‘ daftar nama mahasiswa ‘); untuk tampilan output pada layar

Writeln(‘-----‘); untuk tampilan output pada layar

Writeln(‘|no|npm|nama|tahun masuk|ket|’); untuk mencetak tampilan output dan garis lurus digunakan sebagai pemisah

Writeln(‘-----‘); untuk tampilan output pada layar

For y := 1 to x do untuk melakukan proses looping dimulai dari satu

Begin untuk memulai program

Gotoxy(1,y+5); write(‘|’);

Gotoxy(3,y+5);write(‘|’);

With mhs[y]do With mhs [y] do dengan variabel y yaitu variabel mhs

Begin untuk memnulai program

Gotoxy(6,y+5);write(‘|’); untuk menuju koordinat 6,y+5 atau baris ke 6 dengan jarak 5 baris untuk jarak antar kolom dan garis lurus untuk mencetak garis sebagai pemisah

Gotoxy(8,y+5); ); untuk menuju koordinat 8,y+5 atau baris ke 8 dengan jarak 5 baris untuk jarak antar kolom dan garis lurus untuk mencetak garis sebagai pemisah

Write(npm) ; perintah pada output untuk memasukkan npm

Gotoxy(18,y+5);write(‘|’); ); untuk menuju koordinat 18,y+5 atau baris ke 18 dengan jarak 5 baris untuk jarak antar kolom dan garis lurus untuk mencetak garis sebagai pemisah

Write(nama); perintah pada output untuk memasukkan nama

Gotoxy(34,y+5);write(‘|’); ); untuk menuju koordinat 34,y+5 atau baris ke 34 dengan jarak 5 baris untuk jarak antar kolom dan garis lurus untuk mencetak garis sebagai pemisah

Write(thn masuk); perintah pada output untuk memasukkan tahnu masuk

Gotoxy(52,y+5);write(‘|’); ); untuk menuju koordinat 52,y+5 atau baris ke 52 dengan jarak 5 baris untuk jarak antar kolom dan garis lurus untuk mencetak garis sebagai pemisah

Z := 2013-thnmasuk; z adalah hasil dari 2013 dikurang dengan tahun masuk

If z > 3 then ket := (‘senior’) else artinya jika z lebih besar 3 tahun maka keterangannya adalah senior jika tidak

Ket := (‘junior’); artinya keterangannya adalah junior

Write(ket); untuk memasukkan perintah keterangan

Gotoxy(62,y+5); write(‘|’) Goto digunakan untuk memindahkan tata letak atau koordinat kursor baris 62 dengan jarak 5 baris antar kolom pada layar dan tanda garis lurus digunakan sebagai garis pemisah

End; untuk mengakhiri proses looping

End; untuk mengkhiri program

Writeln; untuk memindahkan kursor pada baris yang sama

Writeln(‘-----‘); untuk tampilan output pada layar nya saja

Readln; untuk memindahkan kursor kebaris selanjutnya

End. Untuk menutup atau mengakhiri seluruh program

Setelah program dibuat, lalu dijalankan dengan Run atau Ctrl+F9

Maka akan tertampil seperti ini;