Recent

Saturday, January 5, 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.

Share:

0 comments:

Post a Comment

Follow Us

BTemplates.com

Total Pageviews

Blog Archive

Breaking

Recent In Internet

Recent Post

Tentang Saya

My photo
Paiton, Probolinggo, Indonesia
Berbagi Itu Indah
Adbox
There was an error in this gadget