Program Konversi Nilai Angka ke Huruf pada Pascal

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! :-)
untuk yang pengen download programnya bisa didownload melalui link download di bawah ini.

Catatan: Untuk yang menggunakan Turbo Pascal versi 7 keatas, untuk uses gunakan uses crt;