Kali ini saya akan berbagi tentang membuat menu pilihan pada bahasa pascal menggunakan perintah Procedure dan Label. bagi teman yang punya tugas kampus, biasanya nich yang punya tugas ini mahasiswa semester 1 dan 2,khususnya jurusan komputer, saya share supaya bermanfaat juga untuk sobat, So, kita langsung saja ke Kodingnya, Teman-teman bisa langsung Copy listingnya yang penting di share juga.
Berikut adalah contoh membuat Program menu pilihan menggunakan Bahasa Pemrograman Pascal.Program menu_pilihan;
uses crt;
var
pil:integer;
jawab:char;
label
p1,p2,p3,p4;
procedure gaji;
var
nama:string[35];
ja:integer;
gol:integer;
status:char;
gp,tg,tistri,tanak,tunjangan:real;
begin
writeln('HITUNG GAJI PEGAWAI');
writeln('-------------------');
writeln;
write('Masukkan Nama Pegawai = '); readln(nama);
write('Masukkan Golongan[1/2/3] = ' );readln(gol);
if (gol=1) then
begin
gp:=200000;
end
else if (gol=2) then
begin
gp:=300000;
end
else if (gol=3) then
begin
gp:=400000;
end
else
begin
writeln('Golongan Salah');
gp:=0;
end;
write('Masukkan Status[K/B] = ' ); readln(status);
begin
if (status='K') or (status='k') then
begin
write('Masukkan jumlah anak = ' );readln(ja);
tistri:=(0.50*gp);
tanak:=ja*(0.25*gp);
tunjangan:=tistri+tanak;
tg:=gp+tunjangan;
end
else
begin
tunjangan:=0;
tg:=gp;
end;
end;
writeln;
writeln('Nama Karyawan : ',nama);
writeln('Status : ',status);
writeln('Total Gaji :Rp. ',tg:1:0);
end;
procedure hotel;
var
nama:string[35];
kk:string;
inap,tk:integer;
biaya,diskon,ppn,bayar:real;
begin
writeln('Program HOTEL ');
writeln('--------------');
write('Masukkan nama tamu : ' ); readln(nama);
writeln('Kelas Kamar');
writeln('1.Eko');
writeln('2.Exe');
writeln('3.VIP');
write('Pilih kelas kamar [1/2/3] : '); readln(tk);
if (tk=1) then
begin
kk:='Ekonomi';
biaya:=500000;
end
else if (tk=2) then
begin
kk:='Executive';
biaya:=700000;
end
else if (tk=3) then
begin
kk:='VIP';
biaya:=1000000;
end
else
begin
biaya:=0
end;
write('Lama Menginap : ' ); readln(inap);
if (inap>10) then
begin
diskon:=(2/100)*biaya;
ppn:=(10/100)*biaya;
bayar:=(biaya-diskon)+ppn;
end
else
begin
diskon:=0;
ppn:=0;
bayar:=biaya;
end;
writeln;
writeln('Nama Tamu : ' ,nama);
writeln('Tipe Kamar : ' ,kk);
writeln('Biaya : Rp.' ,biaya:1:0);
writeln('Diskon : Rp.' ,diskon:1:0);
writeln('PPN : Rp.' ,ppn:1:0);
writeln('Total Bayar: Rp.' ,bayar:1:0);
writeln;
end;
procedure penjualan;
var
nb:string;
kb:string;
jumlah:integer;
hs,total,potongan,nbr:real;
begin
write('Masukkan Kode Barang [R33/S44/K55] : '); readln(kb);
if (kb='R33') then
begin
nb:='Ban Radial';
hs:=75000;
end
else if (kb='S44') then
begin
nb:='Sadel';
hs:=50000;
end
else if (kb='K55') then
begin
nb:='Knalpot';
hs:=150000;
end
else
begin
nb:='Tidak Tersedia';
hs:=0;
end;
write('Jumlah terjual : '); readln(jumlah);
total:=jumlah*hs;
if (jumlah>5) or (total>75000) then
begin
potongan:=(8/100)*total;
end
else
begin
potongan:=0;
end;
nbr:=(total)-(potongan);
writeln;
writeln('Nama Barang : ' ,nb);
writeln('Kode barang : ' ,kb);
writeln('Jumlah terjual : ' ,jumlah);
writeln('Harga Satuan :Rp. ' ,hs:1:0);
writeln('Total :Rp. ' ,total:1:0);
writeln('Potongan :Rp. ' ,potongan:1:0);
writeln('Nilai Bersih :Rp. ' ,nbr:1:0);
end;
begin
clrscr;
p1:
writeln('MENU PILIHAN');
WRITELN('------------');
writeln('1. Menghitung Gaji ');
writeln('2. Data Hotel');
writeln('3. Penjualan');
writeln('4. Keluar');
write('Masukkan Pilihan anda [1/2/3/4] : ' ); readln(pil);
if (pil=1) then
begin
CLRSCR;
p2:
gaji;
write('Masih Mau ? [Y/N] : '); readln(jawab);
if (jawab='Y') or (jawab='y') then
begin
goto p2;
end
else
begin
goto p1;
end;
end
else if (pil=2) then
begin
CLRSCR;
p3:
hotel;
write('Masih Mau ? [Y/N] : '); readln(jawab);
if (jawab='Y') or (jawab='y') then
begin
goto p3;
end
else
begin
goto p1;
end;
end
else if (pil=3) then
begin
CLRSCR;
p4:
penjualan;
write('Masih Mau ? [Y/N] : '); readln(jawab);
if (jawab='Y') or (jawab='y') then
begin
goto p4;
end
else
begin
goto p1;
end;
end
else
begin
exit;
end;
readln;
end.
Sekian dulu tutorial cara membuat menu pilihan menggunakan bahasa pascal mudah-mudahan bermanfaat bagi teman-teman, Amiiinnnnn.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :