Berikut Listingnya:
program daftar_nilai;
uses crt;
var
i,n:integer;
DataMHS:array[1..10,1..5] of string;
Nilai : array[1..50] of integer;
jawaban:char;
Begin
repeat
clrscr;
writeln;
write ('BANYAK DATA Maks:10 : '); readln (n);
writeln;
for i:=1 to n do
begin
write('NAMA MAHASISWA :');readln(DataMHS[i,1]);
write('Masukkan NPM Mahasiswa :');readln(DataMHS[i,2]);
write('Masukkan Matakuliah :');readln(DataMHS[i,3]);
write('Masukkan Nilai :');readln(Nilai[i]);
writeln;
end;
for i:=1 to n do
begin
if (Nilai[i]>=91) and (Nilai[i]<=100) then DataMHS[i,4]:='A';
if (Nilai[i]>=70) and (Nilai[i]<=90) then DataMHS[i,4]:='B';
if (Nilai[i]>=60) and (Nilai[i]<=69) then DataMHS[i,4]:='C';
if (Nilai[i]>=46) and (Nilai[i]<=59) then DataMHS[i,4]:='D';
if (Nilai[i]>=0) and (Nilai[i]<=45) then DataMHS[i,4]:='E';
end;
for i:=1 to n do
begin
if DataMHS[i,4]='A' then DataMHS[i,5]:='Istimewa';
if DataMHS[i,4]='B' then DataMHS[i,5]:='Memuaskan';
if DataMHS[i,4]='C' then DataMHS[i,5]:='Cukup';
if DataMHS[i,4]='D' then DataMHS[i,5]:='Kurang';
if DataMHS[i,4]='E' then DataMHS[i,5]:='Sangat Kurang';
end;
clrscr;
writeln(' DAFTAR NILAI MAHASISWA ') ;
writeln('|=======================================================================================================|');
writeln('| No. | NAMA | NPM | MATKUL | NILAI | ABJAD | KETERANGAN |');
writeln('|=======================================================================================================|');
for i:=1 to n do
begin
writeln('|',i:3,DataMHS[i,1]:15,DataMHS[i,2]:19,DataMHS[i,3]:15,Nilai[i]:15,DataMHS[i,4]:12,DataMHS[i,5]:23,' |');
end;
writeln('|=======================================================================================================|');
writeln;
write('C O B A L A G I [Y/T]? : ');readln(jawaban);
until upcase( jawaban )<>'Y';
end.
uses crt;
var
i,n:integer;
DataMHS:array[1..10,1..5] of string;
Nilai : array[1..50] of integer;
jawaban:char;
Begin
repeat
clrscr;
writeln;
write ('BANYAK DATA Maks:10 : '); readln (n);
writeln;
for i:=1 to n do
begin
write('NAMA MAHASISWA :');readln(DataMHS[i,1]);
write('Masukkan NPM Mahasiswa :');readln(DataMHS[i,2]);
write('Masukkan Matakuliah :');readln(DataMHS[i,3]);
write('Masukkan Nilai :');readln(Nilai[i]);
writeln;
end;
for i:=1 to n do
begin
if (Nilai[i]>=91) and (Nilai[i]<=100) then DataMHS[i,4]:='A';
if (Nilai[i]>=70) and (Nilai[i]<=90) then DataMHS[i,4]:='B';
if (Nilai[i]>=60) and (Nilai[i]<=69) then DataMHS[i,4]:='C';
if (Nilai[i]>=46) and (Nilai[i]<=59) then DataMHS[i,4]:='D';
if (Nilai[i]>=0) and (Nilai[i]<=45) then DataMHS[i,4]:='E';
end;
for i:=1 to n do
begin
if DataMHS[i,4]='A' then DataMHS[i,5]:='Istimewa';
if DataMHS[i,4]='B' then DataMHS[i,5]:='Memuaskan';
if DataMHS[i,4]='C' then DataMHS[i,5]:='Cukup';
if DataMHS[i,4]='D' then DataMHS[i,5]:='Kurang';
if DataMHS[i,4]='E' then DataMHS[i,5]:='Sangat Kurang';
end;
clrscr;
writeln(' DAFTAR NILAI MAHASISWA ') ;
writeln('|=======================================================================================================|');
writeln('| No. | NAMA | NPM | MATKUL | NILAI | ABJAD | KETERANGAN |');
writeln('|=======================================================================================================|');
for i:=1 to n do
begin
writeln('|',i:3,DataMHS[i,1]:15,DataMHS[i,2]:19,DataMHS[i,3]:15,Nilai[i]:15,DataMHS[i,4]:12,DataMHS[i,5]:23,' |');
end;
writeln('|=======================================================================================================|');
writeln;
write('C O B A L A G I [Y/T]? : ');readln(jawaban);
until upcase( jawaban )<>'Y';
end.
Sekian dari Semoga Bermamfaat mohon like dan sharenya, dan juga kunjugannya kembali. OK
0 comments:
Post a Comment