Program Pascal Membuat Menu

Contoh Program Pascal Membuat Menu dengan Case Of - Hari ini saya akan share contoh aplikasi dari program pascal yaitu membuat menu dengan case of, yang didalamnya terdapat looping, kondisi dll. silahkan disimak jika membutuhkan silahkan dicopy.

Berikut ini adalah scriptnya untuk aplikasi pembuatan menu menggunakan case of dan beberapa tambahan lainnya

uses crt;
label akhir, awal;

var
menu:integer;

    a,b,c,d,e:longint;
    i,n,f:integer;
    V, p, l, t: real;

begin
begin
awal :

clrscr;
gotoxy (33,2); writeln('======Menu======');
gotoxy (13,4);writeln('1. Bilangan Prima');
gotoxy (13,6);writeln('2. Bilangan Faktorial');
gotoxy (13,8);writeln('3. Menghitung Luas Bangun Ruang');
gotoxy (13,10);writeln('0. Selesai');
gotoxy (13,12);write('Pilih Menu No : '); read(menu);
end;

case menu of
1:begin
    clrscr;
    gotoxy (33,2);writeln('===Bilangan Prima===');
    gotoxy (13,4);write('Input Bilangan Prima Sampai Nilai : '); readln(c);
    writeln;
    writeln('Hasilnya Adalah:');
    writeln;
    write('2':7);
    for a:=3 to c do
    begin
    for b:= 2 to a-1 do
    begin
    if a mod b = 0 then begin
    d:=a ; end else begin e:=a; end;end;
    if a=d then
    begin
    b:= a-1;
    end else
    write(e:7);

end;

readln;
goto awal
end;

2:begin
    clrscr;
    gotoxy (33,2);writeln('===Bilangan Faktorial===');
    gotoxy (7,4);write('masukkan nilai n = '); read(n);
    f:=1; i:=0;
    repeat
    i:=i+1;
    f:=f*i;
    until i=n;
    writeln;
    writeln(n,' faktorial = ',f);

readln;
readln;
goto awal
end;

3:begin
    clrscr;
    gotoxy (23,2);writeln('===Menghitung Luas Bangun Ruang===');
    gotoxy (7,4);write (' - Masukan nilai p (panjang) = '); readln (p);
    gotoxy (7,6);write (' - Masukan nilai l (lebar)   = '); readln (l);
    gotoxy (7,8);write (' - Masukan nilai t (tinggi)  = '); readln (t);
    V:=p*l*t;
    writeln ('........................................');
    writeln ('     Jadi Volume Balok =  ',V:10:2,' cm3');

readln;
goto awal
end;

0:begin
clrscr;
  
goto akhir
end;

end;
akhir:
readln;
end.

Itu dia scriptnya, cara copy paste di program pascalnya cukup mudah yaitu pertama buka program pascalnya > kemudian klik kanan pada title bar pascal > edit dan kemudian paste.

Jika masih ada yang bingung bisa langsung berikan komentar dipostingan ini

Terima Kasih.