Jambiseru.com – Berikut contoh program membuat MENU di Pascal.
Meski program dasar, namun Pascal bisa juga dikembangkan dengan kreatifitas masing-masing pengguna.
Baca Juga : Contoh Program Pascal Luas Trapesium
Berikut contoh program membuat MENU di Pascal :
program menu_kumpulan_rumus;
uses crt;
label 0,1,2,3;
var
JAWAB:char;
D1KTP,D2KTP,LSKTP:real;
PJ,LB,LSPJ:integer;
begin
0:clrscr;
textbackground(6);
textcolor(9);
writeln(‘Program Menu Rumus Nilai’);
writeln(‘By : Jambiseru.com’);
writeln(‘PILIH NILAI YANG AKAN DICARI’);
writeln(‘1. KETUPAT’);
writeln(‘2. PERSEGI PANJANG’);
writeln(‘3. MENU’);
writeln(”);
write(‘PILIH’); readln(JAWAB);
if (JAWAB=’1′) then goto 1;
if (JAWAB=’2′) then goto 2;
if (JAWAB=’3′)then goto 0;
readln;
1:clrscr;
writeln(‘HITUNG LUAS KETUPAT’);
writeln(”);
writeln(‘Input Diagonal 1 = ‘);readln(D1KTP);
writeln(‘Input Diagonal 2 = ‘);readln(D2KTP);
LSKTP:=((D1KTP*D2KTP)/2);
writeln(‘LUAS KETUPAT = ‘,LSKTP);
write(‘HITUNG LAGI? Y/T’);readln(JAWAB);
if (JAWAB=’Y’)or(JAWAB=’y’) then goto 1;
if (JAWAB=’T’)or(JAWAB=’t’) then goto 0;
readln;
2:clrscr;
writeln(‘HITUNG PERSEGI PANJANG’);
writeln(”);
write(‘Input Panjang : ‘);readln(PJ);
write(‘Input Lebar : ‘):readln(LB);
LSPJ:=(PJ*LB);
writeln(‘LUAS PERSEGI PANJANG = ‘,LSPJ);
write(‘HITUNG LAGI? Y/T’);readln(JAWAB);
if (JAWAB=’Y’)or(JAWAB=’y’) then goto 2;
if (JAWAB=’T’)or(JAWAB=’t’) then goto 0;
readln;
end.
Itu contoh cara membuat MENU menggunakan Program Pascal. (red)
