Membuat Menu dan Sub-menu Dengan Free Pascal

Mau buat menu seperti itu?? Mudah kok
:)


Ngomong ngomong backgroundnya mengganggu ya? Maaf saya baru restore DotA 2 gan. TwT

Oke Saya akan ajarin caranya membuat menu di Free Pascal, sekalian saya juga akan ajari fungsi perulangan.















uses crt;
var
        a,b,c,n,m:integer;
        r,t:char;
procedure ulangi;     --> Yang ini untuk mengulang perintah (y/t) jika y maka kembali ke procedure ulangi
begin
clrscr;
        writeln('[1] Jajargenjang');
        writeln('[2] Belah Ketupat');
        writeln('[3] Segitiga');
        write('Masukkan bangun yang akan dilihat: '); readln(r);

        if r='1' then       --> Ini cara membuat menu nomor 1 yaitu jajargenjang
        begin                --> Pake fungsi lain selain 'if' sebenernya bisa, tapi kali ini saya ajarin pake fungsi if aja 
        clrscr;
        write('Input tinggi jajargenjang: '); readln(m);
        write('Input panjang jajargenjang: '); readln(n);
        for a:=1 to m do    --> Saya pake fungsi for untuk membuat jajargenjang
                begin
                        for b:=m-1 downto a do
                        write(' ');
                        for b:=1 to n do
                        write('*');
                        writeln;
                end;
        writeln;
        writeln;
        writeln;
        write('Ulangi? (y/t): '); readln(t);      --> Ini menu (y/t) seperti yang digambar kedua
        if t='y' then ulangi
        else if t='t' then
        begin
        clrscr;
                writeln;
                writeln;
                writeln('PRESS ENTER TO EXIT');
        readln;
        end;
        end
        else if r='2' then              --> Ini cara membuat menu nomor 2 yaitu belah ketupat
        begin
        clrscr;
        write('Input panjang belah ketupat: '); readln(n);
                for a:=1 to n do
                        begin
                                for b:=n-1 downto a do
                                write(' ');
                                for b:=1 to a do
                                write('* ');
                                writeln;
                        end;
                for c:=1 to n do
                        begin
                                for b:=1 to c do
                                write(' ');
                                for b:=n-1 downto c do
                                write('* ');
                                writeln;
                        end;
                write('Ulangi? (y/t): '); readln(t);      --> Menu (y/t) dengan memanggil diri sendiri yaitu
        if t='y' then ulangi
        else if t='t' then
        begin
        clrscr;
                writeln;
                writeln;
                writeln('PRESS ENTER TO EXIT');
        readln;
        end;
        readln;
        end
        else if r='3' then                  --> Membuat menu nomor 3 yaitu segitiga
        begin
        clrscr;
        write('Input panjang segitiga: '); readln(n);
                for a:=1 to n do
                        begin
                                for b:=n-1 downto a do
                                write(' ');
                                for b:=1 to a do
                                write('* ');
                                writeln;
                        end;
        write('Ulangi? (y/t): '); readln(t);
        if t='y' then ulangi
        else if t='t' then
        begin
        clrscr;
                writeln;
                writeln;
                writeln('PRESS ENTER TO EXIT');
        end;
        readln;
        end;
end;
begin
ulangi;
end.




Yaaa kira kira seperti itu, semoga bisa membantu teman teman dalam mempelajari Dasar Dasar Pemrograman, khususnya pada Free Pascal.