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:

1 comment:

  1. assalamualaikum wr,wb
    Ki nawe… saya IBU NISA,tki di malaysia
    mengucapkan banyak2 terima
    kasih kepada ki.Nawe
    atas dana ghaib yang
    kemarin aki berikan alhamdulillah ternyata itu benar2 ada
    dan berkat bantuan
    ki nawe saya bisa
    melunasi semua hutan2
    orang tua saya yang ada di
    BANK BRI dan bukan hanya
    itu AKi NAWE alhamdulillah
    sekarang saya sudah bisa
    bermodal sedikit untuk
    mencukupi kebutuhan
    keluarga saya sehari2. itu
    semua berkat bantuan KI NAWE sekali lagi
    makasih banyak yah KI NAWE…
    yang ingin merubah nasib
    seperti saya hubungi KI NAWE di nomor
    0852-1837-9259 dijamin
    100% ada atau silahkan
    buktikan sendiri PESUGIHAN TAMPA TUMBAL

    ReplyDelete

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