Record

Membuat program dengan record di Turbo Pascal Winodows

program latihan_record;
uses wincrt;
type data = record
nama,npm,jurusan : string[25];
absen,tugas,uts,uas : integer;
jumlah : integer;
rata_rata,nilai_akhir:real;
nh,i:char;
ket : string;
end;
var
x : data;
begin
with x do
begin
i := 'y';
while i = 'y' do
begin
clrscr;
{input data}
writeln('Program Penilaian Mahasiswa');
writeln('-----Mengunakan Record-----');
writeln;
write('Nama Mahasiswa :');readln(nama);
write('NPM :');readln(npm);
write('Jurusan :');readln(jurusan);
writeln;
write('Nilai Absen :');readln(absen);
write('Nilai Tugas :');readln(tugas);
write('Nilai UTS :');readln(uts);
write('NIlai UAS :');readln(uas);
writeln;
{Pengolahan data}
jumlah := absen + tugas + uts + uas ;
rata_rata := jumlah / 4 ;
nilai_akhir := (absen*0.1)+(tugas*0.2)+(uts*0.3)+(uas*0.4);
if (nilai_akhir >=80) and (nilai_akhir<=100) then begin nh := 'A'; ket := 'Sangat Baik'; end else if (nilai_akhir >= 70) and (nilai_akhir <>= 60) and (nilai_akhir <> 50) and (nilai_akhir <> 0) and (nilai_akhir < 50) then
begin
nh := 'E';
ket := 'Gagal';
end
else
writeln('Nilai yang dimasukan ada yang salah');
{hasil}
writeln('Nilai Rata - Rata :',rata_rata:3:2);
writeln('Nilai Akhir :',nilai_akhir:3:2);
writeln('Nilai Huruf :',nh);
writeln('Keterangan :',ket);
writeln;
write('Apakah anda ingin mengulang y/t : ');readln(i);
end;
end;
end.