Oleh: blogfirman | 27 Desember 2009

Program Menggunakan Case Of dan If.. Then..

Berikut adalah contoh sederhana program menghitung nilai sederhana pada Pemrograman Pascal. mengggunakan Case of dan if…then..

Program cari_nilai;

uses wincrt;

var

nilai:integer;

hasil:string[50];

begin

writeln(‘HASIL NILAI’);

write(‘MASUKKAN NILAI= ‘);readln(nilai);

clrscr;

case nilai of

80..100:hasil:= ‘A’;

70..79:hasil:= ‘B’;

50..69:hasil:=’C’;

30..49:hasil:=’D’;

else

hasil:=’E’;

end;

if((hasil=’A’)or(hasil=’B’)or(hasil=’C’))

then

begin

writeln(‘NILAI ANDA ‘,hasil);

writeln(‘SELAMAT ANDA LULUS’);

write(‘TERUSLAH BERPRESTASI’);

end

else

begin

writeln(‘nilai anda ‘,hasil);

writeln(‘anda tidak lulus’);

write(‘silahkan mengulang semester berikutnya’);

end;

end.

Untuk memahami Case Of,  silahkan baca juga di ;

https://blogfirman.wordpress.com/2009/12/27/case-of-dan-contoh-programnya-pada-pascal/


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: