Rabu, 03 November 2010

Contoh Program Pascal dengan menggunakan statment CASE-OF

// Contoh Program Pascal dengan menggunakan statment CASE-OF

uses wincrt;
var
x: byte;
begin
gotoxy(5,6);
write('Masukan bil bulat( 0-6 )= ');
readln(x);
gotoxy(4,8);
case (x) of
1:writeln(' Senin.');
2:writeln(' Selasa.');
3:writeln(' Rabu.');
4:writeln(' Kamis.');
5:writeln(' Jum`at.');
6:writeln(' Sabtu.');
0:writeln(' Minggu.')
else
writeln(' Tidak ada hari.');

end;
end.
Share This
Subscribe Here

1 comments :

Asuransi Jiwa on 5 Mei 2012 pukul 14.27 mengatakan...

There is so much in this article that I would never have thought of on my own. Your content gives readers things to think about in an interesting way. Thank you for your clear information.
Asuransi Jiwa | Asuransi Kesehatan | Asuransi Pendidikan

Posting Komentar

 

Site Info

Followers

Indahnya Berbagi Copyright © 2009 BeMagazine Blogger Template is Designed by Blogger Template
In Collaboration with fifa