Script membuat menu pakai procedure dengan dev pascal

Assalamu'alaikum Wr. Wb.
Hello sobat, untuk kali ini saya akan memposting script mebuat menu pakai procedure dengan dev pascal, ini akan menampilkan beberapa menu pilhan yang bisa sobat pilih.


ini lah scriptnya

program menu;
uses crt;
procedure kotak(x1,y1,x2,y2:integer;latar,tulisan:byte);
var
i:integer;
begin
textbackground(latar);
textcolor(tulisan);
window(x1,x2,y1,y2);
clrscr;
window(1,1,80,25) ;
gotoxy(x1,y1);writeln(#201);
gotoxy(x2,y1);write(#191);
gotoxy(x2,y2);write(#217);
gotoxy(x1,y2);write(#192);
for i:=x1+1 to x2-1 do
begin
gotoxy(i,y1);write(#196);
gotoxy(i,y2);write(#196);
end;
for i:=y1+1 to y2-1 do
begin
gotoxy(x1,i);write(#179);
gotoxy(x2,i);write(#179);
end;
end ;
procedure garis(x1,x2,y:integer;latar,tulisan:byte);
var
i:integer;
begin
textbackground(latar);
textcolor(tulisan);
gotoxy(x1,y);write(chr(195));
gotoxy(x2,y);write(#180);
for i :=x1+1 to x2-1 do
begin
gotoxy(i,y);write(#196);
end;
end;
procedure hitung_bujur_sangkar;
var
sisi,luas:real;
begin
kotak(10,5,50,10,blue,white);
gotoxy(13,6);write('perhitungkan bujur sangkar');
garis(10,50,7,blue,white);
gotoxy(11,8);write('sisi : ');
gotoxy(11,9);write('luas sisi bujur sangkar : ');
gotoxy(39,8);readln(sisi);
luas:=sisi*sisi;
gotoxy(39,9);writeln(luas:4:2);
readln
end;
procedure hitung_segitiga;
var
alas,tinggi,luas:real;
begin
kotak(25,9,60,15,RED,BLACK);
gotoxy(30,10);writeln('perhitungan segitiga');
garis(25,60,11,RED,BLACK);
gotoxy(27,12);write ('panjang alas : ');
gotoxy(27,13);write ('tinggi : ');
gotoxy(27,14);WRITE ('luas segitiga : ');
gotoxy(47,12);readln(alas);
gotoxy(47,13);readln(tinggi);
luas:=0.5 * alas*tinggi;
gotoxy(47,14);writeln(luas:4:2);
readln;
end;
procedure pangkat;
var a,p:real;
hasil:real;
begin
kotak(25,9,60,17,black,white);
gotoxy(35,10);writeln ('perpangkatan');
garis(25,60,11,black,white);
gotoxy(35,10);writeln ('perpangkatan');
gotoxy(26,12);write ('masukan angka :');
gotoxy(26,13);write ('pangkat :');
gotoxy(26,14);write ('hasil :');
gotoxy(43,12);readln(a);
gotoxy(43,13);readln(p);
hasil:=exp(p*ln(a));
gotoxy(43,14);writeln(hasil:2:2);
readln;
end;
procedure faktorial;
var
i,nilai:integer;
faktorial,hasil:real;
begin
kotak(25,9,60,17,brown,black);
gotoxy(35,10);writeln ('faktorial(!)');
garis(25,60,11,brown,black);
gotoxy(26,12);write ('masukan angka :');
gotoxy(26,14);write ('hasil :');
gotoxy(44,12);readln(i);
faktorial:=1;
for nilai:=i downto 1 do
faktorial:=faktorial*nilai;
gotoxy(44,14);writeln(faktorial:0:0);
readln;
end;
var
pilihan:integer;
begin //program utama
repeat
clrscr;
kotak(25,9,55,22,green,yellow);
gotoxy(38,10);writeln('menu');
garis(25,55,11,green,yellow);
gotoxy(26,12);writeln('1.bujur sangkar');
gotoxy(26,13);writeln('2.segitiga');
gotoxy(26,14);writeln('3.perpangkatan');
gotoxy(26,15);writeln('4.faktorial');
gotoxy(26,16);writeln('0. keluar');
garis(25,55,20,green,yellow);
gotoxy(26,21);write('pilihan [1/2/3/0] ?');
readln(pilihan);
if pilihan=1 then
begin
hitung_bujur_sangkar;
end
else
if pilihan=2 then
begin
hitung_segitiga;
end
else
if pilihan=3 then
begin
pangkat;
end
else
if pilihan=4 then
faktorial;
until pilihan=0;
readln;
end.

copy script lalu pastekan ke pc sobat dan jalan program tersebut,maka outputnya akan seperti dibawa ini.











di atas ini adalah menu utamanya,
jika sobat mau memi menu untuk menampilkan menghitung luas bujur sangkar maka tulis 1 dan tamiplannya akan tampak seperti dibawah ini













jika sobat suda selesai dengan menu mencari luas bujur sagkar,tekan enter maka sobat akan kembali ke menu utamanya lagi,dan sperti itu seterusnya dan jika sobat ingin keluar dari program ini maka tulis angka 0. dan ini adala tampilan dari beberapa menu yang bisa sobat pi








jika memilih 2

jika memulih 3

jika memilih 4