MEMBUAT PROGRAM RECORD ARRAY DI PASCAL

1. Buka Aplikasi Turbo Pascal Brada

2. Ketikkan coding seperti dibawah ini 

uses crt;

( menampilkan program di layar )

type

data_mhs=record

( tipe dari variabel data_mhs adalah record )

Nama : string [16];

Kelas : string [8];

( variabel Kelas sebagai string dengan maksimal 8 karakter yang dapat di input )

Npm : string [10];

( variabel Npm sebagai string dengan maksimal 10 karakter yang dapat di input )

end;

( Menutup type )

var

mhs : array [1..5] of data_mhs;

( variabel mhs sebagai array dari data_mhs )

x,a,uts,uas : integer;

( variabel x,a,uts,uas sebagai bilangan bulat )

total : real;

( variabel total sebagai bilangan real )

begin

( mulai )

clrscr;

( bersihkan layar )

write('Silahkan Masukkan Jumlah Data Anda = ');

readln(a);

( baca sebagai a dari angka yang di input )

for x := 1 to a do

( untuk x = 1 ke nilai dari variabel a )

with mhs [x] do

( dengan variabel mhs pada [x] )

begin

writeln;

( cetak kosong ( enter ) )

writeln('record ke : ',x);

                               ( cetak record ke : nilai dari x )

write('Nama : ');

( cetak Nama : )

readln(Nama);

( membaca karakter yang di input sebagai nilai dari variabel Nama )

write('Kelas : ');

( mencetak Kelas : )

readln(Kelas);

( baca inputan sebagai nilai dari variabel Kelas )

write('Npm : ');

( mencetak Npm : )

readln(Npm);

( membaca karakter yang di input sebagai Npm )

write('Nilai UTS : ');

( mencetak Nilai UTS : )

readln(uts);

( membaca karakter yang di input sebagai nilai dari variabel uts )

write('Nilai UAS : ');

( mencetak Nilai UAS : )

readln(uas);

( membaca karakter yang di input sebagai nilai dari variabel uas )

write('total : ',(uts+uas));

( mencetak total : hasil dari penjumlahan nilai dari variabel uts dan uas )

writeln;

( cetak kosong dan setelah itu enter )

end;

( tutup begin )

writeln;

writeln;

for x := 1 to a do

( untuk x = 1 ke nilai dari variabel a )

with mhs[x] do

( dengan variabel mhs pada [x] )

begin

writeln('---------------------');

( mencetak ------------------ , terus enter )

writeln('--------Output-------');

( mencetak -------Output--------- , terus enter )

writeln('Nama : ',Nama);

( mencetak Nama : nilai dari variabel Nama )

writeln('Kelas : ',Kelas);

( mencetak Kelas : nilai dari variabel Kelas )

writeln('Npm : ',Npm);

( mencetak Npm : nilai dari variabel Npm )

writeln('Nilai UTS : ',uts);

( mencetak UTS : nilai dari variabel uts )

writeln('Nilai UAS : ',uas);

( mencetak UAS : nilai dari variabel uas )

writeln('total : ',(uts+uas) div 2);

writeln;

end;

( tutup begin )

readln;

                               end.  ( tutup begin )

Keterangan :
yang di dalam kurung itu adalah penjelasn Coding program tersebut


3. Dan Jalankan Program dengantekan CTRL + F9 Atau Pilih RUN Maka hasilnya akan seperti gambar :