Program menu dalam bahasa pascal

Program menu pada artikel ini di buat menggunakan bahasa pemrograman pascal yang menggunakan statement kondisi Case-Of...Else. pada struktur program yang menggunakan Case-of bila tidak terdapat kondisi yang terpenuhi berarti tidak ada statement didalam lingkungan case of yang di proses. maka yang akan di proses adalah statement yang ada di else. disini saya membuat 2 buah program menu yang menggunakan procedure dan tidak, yang kedua-duanya menggunakan statement kondisi case-of...else.


Coding menu without Procedure :

uses crt;
var
pilih:byte;
alas,panjang,lebar,tinggi:integer;
luas,keliling:real;
begin
clrscr;
writeln('MENU');
writeln('1. BIODATA');
writeln('2. Luas Segitiga');
writeln('3. Luas Keliling lingkaran');
write('Pilih menu yang tersedia [1,3] ? ');
read(pilih);
clrscr;
case pilih of
1:begin
writeln('MENU BIODATA');
writeln;
writeln('Nama : boyzIT');
writeln('Country : Indonesia');
writeln('Site : http://www.boyzit.co.cc');
end;
2:begin
writeln('MENU MENCARI LUAS SEGITIGA');
writeln;
write('Masukan luas alas: ');
readln(alas);
write('Masukan tinggi: ');
readln(tinggi);
Luas:=1/3*alas*tinggi;
writeln('Luas segitiga = ',Luas);
end;
3:begin
writeln('MENU MENCARI LUAS KELILING LINGKARAN');
writeln;
write('Masukan panjang: ');
readln(panjang);
write('Masukan lebar: ');
readln(lebar);
write('Masukan tinggi: ');
readln(tinggi);
keliling:=panjang*lebar*tinggi;
writeln('Luas keliling lingkaran=' ,keliling);
end;
else
begin
writeln('Maaf pilihan tidak tersedia !!!');
end;
end;
readln;
readln;
end.

Coding with Procedure :

uses crt;
var
pilih:byte;
alas,panjang,lebar,tinggi:integer;
luas,keliling:real;
procedure menu;
begin
writeln('MENU');
writeln('1. BIODATA');
writeln('2. Luas Segitiga');
writeln('3. Luas Keliling lingkaran');
write('Pilih menu yang tersedia [1,3] ? ');
read(pilih);
end;
procedure biodata;
begin
writeln;
writeln('MENU BIODATA');
writeln;
writeln('Nama : boyzIT');
writeln('Country : Indonesia');
writeln('Site : http://www.boyzit.co.cc');
end;
procedure segitiga;
begin
writeln;
writeln('MENU MENCARI LUAS SEGITIGA');
writeln;
write('Masukan luas alas: ');
readln(alas);
write('Masukan tinggi: ');
readln(tinggi);
Luas:=1/3*alas*tinggi;
writeln('Luas segitiga = ',Luas);
end;
procedure lingkaran;
begin
writeln;
writeln('MENU MENCARI LUAS KELILING LINGKARAN');
writeln;
write('Masukan panjang: ');
readln(panjang);
write('Masukan lebar: ');
readln(lebar);
write('Masukan tinggi: ');
readln(tinggi);
keliling:=panjang*lebar*tinggi;
writeln('Luas keliling lingkaran=' ,keliling);
end;
procedure pilihan;
begin
case pilih of
1:begin
biodata;
end;
2:begin
segitiga;
end;
3:begin
lingkaran;
end;
else
begin
writeln('Maaf pilihan tidak tersedia !!!');
end;
end;
end;
begin
clrscr;
menu;
pilihan;
readln;
readln;
end.

Artikel terkait :