Kali ini saya akan membuat program pascal sederhana, dengan menggabungkan pemilihan, perulangan, dan perulangan dalam perulangan
untuk mencari nilai 3 orang mahasiswa dengan ketentuan :
- Jika Nilai >=90 maka keterangannya A
- Jika Nilai >=80 maka keterangannya B
- Jika Nilai >=70 maka keterangannya C
- Jika Nilai >=60 maka keterangannya D
- Jika nilainya bukan semua diatas maka keterangannya E
ini coding progranmnya :
uses wincrt;
var nli,nilai,mhs :integer;
nama,mk,ket,kls :string;
begin
for mhs:=1 to 3 do
begin
write('Nama Mahasiswa : ');readln(nama);
write('Kelas : ');readln(kls);
begin
for nli:=1 to 7 do
begin
write('Mata Kuliah : ');readln(mk);
write('Nilai : ');readln(nilai);
if nilai>=90 then
begin
ket:='A'
end
else
if nilai >=80 then
begin
ket:='B'
end
else
if nilai>=70 then
begin
ket:='C'
end
else nilai>=60 then
begin
ket:='D'
end
else
begin
ket:='E'
end;
writeln('Keterangan : ',ket);
end;
end;
end;
end.
Tidak ada komentar:
Posting Komentar