Program Pascal Input Beasiswa Menggunakan Record

Penjelasan :

variabel
beasiswa type array 1 sampai 10
n,i,j = integer

record
type mahasiswa = record
nama = string
nim = string
jumlah = string

Inputan = write ('Jumlah Data Masukan'); readln (n);
write adalah parameter untuk masukan keyboard menentukan jumlah record
readln adalah parameter untuk membaca file dari record variabel n yang berarti n=jumlah masukan

for i := 1  to n do

nilai dari variable i mula-mula adalah 1, kemudian perintah yang dijalankan adalah write/mencetak variable i
karena i masih kurang dari n maka i ditambahkan 1, sehingga sekarang nilai i menjadi 2

write ('Masukkan Nama Mahasiswa =');
readln(beasiswa[i].nama);
write adalah parameter untuk masukan nama mahasiswa dalam jenis string
readln adalah parameter untuk membaca file dari record variabel beasiswa[i] .nama ([i] = variabel dan .nama = record dari inputan write nama mahasiswa)

writeln( 'Data Mahasiswa Yang Mendapat Beasiswa' );
writeln( '--------------------------------------------' );
writeln( 'No Nama NIM Beasiswa' );
adalah writeln untuk menampilkan tempat atau tabel data dari record

writeln('i:1,'.',beasiswa[i].nama:10,');
adalah i:1. urutan nomer dari isi record dan beasiswa[i].nama:10 adalah isi dari record yang memiliki penyimpanan array 10

Source Code :