Membuat Program Menu Menggunakan Case Of

Untuk posting kali ini masih sama seperti posting sebelumnya, (cek posting sebelumnya disini) yaitu cara menggunakan percabangan caseof. Tapi untuk kali ini akan saya terapkan pada pembuatan menu. Pebuatan Menu seperti ini sangat berguna untuk program yang mempunyai banyak fungsi, misal menghitung luas persegi, kemudian luas persegi panjang dan luas segitiga, bias dijadikan hanya dengan satu program saja. Saya disini akan menggunakan perhitungan matematika seperti contoh diatas.

Berikut source codenya:

program menu;
uses wincrt;
var pilih:byte;
    s,p,l,a,t,lp,lpp:integer;
    ls:real;

begin
repeat
begin
clrscr;
writeln('__.:: MENGHITUNG LUAS BANGUN DATAR ::.__');
writeln;
writeln(' 1. Luas Persegi');
writeln(' 2. Luas Persegi Panjang');
writeln(' 3. Luas Segitiga');
writeln(' 4. Keluar');
write('pilih 1-4: ');readln(pilih);
writeln;
case pilih of
1:begin
  write('Masukkan nilai sisi persegi(cm): ');readln(s);
  lp:=sqr(s);
  writeln('luas persegi= ',lp,' cm2');
  end;
2:begin
  write('Masukkan panjang persegi panjang(cm): ');readln(p);
  write('Masukkan lebar persegi panjang(cm): ');readln(l);
  lpp:=p*l;
  writeln('luas persegi panjang= ',lpp,' cm2');
  end;
3:begin
  write('Masukkan tinggi segitiga(cm): ');readln(t);
  write('Masukkan panjang alas segitiga(cm): ');readln(a);
  ls:=0.5*a*t;
  writeln('luas segitiga= ',ls:2:2,' cm2');
  end;
4:begin
  writeln('___________Terima Kasih___________');
  Writeln;
  writeln('  +------------------------------+');
  writeln('  | http://hobi-it.blogspot.com  |');
  writeln('  +------------------------------+');
  end;
end;
end;
writeln('-----------------------------------------');
writeln('Tekan ENTER untuk melanjutkan');
readln;
until (pilih=4);
end.

Pada source code diatas ada syntax repeat. Funginya yaitu untuk mengulang program berkali-kali. Pada postingan berikutnya yang berjudul Penggunaan Repeat Until pada Pascal akan dibahas lebih dalam.

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;