Share It

Sabtu, 05 Januari 2013

Menghitung Nilai Menggunakan Fungsi IF dalam Pascal


Tugas 5:
Program MenghitungNilai;
uses crt;
var
nilai:integer;
begin
clrscr;
writeln('---------Nilai Mahasiswa---------');

writeln('-------------------------------');
write('Masukkan Nilai = ');
readln(nilai);
if nilai>100 then write('                       Nilai tidak Valid')
else if nilai>90 then write('   Nilai Anda A')
else if nilai>80 then write('   Nilai Anda B')
else if nilai>70 then write('   Nilai Anda C')
else if nilai>60 then write('   Nilai Anda D')
else write('                 Anda harus mengulang');
readln;
end.

Reactions:

0 comments:

Poskan Komentar