Program Konversi Nilai Angka ke Huruf pada Pascal

http://mesran.net

Case biasanya digunakan pada pernyataan yang mempunyai banyak percabangan, case mempunyai syntax yang lebih simpel dari pada percabangan IF. Disini saya mencontohkan  program untuk mengkonversi nilai dari angka ke huruf.

Berikut source code nya:

program caseof;
uses wincrt;
var angka:byte;

begin
clrscr;
writeln('.: KONVERSI NILAI ANGKA KE HURUF :.');
write('Masukkan angka nilai: ');readln(angka);
writeln;
case angka of
85..100:writeln('Nilai Anda A ');
65..84:writeln('Nilai Anda B ');
40..64:writeln('Nilai Anda C ');
20..39:writeln('Nilai Anda D ');
0..19:writeln('Nilai Anda E ');
end;
Writeln;
writeln('  +------------------------------+');
writeln('  | http://hobi-it.blogspot.com  |');
writeln('  +------------------------------+');
end.

Selesai! :-)

source : http://hobi-it.blogspot.com