Program Record Dengan Pascal

Apa itu record ? Record menurut bahasa kita sehari - hari adalah menyimpan. dengan kata lain Reocord adalah type data yang terstruktur yang merupakan pengelompokan dari beberapa data lainnya yang disimpan dalam sebuah record.

Record dapat di gabungkan dengan array sebagai contoh untuk kali ini saya akan memberikan sedikit contoh program yang menggunakan penggabungan record dan juga array untuk membuat sebuah data mahasiswa sederhana, di bawah ini adalah
program data mahasiswa degan record yang bersis data NPM, Nama, Subject ( Mata kuliah ), Quiz (nilai kuis), Midtes(nilai mid semester), Fintes(nilai tes akhir) dan Overall tes (jumlah nilai maha siswa).

program test; uses crt; type tmhs = record npm : string[10]; nama : string[20]; subject : string[20]; quiz : byte; midtes : byte; fintes : byte; over : real; end; var sis : array[1..5] of tmhs; i,j : integer; begin clrscr; for i := 1 to 5 do begin write('NPM : '); readln(sis[i].npm); write('Nama : '); readln(sis[i].nama); write('Subject : '); readln(sis[i].subject); write('Nilai Quiz : '); readln(sis[i].quiz); write('Nilai Midtest : '); readln(sis[i].midtes); write('Nilai Finaltes : '); readln(sis[i].fintes); begin sis[i].over:=(sis[i].quiz*0.1)+(sis[i].midtes*0.4)+(sis[i].fintes*0.5); end; writeln; end; for j:=1 to 5 do begin with sis[j] do begin writeln('NPM : ',npm); writeln('Nama : ',nama); writeln('Subject : ',subject); writeln('Overall Value : ', over:5:2); writeln; end; end; readln; end.