Kamis, 23 Januari 2014

Belajar Pascal : Program Pascal Sederhana

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