Contoh Program MENU di Pascal

  • Whatsapp
Program MENU di Pascal
Program MENU di Pascal. Foto: Jambiseru.com

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)

Pos terkait