Membuat Tampilan Menu di PASCAL

Assalamualaikum


kali ini saya akan memberi tahukan bagai mana membuat menu di pascal, simak listing programnya...

program TugasMenuBangunDatar;
uses crt;
var
        menu    : byte;
        tanya   : char;
        s1, s2, panjang, lebar, alas, tinggi, r : integer;


        Function LuasPersegi : LongInt;
        var
                hasil   : LongInt;
        begin
                hasil:= s1*s2;
                LuasPersegi:= hasil;
        end;

        Function LuasPersegiPanjang : LongInt;
        var
                hasil   : LongInt;
        begin
                hasil:= panjang * lebar;
                LuasPersegiPanjang:= hasil;
        end;

        Function LuasSegitiga : Real;
        var
                hasil   : Real;
        begin
                hasil:= 1/2 * alas * tinggi;
                LuasSegitiga:= hasil;
        end;

        Function LuasLingkaran : Real;
        var
                hasil   : Real;
        begin
                hasil:= 3.14 * r * r;
                LuasLingkaran:= hasil;
        end;

BEGIN
        repeat
                clrscr;

                gotoxy(22,5);   Write('Menu Bangun Datar');
                gotoxy(18,8);   Write('1. Luas Persegi');
                gotoxy(18,9);   Write('2. Luas Persegi Panjang');
                gotoxy(18,10);  Write('3. Luas Segitiga Siku-siku');
                gotoxy(18,11);  Write('4. Luas Lingkaran');
                gotoxy(18,12);  Write('5. Keluar');
                gotoxy(15,17);  Write('Pilihan Anda [1..5] = ');        readln(menu);

                case menu of
                  1 : begin
                        gotoxy(18,20);  Write('Masukan Sisi x : ');  readln(s1);
                        gotoxy(18,21);  Write('Masukan Sisi y : ');  readln(s2);
                        gotoxy(18,24);  Writeln('Luas Persegi (x * y) = ',LuasPersegi);
                      end;
                  2 : begin
                        gotoxy(18,20);  Write('Masukan Panjang  : ');   readln(panjang);
                        gotoxy(18,21);  Write('Masukan Lebar    : ');   readln(lebar);
                        gotoxy(18,24);  Write('Luas Persegi Panjang (P * L) = ',LuasPersegiPanjang);
                      end;
                  3 : begin
                        gotoxy(18,20);  Write('Masukan Alas     : ');   readln(alas);
                        gotoxy(18,21);  Write('Masukan Tinggi   : ');   readln(tinggi);
                        gotoxy(18,24);  Write('Luas Segitiga (1/2 * alas * tinggi) = ',LuasSegitiga:2:2);
                      end;
                  4 : begin
                        gotoxy(18,20);  Write('Masukan Jari-jari : ');  readln(r);
                        gotoxy(18,23);  Write('Luas Lingkaran (3.14 * r * r) = ',LuasLingkaran:2:2);
                      end;
                end;

                gotoxy(13,27);  Write('Mau Coba Lagi [Y/T] ? ');
                repeat
                        gotoxy(34,27);  ClrEol;
                        tanya:= UpCase(ReadKey);
                until (tanya = 'T') or (tanya = 'Y');
        until (tanya = 'T');    // Ulangi sampai penekanan tombol 'T'
END.



Nah itu lah coding untuk membuat menu di pascal .

Terimakasi atas kunjungan dan komentarnya :D
wassalamualikum