Program Record Dengan Pascal

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.

Baca juga : Program Mencari Deret Fibonanci Ke - N dengan pascal

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.

Program Record Dengan Pascal anda sekarang sudah selesai, baca juga tutorial program pascal lainnya.