Program Konversi Nilai Pada Pemrograman Pascal dengan Fungsi Case

Assalamu'alaikum Wr Wb


Selamat datang di sibukngoding.com. Pada kesempatan kali ini saya akan menjelaskan contoh program menggunakan fungsi Case yaitu program konversi nilai dari angka ke huruf. Seperti yang kita ketahui bahwa percabangan pada bahasa pemrograman pascal ada 2 yaitu fungsi IF dan fungsi Case. Untuk contoh program konversi nilai menggunakan fungsi IF bisa dilihat disini.

Adapun untuk konversi yang akan kita coba aplikasikan ke program adalah sebagai berikut
Jadi seumpama kita memasukkan nilai antara 90 sampai 100 maka akan tampil tulisan nilai A. Lalu jika kita memasukkan nilai antara 80 sampai 89 akan tampil tulisan nilai B, begitu seterusnya sampai nilai dibawah 50 akan tampil tulisan Nilai E Untuk Source code nya, sebagai berikut:

PROGRAM KONVERSI_NILAI;
uses crt;
var nilaiAngka: integer;
begin
clrscr;
write('Masukkan nilai : ');
readln(nilaiAngka);
case (nilaiAngka) of
0..49 : write('Nilai E');
50..59 : write('Nilai D');
60..79 : write('Nilai C');
80..89 : write('Nilai B');
90..100 : write('Nilai A');
  else
  writeln('INPUT DATA SALAH');
end;
readkey;

end.

Dari source diatas, bisa dilihat, jika kita memasukkan nilai 60 maka hasil yang ditampilkan adalah “Nilai C” karena yang memenuhi syarat adalah aksi nomor 3 yaitu  60..79 : write('Nilai C');.
Untuk hasil lebih jelasnya sbb:

Untuk hasilnya sama dengan jika kita menggunakan fungsi if. Kesimpulannya, fungsi case..of dan fungsi If itu pada dasarnya sama. Perbedaannya adalah inputan pada fungsi case hanya bisa berupa angka, tidak bisa berupa huruf atau Karakter. Berbeda dengan fungsi if, kita bisa menggunakan karakter dalam inputannya.

Demikian contoh program konversi nilai pada pascal, semoga bisa menjadi referensi bagi anda yang sedang belajar bahasa pemrograman pascal. Artikel ini saya ambil dari blog saya yang lama annur24.wordpress.com. Jika ada pertanyaan bisa ditanyakan lewat kolom komentar dan jangan lupa untuk mengunjungi web sibukngoding.com untuk contoh program lainnya.

Terimakasih atas kunjungannya, selamat belajar dan jangan mudah menyerah

Wassalamu’alaikum Wr Wb


Comments