Program kartu_hasil_study;
uses wincrt;
var
NIM,nama,kodeMTK,NamaMTK: string;
SKS,M:
integer;
H: Char;
IPK,N: Real;
x: integer;
JN,JM: real;
lagi:char;
begin
CLRSCR;
lagi:= 'y';
while (lagi = 'y') or (lagi = 'Y') do
begin
write('NIM ='); Readln(NIM);
write('nama mahasiswa ='); Readln(nama);
for
x:=1 to 2 do
begin
write('kode mata kuliah ='); Readln(kodeMTK);
if kodeMTK='MKIII'
then
begin
namaMTK:='Struktur
Data';
SKS:=2;
end
else
if kodeMTK='MUIII' then
begin
namaMTK:='Algoritma';
SKS:=2;
end;
writeln('Nama Matakuliah=', NamaMTK);
writeln('SKS=', SKS);
write('nilai ='); readln(N);
if (N>=80) and (N<=100) THEN
begin
H:='A';
M:=4;
end
else
if (N>=65) AND (n<80) THEN
BEGIN
H:='B';
M:=3;
end;
writeln('Huruf =',H);
writeln('Mutu =',M);
JN:= JN+N;
JM:= JM+M;
end;
IPK:=JN/JM;
writeln('IPK =',IPK:1:2);
write ('Input Data Lagi [Y/T] = '); readln(lagi);
end;
writeln('______________SELESAI_____________');
end.