Contoh program if dan array
Contoh-contoh program pascal
Buatlah program dibawah ini,
I.Sebuah Toko Kue mempunyai daftar menu sebagai berikut :
Kode
Daftar Kue
Harga
1
Bolu Black Forest
60000
2
Chesse Cake
45000
3
Banana Cake
25500
4
Strawbery Cake
35000
II. Rancangan Masukan
DAFTAR MENU TOKO KUE “BUANA”
Bolu Black Forest
Chesse Cake
Banana Cake
Strawbery Cake
_______________________________________
Nama Pembeli = .................
Kode Kue [1/2/3/4] = ......
Jumlah Kue = ......
_______________________________________
III. Rancangan Keluaran
STRUK PEMBAYARAN TOKO KUE “BUANA”
**********************************************
Nama Pembeli = .........
Kode Kue = .........
Nama Kue = .........
Harga kue = Rp.......
Jumlah Kue = Buah
Total Harga = Rp.......
**********************************************
Diskon = Rp.......
**********************************************
Total Bayar = Rp.......
Ketententuan Soal:
1. Total Harga = Jumlah Kue * Harga Kue
2. Jika Jumlah Kue > 20 diskon 20% dari Total Harga , jika Jumlah kue>10 diskon 5 % dari Total Harga,selain itu tidak dapat.
3.Total Bayar = Total Harga – Diskon.
Penyelesaian:
PROGRAM1
program kuebuana;
uses crt;
var
namapembeli, namakue :string;
kodekue, hargakue, jumlahkue, totalharga, discon, totalbayar :real;
begin
clrscr;
writeln('KOMANG BUDIASA');
writeln('2017050013');
writeln('DAFTAR MENU TOKO KUE BUANA');
writeln('1. bolu black forest');
writeln('2. chease cake');
writeln('3. banana cake');
writeln('4. strawbery cake');
write('nama pembeli :');readln(namapembeli);
write('kodekue[1/2/3/4] :');readln(kodekue);
if (kodekue=1) then
begin
namakue :='bolu black forest';
hargakue :=60000;
writeln('namakue :',namakue);
writeln('hargakue :',hargakue:4:0);
writeln('jumlah kue:');readln(jumlahkue);
totalharga :=(jumlahkue*hargakue);
writeln('total harga:',totalharga:4:0);
end
else if (kodekue=2) then
begin
namakue :='chease cake';
hargakue :=45000;
writeln('namakue :',namakue);
writeln('hargakue :',hargakue:4:0);
writeln('jumlah kue:');readln(jumlahkue);
totalharga :=(jumlahkue*hargakue);
writeln('total harga:',totalharga:4:0);
end
else if (kodekue=3) then
begin
namakue :='banana cake';
hargakue :=25500;
writeln('namakue :',namakue);
writeln('hargakue :',hargakue:4:0);
writeln('jumlah kue:');readln(jumlahkue);
totalharga :=(jumlahkue*hargakue);
writeln('total harga:',totalharga:4:0);
end
else if (kodekue=4) then
begin
namakue :='strawbery cake';
hargakue :=35000;
writeln('namakue :',namakue);
writeln('hargakue :',hargakue:4:0);
writeln('jumlah kue:');readln(jumlahkue);
totalharga :=(jumlahkue*hargakue);
writeln('total harga:',totalharga:4:0);
end;
writeln('====================================================');
if jumlahkue >=20 then
begin
writeln('anda mendapatkan discon sebesar 20% karna jumlah kue yang anda beli mencapai 20 buah');
discon:=20/100*totalharga;
writeln('discon : ',discon:4:0);
totalbayar:=(totalharga - discon);
writeln('total bayar anda:',totalbayar:4:0);
end
else if jumlahkue >=10 then
begin
writeln('selamat anda mendapatkan discon 5% ');
discon:=5/100*totalharga;
writeln('discon :',discon:4:0);
totalbayar:=(totalharga - discon);
writeln('total bayar anda :',totalbayar:4:0);
end
else if jumlahkue <=10 then
begin
writeln('maaf anda tidak beruntungang');
end;
end.
Buatlah program dibawah ini
Sebuah penginapan mempunyai ketentuan tarif sewa kamar sebagai berikut:
Kode Kamar
Nama Kamar
Kode Kelas
Kategori
Harga / Malam
A
ANYELIR
1
VIP
350.000
2
KELAS 1
250.000
3
KELAS 2
150.000
C
CEMPAKA
1
VIP
500.000
2
KELAS 1
400.000
3
KELAS 2
300.000
M
MELATI
1
VIP
1.000.000
2
KELAS 1
750.000
3
KELAS 2
650.000
II. Rancangan Masukan
Buatlah program dengan Input sbb:
HOTEL PONDOK INDAH
**********************************
Nama penyewa = .................
Kode Kamar [A/C/M] = .................
Kode Kelas [1/2/3] = .................
Lama menginap = .... Hari
**********************************
III. Rancangan Keluaran
Outputnya adalah sebagai berikut:
HOTEL PONDOK INDAH
**************************************
Nama penyewa = .................
Nama Kamar = .................
Kategori = .................
Lama menginap = ..... hari
Biaya Sewa = Rp ..............
Biaya Administrasi = Rp ..............
Total Biaya Sewa = Rp ..............
**************************************
Souvenir = .................
Ketentuan Soal:
Untuk penyewaan kamar lebih dari 1 minggu maka akan mendapat souvenir “Free Lunch”.
Total Biaya Sewa adalah Biaya sewa penginapan ditambah dengan biaya administrasi sebesar Rp 75.000.
Biaya Sewa = Harga* Lama Inap
Total Biaya Sewa = Biaya Sewa + Biaya Administrasi
PROGRAM2.
program hotelpondok;
uses crt;
var
namapenyewa, namakamar, kategory, kodekamar :string;
kodekelas, lamainap, kelas, biayasewa, hargakamar, biayaadministrasi, totalbiaya :real;
begin
clrscr;
writeln(' HOTEL PONDOK INDAH ');
writeln('*************************************');
write('masukan nama anda :');readln(namapenyewa);
write('kode kamar A/C/M :');readln(kodekamar);
if (kodekamar='A') then
begin
namakamar :='anyelir';
writeln('nama kamar :',namakamar);
write('masukan kode kelas 1/2/3:');readln(kodekelas);
if(kodekelas=1) then
begin
kategory:='VIP';
hargakamar:=350000;
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
end
else if(kodekelas=2) then
begin
kategory:='kelas1';
hargakamar:=250000;
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
end
else if(kodekelas=3) then
begin
kategory:='kelas2';
hargakamar:=150000;
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
writeln('**********************************************');
end;
end
else if (kodekamar='C') then
begin
namakamar :='cempaka';
writeln('nama kamar :',namakamar);
write('masukan kode kelas 1/2/3:');readln(kodekelas);
if (kodekelas=1) then
begin
kategory :='VIP';
hargakamar :=500000;
writeln('kode kelas kamar :',kodekelas:2:0);
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
end
else if (kodekelas=2) then
begin
kategory :='kelas1';
hargakamar :=400000;
writeln('kode kelas kamar :',kodekelas:2:0);
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
end
else if (kodekelas=3) then
begin
kategory :='kelas2';
hargakamar :=300000;
writeln('kode kelas kamar :',kodekelas:2:0);
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
writeln('*******************************************');
end;
end
else if (kodekamar='M') then
begin
namakamar :='melati';
writeln('nama kamar :',namakamar);
write('masukan kode kelas 1/2/3 :');readln(kodekelas);
if (kodekelas=1) then
begin
kategory :='VIP';
hargakamar :=1000000;
writeln('nama kamar :',namakamar);
writeln('kode kelas kamar :',kodekelas:2:0);
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
end
else if (kodekelas=2) then
begin
kategory :='kelas1';
hargakamar :=750000;
writeln('kode kelas kamar :',kodekelas:2:0);
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
end
else if (kodekelas=3) then
begin
kategory :='kelas2';
hargakamar :=650000;
writeln('kode kelas kamar :',kodekelas:2:0);
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
writeln('***************************************');
end
end;
WRITELN('************************************************************');
if lamainap >=7 then
begin
writeln('selamat anda mendapatkan souvenir free lunch');
end
end.
Buatlah program dibawah ini
Input:
===============================
Toko Bunga Harum Sari
-------------------------------
Nama Pembeli :
Kode Bunga [1/2] :
Jasa Pengiriman [A/B] :
Jumlah Beli :
--------------------------------
Output:
===============================
Toko Bunga Harum Sari
-------------------------------
Nama Pembeli :
Nama Bunga :
Harga :
Jumlah Beli :
Jenis Pengiriman:
Biaya Kirim :
Total Bayar :
Bonusnya :
-------------------------------
Ketentuan Soal:
Kode Bunga
Kode Bunga
Nama Bunga
Harga
1
Anggrek
15.000
2
Melati
10.000
Kode Jasa
Kode Jasa
Jasa
Biaya Kirim
A
Kurir
25.000
B
POS
5.000
Total Bayar = harga*jubel;
Bonus :
Total Bayar
Jasa
Bonus
>=250.000
Kurir
1 Pot Bunga
POS
10 Tangkai Bunga
>=150.000
Kurir
5 Tangkai Bunga
POS
2 Tangkai Bunga
Selain itu
Kurir
No Bonus
POS
PROGRAM3
program toko_bunga;
uses crt;
var
namapembeli, kodep, namabunga :string;
harga, kodeb, totalbayarkeseluruhan, biayakirim, jumlahbeli, totalbayar, bonus:real;
begin
clrscr;
write('Nama pembeli :');readln(namapembeli);
write('masukan kode bunga 1/2 :');readln(kodeb);
if (kodeb=1) then
begin
namabunga:='anggrek';
harga:=15000;
writeln('nama bunga :',namabunga);
writeln('harga :',harga:4:0);
writeln('jumlah beli :');readln(jumlahbeli);
totalbayar:=(harga * jumlahbeli);
writeln('total bayar :',totalbayar:4:0);
end
else if (kodeb=2) then
begin
namabunga:='melati';
harga:=10000;
writeln('nama bunga :',namabunga);
writeln('harga :',harga:4:0);
writeln('jumlah beli :');readln(jumlahbeli);
totalbayar:=(harga * jumlahbeli);
writeln('total bayar :',totalbayar:4:0);
end;
writeln('========================');
writeln('jenis pengiriman yang tersedia');
writeln('-----------------------------------------------');
writeln('|kode |jasa | biaya kirim |');
writeln('-----------------------------------------------');
writeln('| A |kurir | Rp. 25.000 |');
writeln('| B |pos | Rp. 5.000 |');
writeln('-----------------------------------------------');
write('masukan kode pengiriman A/B :');readln(kodep);
if (kodep='A') then
begin
writeln('kurir');
biayakirim:=25000;
writeln('biaya kirim :',biayakirim:4:0);
totalbayarkeseluruhan:=(totalbayar + biayakirim);
writeln('total pembayaran anda :',totalbayarkeseluruhan:4:0);
end
else if (kodep='B') then
begin
writeln('pos');
biayakirim:=5000;
writeln('biaya kirim :',biayakirim:4:0);
totalbayarkeseluruhan:=(totalbayar + biayakirim);
writeln('total pembayaran anda :',totalbayarkeseluruhan:4:0);
end;
writeln('=========================================');
if (totalbayarkeseluruhan >=250000) then
begin
writeln('SELAMAT ANDA MENDAPATKAN BONUS KARNA PEMBELIAN ANDA MELEBIHI STANDAR');
writeln('----------------------------------------------------');
writeln('|total |jasa | bonus |');
writeln('----------------------------------------------------');
writeln('|>=Rp.250.000 |kurir | 1 pot bunga |');
writeln('| |pos | 10 tangkai bunga|');
writeln('----------------------------------------------------');
end
else if (totalbayarkeseluruhan >=150000) then
begin
writeln('SELAMAT ANDA MENDAPATKAN BONUS KARNA PEMBELIAN ANDA MELEBIHI STANDAR');
writeln('--------------------------------------------------');
writeln('|total |jasa | bonus |');
writeln('--------------------------------------------------');
writeln('|>=Rp.150.000 |kurir | 5 tangkai bunga|');
writeln('| |pos | 2 tangkai bunga|');
writeln('--------------------------------------------------');
end
else if (totalbayarkeseluruhan <=150000) then
begin
writeln('-------------------------------------------------');
writeln('|total |jasa | bonus |');
writeln('--------------------------------------------------');
writeln('|<=Rp.150.000 |kurir | No bonus |');
writeln('| |pos | |');
writeln('--------------------------------------------------');
writeln('maaf anda tidak mendapatkan bonus karna total pembelian anda kurang dari 150000');
end;
end.
PROGRAM4
program rental;
uses crt;
var
nama, jenismobil : string;
kode, hargasewa, lamasewa, subtotal, bayar, kembalian, discon, total :real;
lagi : char;
begin
clrscr;
lagi:='Y';
while lagi='Y'do
begin
clrscr;
write('nama penyewa :');readln(nama);
writeln('---------------------------------------');
writeln('kode jenis mobil harga sewa/hari');
writeln('1 sedan Rp.350.000');
writeln('2 minibus Rp.500.000');
writeln('3 bus Rp.800.000');
writeln('---------------------------------------');
write('masukan kode mobil[1/2/3] :');readln(kode);
if (kode=1) then
begin
jenismobil:='sedan';
hargasewa:=350000;
writeln('jenis mobil :',jenismobil);
writeln('harga sewa :',hargasewa:4:0);
write('lama sewa :');readln(lamasewa);
subtotal:=(hargasewa * lamasewa);
writeln('sub total :',subtotal:4:0);
end
else if (kode=2) then
begin
jenismobil:='minibus';
hargasewa:=500000;
writeln('jenis mobil :',jenismobil);
writeln('harga sewa :',hargasewa:4:0);
write('lama sewa : ');readln(lamasewa);
subtotal:=(hargasewa * lamasewa);
writeln('sub total :',subtotal:4:0);
end
else if (kode=3) then
begin
jenismobil:='bus';
hargasewa:=800000;
writeln('jenis mobil :',jenismobil);
writeln('harga sewa :',hargasewa:4:0);
write('lama sewa : ');readln(lamasewa);
subtotal:=(hargasewa * lamasewa);
writeln('sub total :',subtotal:4:0);
end;
writeln('----------------------------------------');
if (lamasewa>=14) then
begin
discon:=(30/100*subtotal);
total:=(subtotal - discon);
writeln('selamat anda mendapatkan discon 30%');
writeln('anda mendapatkan discon :',discon:4:0);
writeln('total bayar anda sebanyak :',total:4:0);
end
else if (lamasewa>=7) then
begin
discon:=(20/100*subtotal);
total:=(subtotal - discon);
writeln('selamat anda mendapatkan discon 20%');
writeln('anda mendapatkan discon :',discon:4:0);
writeln('total bayar anda sebanyak :',total:4:0);
end
else if (lamasewa>=3) then
begin
discon:=(10/100*subtotal);
total:=(subtotal - discon);
writeln('selamat anda mendapatkan discon 10%');
writeln('anda mendapatkan discon :',discon:4:0);
writeln('total bayar anda sebanyak :',total:4:0);
end
else if (lamasewa<=3) then
begin
discon:=(0*subtotal);
total:=(subtotal - discon);
writeln('selamat anda mendapatkan discon 0%');
writeln('anda mendapatkan discon :',discon:4:0);
writeln('total bayar anda sebanyak :',total:4:0);
writeln('maaf anda tidak mendapatkan discon karna lama sewa anda kurang dari 3 hari');
end;
writeln('------------------------------------');
write('uang tunai :');readln(bayar);
kembalian:=(bayar - total);
writeln('total uang kembali :',kembalian:4:0);
writeln('anda ingin isi data lagi(Y/T)?');readln(lagi);
lagi:=UPCASE(lagi);
end;
end.
PROGRAM5
program koran;
uses crt;
var
hari, namaagen, namaharian :string;
harga, jumlahambil, kodeharian, jumlahkembali, jumlahterjual, totalbayar:real;
lagi :char;
begin
clrscr;
lagi:='Y';
while lagi='Y'do
begin
clrscr;
writeln(' AGEN DISTRIBUSI KORAN ');
writeln(' TRIBUN TIMUR ');
writeln('--------------------------------------------');
writeln('hari :senin 27 juni 2018');
writeln('nama agen :Komang Budiasa');
writeln('--------------------------------------------');
write('masukan kode harian [1/2/3] :');readln(kodeharian);
if kodeharian=1 then
begin
namaharian :='kompas';
harga :=4000;
writeln('nama harian :',namaharian);
writeln('harga :',harga:4:0);
write('jumlah yang diambil :');readln(jumlahambil);
write('jumlah yang kembali :');readln(jumlahkembali);
jumlahterjual:=(jumlahambil - jumlahkembali);
writeln('jumlah terjual sebanyak :',jumlahterjual:4:0);
writeln('--------------------------------------------');
totalbayar:=(jumlahterjual*harga);
writeln('total pembayaran adalah :Rp.',totalbayar:4:0);
end
else if kodeharian=2 then
begin
namaharian:='bola';
harga :=6000;
writeln('nama harian :',namaharian);
writeln('harga :',harga:4:0);
write('jumlah yang diambil :');readln(jumlahambil);
write('jumlah yang kembali :');readln(jumlahkembali);
jumlahterjual:=(jumlahambil - jumlahkembali);
writeln('jumlah terjual sebanyak :',jumlahterjual:4:0);
writeln('--------------------------------------------');
totalbayar:=(jumlahterjual*harga);
writeln('total pembayaran adalah :Rp.',totalbayar:4:0);
end
else if kodeharian=3 then
begin
namaharian:='tempo';
harga :=3000;
writeln('nama harian :',namaharian);
writeln('harga :',harga:4:0);
write('jumlah yang diambil :');readln(jumlahambil);
write('jumlah yang kembali :');readln(jumlahkembali);
jumlahterjual:=(jumlahambil - jumlahkembali);
writeln('jumlah terjual sebanyak :',jumlahterjual:4:0);
writeln('--------------------------------------------');
totalbayar:=(jumlahterjual*harga);
writeln('total pembayaran adalah :Rp.',totalbayar:4:0);
writeln('--------------------------------------------');
end;
write('mau isi data lagi [Y/T]?');readln(lagi);
lagi:=UPCASE(lagi);
end;
end.
PROGRAM6
program LATIHAN6;
uses crt;
type a=record
kode: string;
namape:string;
jum_bel :integer;
harga_tikot:real;
total:real;
diskon:real;
ppn:real;
juba:real;
end;
var juda:array[1..100] of a;
i,n,x:integer;
nama:string;
total1,diskon1,pajak1,jumlah1,bayar:real;
toba:real;
function tota(harga_tikot,jum_bel:real; var total1:real):real;
begin
total1:=jum_bel*harga_tikot;
tota:=total1;
end;
function disc(jum_bel,total:real; var diskon1:real):real;
begin
if jum_bel>10 then
begin
diskon1:=total*0.1;
end
else
begin
diskon1:=total*0;
end;
disc:=diskon1;
end;
function pajak(total:real; var pajak1:real):real;
begin
pajak1:=total1*0.1;
pajak:=pajak1;
end;
function jumlah(ppn,total,diskon:real; var jumlah1:real):real;
begin
jumlah1:=total-diskon+ppn;
jumlah:=jumlah1;
end;
function totbay(juba:real; var toba:real):real;
begin
toba:=toba+juba;
totbay:=toba;
end;
begin
clrscr;
gotoxy(15,1);writeln('program penjualan tiket pesawat');
gotoxy(23,2);writeln('komang TRAVEL');
gotoxy(11,3);writeln('jln.nusa tamanlanrea indah no.2 tlp.042883');
writeln('---------------------------------------------------------------');
write('masukan nama penumpang :');readln(nama);
write('masukan jumlah data :');readln(n);
writeln('---------------------------------------------------------------');
for i:=1 to n do
with juda[i] do
begin
writeln('Data ke-',i);
write('masukan kode pesawat :');readln(kode);
if (kode='GI') or (kode='gi') then
begin
namape:='Garuda Indonesia';
harga_tikot:=250000;
end
else if (kode='MN') or (kode='mn') then
begin
namape:='Mandala';
harga_tikot:=180000;
end
else if (kode='LA') or (kode='la') then
begin
namape:='Lion Air';
harga_tikot:=275000;
end
else if (kode='BR') or (kode='br') then
begin
namape:='Bouroq';
harga_tikot:=165000;
end;
writeln(' Nama pesawat :',namape);
writeln(' harga pesawat :',harga_tikot:4:0);
write('masukan jumlah tiket :');readln(jum_bel);
writeln('total :Rp.',tota(harga_tikot,jum_bel,total1):4:0);
total:=tota(harga_tikot,jum_bel,total1);
writeln('diskon :Rp.',disc(jum_bel,total1,diskon1):4:0);
diskon:=disc(jum_bel,total1,diskon1);
writeln('PPN :Rp.',pajak(total1,pajak1):4:0);
ppn:=pajak(total1,pajak1);
writeln('------------------------------------------------------------');
readkey;
end;
clrscr;
gotoxy(26,1);writeln('program penjualan tiket pesawat');
gotoxy(36,2);writeln('komang TRAVEL');
gotoxy(23,3);writeln('jln.nusa tamanlanrea indah no.2 tlp.042883');
gotoxy(1,5);writeln('--------------------------------------------------------------------------------');
gotoxy(1,6);writeln('Nama Penumpang :',nama);
gotoxy(1,7);writeln('--------------------------------------------------------------------------------');
gotoxy(1,8);writeln('No kode nama harga total diskon PPN Jumlah bayar ');
gotoxy(1,9);writeln(' pesawat pesawat tiket ');
gotoxy(1,10);writeln('-------------------------------------------------------------------------------');
for i:=1 to n do
with juda[i] do
begin
gotoxy(1,11+i);writeln(i);
gotoxy(7,11+i);writeln(kode);
gotoxy(14,11+i);writeln(namape);
gotoxy(32,11+i);writeln(harga_tikot:0:0);
gotoxy(40,11+i);writeln(total:0:0);
gotoxy(51,11+i);writeln(diskon:0:0);
gotoxy(60,11+i);writeln(ppn:0:0);
gotoxy(70,11+i);writeln(jumlah(ppn,total,diskon,jumlah1):0:0);
juba:=jumlah(ppn,total,diskon,jumlah1);
bayar:=totbay(juba,toba);
end;
writeln('--------------------------------------------------------------------------------------------');
writeln(' Total Bayar :',bayar:0:0);
readkey;
end.
Buatlah program dibawah ini,
I.Sebuah Toko Kue mempunyai daftar menu sebagai berikut :
Kode
Daftar Kue
Harga
1
Bolu Black Forest
60000
2
Chesse Cake
45000
3
Banana Cake
25500
4
Strawbery Cake
35000
II. Rancangan Masukan
DAFTAR MENU TOKO KUE “BUANA”
Bolu Black Forest
Chesse Cake
Banana Cake
Strawbery Cake
_______________________________________
Nama Pembeli = .................
Kode Kue [1/2/3/4] = ......
Jumlah Kue = ......
_______________________________________
III. Rancangan Keluaran
STRUK PEMBAYARAN TOKO KUE “BUANA”
**********************************************
Nama Pembeli = .........
Kode Kue = .........
Nama Kue = .........
Harga kue = Rp.......
Jumlah Kue = Buah
Total Harga = Rp.......
**********************************************
Diskon = Rp.......
**********************************************
Total Bayar = Rp.......
Ketententuan Soal:
1. Total Harga = Jumlah Kue * Harga Kue
2. Jika Jumlah Kue > 20 diskon 20% dari Total Harga , jika Jumlah kue>10 diskon 5 % dari Total Harga,selain itu tidak dapat.
3.Total Bayar = Total Harga – Diskon.
Penyelesaian:
PROGRAM1
program kuebuana;
uses crt;
var
namapembeli, namakue :string;
kodekue, hargakue, jumlahkue, totalharga, discon, totalbayar :real;
begin
clrscr;
writeln('KOMANG BUDIASA');
writeln('2017050013');
writeln('DAFTAR MENU TOKO KUE BUANA');
writeln('1. bolu black forest');
writeln('2. chease cake');
writeln('3. banana cake');
writeln('4. strawbery cake');
write('nama pembeli :');readln(namapembeli);
write('kodekue[1/2/3/4] :');readln(kodekue);
if (kodekue=1) then
begin
namakue :='bolu black forest';
hargakue :=60000;
writeln('namakue :',namakue);
writeln('hargakue :',hargakue:4:0);
writeln('jumlah kue:');readln(jumlahkue);
totalharga :=(jumlahkue*hargakue);
writeln('total harga:',totalharga:4:0);
end
else if (kodekue=2) then
begin
namakue :='chease cake';
hargakue :=45000;
writeln('namakue :',namakue);
writeln('hargakue :',hargakue:4:0);
writeln('jumlah kue:');readln(jumlahkue);
totalharga :=(jumlahkue*hargakue);
writeln('total harga:',totalharga:4:0);
end
else if (kodekue=3) then
begin
namakue :='banana cake';
hargakue :=25500;
writeln('namakue :',namakue);
writeln('hargakue :',hargakue:4:0);
writeln('jumlah kue:');readln(jumlahkue);
totalharga :=(jumlahkue*hargakue);
writeln('total harga:',totalharga:4:0);
end
else if (kodekue=4) then
begin
namakue :='strawbery cake';
hargakue :=35000;
writeln('namakue :',namakue);
writeln('hargakue :',hargakue:4:0);
writeln('jumlah kue:');readln(jumlahkue);
totalharga :=(jumlahkue*hargakue);
writeln('total harga:',totalharga:4:0);
end;
writeln('====================================================');
if jumlahkue >=20 then
begin
writeln('anda mendapatkan discon sebesar 20% karna jumlah kue yang anda beli mencapai 20 buah');
discon:=20/100*totalharga;
writeln('discon : ',discon:4:0);
totalbayar:=(totalharga - discon);
writeln('total bayar anda:',totalbayar:4:0);
end
else if jumlahkue >=10 then
begin
writeln('selamat anda mendapatkan discon 5% ');
discon:=5/100*totalharga;
writeln('discon :',discon:4:0);
totalbayar:=(totalharga - discon);
writeln('total bayar anda :',totalbayar:4:0);
end
else if jumlahkue <=10 then
begin
writeln('maaf anda tidak beruntungang');
end;
end.
Buatlah program dibawah ini
Sebuah penginapan mempunyai ketentuan tarif sewa kamar sebagai berikut:
Kode Kamar
Nama Kamar
Kode Kelas
Kategori
Harga / Malam
A
ANYELIR
1
VIP
350.000
2
KELAS 1
250.000
3
KELAS 2
150.000
C
CEMPAKA
1
VIP
500.000
2
KELAS 1
400.000
3
KELAS 2
300.000
M
MELATI
1
VIP
1.000.000
2
KELAS 1
750.000
3
KELAS 2
650.000
II. Rancangan Masukan
Buatlah program dengan Input sbb:
HOTEL PONDOK INDAH
**********************************
Nama penyewa = .................
Kode Kamar [A/C/M] = .................
Kode Kelas [1/2/3] = .................
Lama menginap = .... Hari
**********************************
III. Rancangan Keluaran
Outputnya adalah sebagai berikut:
HOTEL PONDOK INDAH
**************************************
Nama penyewa = .................
Nama Kamar = .................
Kategori = .................
Lama menginap = ..... hari
Biaya Sewa = Rp ..............
Biaya Administrasi = Rp ..............
Total Biaya Sewa = Rp ..............
**************************************
Souvenir = .................
Ketentuan Soal:
Untuk penyewaan kamar lebih dari 1 minggu maka akan mendapat souvenir “Free Lunch”.
Total Biaya Sewa adalah Biaya sewa penginapan ditambah dengan biaya administrasi sebesar Rp 75.000.
Biaya Sewa = Harga* Lama Inap
Total Biaya Sewa = Biaya Sewa + Biaya Administrasi
PROGRAM2.
program hotelpondok;
uses crt;
var
namapenyewa, namakamar, kategory, kodekamar :string;
kodekelas, lamainap, kelas, biayasewa, hargakamar, biayaadministrasi, totalbiaya :real;
begin
clrscr;
writeln(' HOTEL PONDOK INDAH ');
writeln('*************************************');
write('masukan nama anda :');readln(namapenyewa);
write('kode kamar A/C/M :');readln(kodekamar);
if (kodekamar='A') then
begin
namakamar :='anyelir';
writeln('nama kamar :',namakamar);
write('masukan kode kelas 1/2/3:');readln(kodekelas);
if(kodekelas=1) then
begin
kategory:='VIP';
hargakamar:=350000;
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
end
else if(kodekelas=2) then
begin
kategory:='kelas1';
hargakamar:=250000;
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
end
else if(kodekelas=3) then
begin
kategory:='kelas2';
hargakamar:=150000;
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
writeln('**********************************************');
end;
end
else if (kodekamar='C') then
begin
namakamar :='cempaka';
writeln('nama kamar :',namakamar);
write('masukan kode kelas 1/2/3:');readln(kodekelas);
if (kodekelas=1) then
begin
kategory :='VIP';
hargakamar :=500000;
writeln('kode kelas kamar :',kodekelas:2:0);
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
end
else if (kodekelas=2) then
begin
kategory :='kelas1';
hargakamar :=400000;
writeln('kode kelas kamar :',kodekelas:2:0);
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
end
else if (kodekelas=3) then
begin
kategory :='kelas2';
hargakamar :=300000;
writeln('kode kelas kamar :',kodekelas:2:0);
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
writeln('*******************************************');
end;
end
else if (kodekamar='M') then
begin
namakamar :='melati';
writeln('nama kamar :',namakamar);
write('masukan kode kelas 1/2/3 :');readln(kodekelas);
if (kodekelas=1) then
begin
kategory :='VIP';
hargakamar :=1000000;
writeln('nama kamar :',namakamar);
writeln('kode kelas kamar :',kodekelas:2:0);
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
end
else if (kodekelas=2) then
begin
kategory :='kelas1';
hargakamar :=750000;
writeln('kode kelas kamar :',kodekelas:2:0);
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
end
else if (kodekelas=3) then
begin
kategory :='kelas2';
hargakamar :=650000;
writeln('kode kelas kamar :',kodekelas:2:0);
writeln('kategory kamar :',kategory);
writeln('harga kamar :',hargakamar:4:0);
write('lama menginap :');readln(lamainap);
biayasewa :=(hargakamar * lamainap);
writeln('biaya sewa kamar :',biayasewa:4:0);
writeln('biaya administrasi dikenakan sebesar 75000');
totalbiaya :=(biayasewa + 75000);
writeln('total biaya sewa kamar anda adalah :',totalbiaya:4:0);
writeln('***************************************');
end
end;
WRITELN('************************************************************');
if lamainap >=7 then
begin
writeln('selamat anda mendapatkan souvenir free lunch');
end
end.
Buatlah program dibawah ini
Input:
===============================
Toko Bunga Harum Sari
-------------------------------
Nama Pembeli :
Kode Bunga [1/2] :
Jasa Pengiriman [A/B] :
Jumlah Beli :
--------------------------------
Output:
===============================
Toko Bunga Harum Sari
-------------------------------
Nama Pembeli :
Nama Bunga :
Harga :
Jumlah Beli :
Jenis Pengiriman:
Biaya Kirim :
Total Bayar :
Bonusnya :
-------------------------------
Ketentuan Soal:
Kode Bunga
Kode Bunga
Nama Bunga
Harga
1
Anggrek
15.000
2
Melati
10.000
Kode Jasa
Kode Jasa
Jasa
Biaya Kirim
A
Kurir
25.000
B
POS
5.000
Total Bayar = harga*jubel;
Bonus :
Total Bayar
Jasa
Bonus
>=250.000
Kurir
1 Pot Bunga
POS
10 Tangkai Bunga
>=150.000
Kurir
5 Tangkai Bunga
POS
2 Tangkai Bunga
Selain itu
Kurir
No Bonus
POS
PROGRAM3
program toko_bunga;
uses crt;
var
namapembeli, kodep, namabunga :string;
harga, kodeb, totalbayarkeseluruhan, biayakirim, jumlahbeli, totalbayar, bonus:real;
begin
clrscr;
write('Nama pembeli :');readln(namapembeli);
write('masukan kode bunga 1/2 :');readln(kodeb);
if (kodeb=1) then
begin
namabunga:='anggrek';
harga:=15000;
writeln('nama bunga :',namabunga);
writeln('harga :',harga:4:0);
writeln('jumlah beli :');readln(jumlahbeli);
totalbayar:=(harga * jumlahbeli);
writeln('total bayar :',totalbayar:4:0);
end
else if (kodeb=2) then
begin
namabunga:='melati';
harga:=10000;
writeln('nama bunga :',namabunga);
writeln('harga :',harga:4:0);
writeln('jumlah beli :');readln(jumlahbeli);
totalbayar:=(harga * jumlahbeli);
writeln('total bayar :',totalbayar:4:0);
end;
writeln('========================');
writeln('jenis pengiriman yang tersedia');
writeln('-----------------------------------------------');
writeln('|kode |jasa | biaya kirim |');
writeln('-----------------------------------------------');
writeln('| A |kurir | Rp. 25.000 |');
writeln('| B |pos | Rp. 5.000 |');
writeln('-----------------------------------------------');
write('masukan kode pengiriman A/B :');readln(kodep);
if (kodep='A') then
begin
writeln('kurir');
biayakirim:=25000;
writeln('biaya kirim :',biayakirim:4:0);
totalbayarkeseluruhan:=(totalbayar + biayakirim);
writeln('total pembayaran anda :',totalbayarkeseluruhan:4:0);
end
else if (kodep='B') then
begin
writeln('pos');
biayakirim:=5000;
writeln('biaya kirim :',biayakirim:4:0);
totalbayarkeseluruhan:=(totalbayar + biayakirim);
writeln('total pembayaran anda :',totalbayarkeseluruhan:4:0);
end;
writeln('=========================================');
if (totalbayarkeseluruhan >=250000) then
begin
writeln('SELAMAT ANDA MENDAPATKAN BONUS KARNA PEMBELIAN ANDA MELEBIHI STANDAR');
writeln('----------------------------------------------------');
writeln('|total |jasa | bonus |');
writeln('----------------------------------------------------');
writeln('|>=Rp.250.000 |kurir | 1 pot bunga |');
writeln('| |pos | 10 tangkai bunga|');
writeln('----------------------------------------------------');
end
else if (totalbayarkeseluruhan >=150000) then
begin
writeln('SELAMAT ANDA MENDAPATKAN BONUS KARNA PEMBELIAN ANDA MELEBIHI STANDAR');
writeln('--------------------------------------------------');
writeln('|total |jasa | bonus |');
writeln('--------------------------------------------------');
writeln('|>=Rp.150.000 |kurir | 5 tangkai bunga|');
writeln('| |pos | 2 tangkai bunga|');
writeln('--------------------------------------------------');
end
else if (totalbayarkeseluruhan <=150000) then
begin
writeln('-------------------------------------------------');
writeln('|total |jasa | bonus |');
writeln('--------------------------------------------------');
writeln('|<=Rp.150.000 |kurir | No bonus |');
writeln('| |pos | |');
writeln('--------------------------------------------------');
writeln('maaf anda tidak mendapatkan bonus karna total pembelian anda kurang dari 150000');
end;
end.
PROGRAM4
program rental;
uses crt;
var
nama, jenismobil : string;
kode, hargasewa, lamasewa, subtotal, bayar, kembalian, discon, total :real;
lagi : char;
begin
clrscr;
lagi:='Y';
while lagi='Y'do
begin
clrscr;
write('nama penyewa :');readln(nama);
writeln('---------------------------------------');
writeln('kode jenis mobil harga sewa/hari');
writeln('1 sedan Rp.350.000');
writeln('2 minibus Rp.500.000');
writeln('3 bus Rp.800.000');
writeln('---------------------------------------');
write('masukan kode mobil[1/2/3] :');readln(kode);
if (kode=1) then
begin
jenismobil:='sedan';
hargasewa:=350000;
writeln('jenis mobil :',jenismobil);
writeln('harga sewa :',hargasewa:4:0);
write('lama sewa :');readln(lamasewa);
subtotal:=(hargasewa * lamasewa);
writeln('sub total :',subtotal:4:0);
end
else if (kode=2) then
begin
jenismobil:='minibus';
hargasewa:=500000;
writeln('jenis mobil :',jenismobil);
writeln('harga sewa :',hargasewa:4:0);
write('lama sewa : ');readln(lamasewa);
subtotal:=(hargasewa * lamasewa);
writeln('sub total :',subtotal:4:0);
end
else if (kode=3) then
begin
jenismobil:='bus';
hargasewa:=800000;
writeln('jenis mobil :',jenismobil);
writeln('harga sewa :',hargasewa:4:0);
write('lama sewa : ');readln(lamasewa);
subtotal:=(hargasewa * lamasewa);
writeln('sub total :',subtotal:4:0);
end;
writeln('----------------------------------------');
if (lamasewa>=14) then
begin
discon:=(30/100*subtotal);
total:=(subtotal - discon);
writeln('selamat anda mendapatkan discon 30%');
writeln('anda mendapatkan discon :',discon:4:0);
writeln('total bayar anda sebanyak :',total:4:0);
end
else if (lamasewa>=7) then
begin
discon:=(20/100*subtotal);
total:=(subtotal - discon);
writeln('selamat anda mendapatkan discon 20%');
writeln('anda mendapatkan discon :',discon:4:0);
writeln('total bayar anda sebanyak :',total:4:0);
end
else if (lamasewa>=3) then
begin
discon:=(10/100*subtotal);
total:=(subtotal - discon);
writeln('selamat anda mendapatkan discon 10%');
writeln('anda mendapatkan discon :',discon:4:0);
writeln('total bayar anda sebanyak :',total:4:0);
end
else if (lamasewa<=3) then
begin
discon:=(0*subtotal);
total:=(subtotal - discon);
writeln('selamat anda mendapatkan discon 0%');
writeln('anda mendapatkan discon :',discon:4:0);
writeln('total bayar anda sebanyak :',total:4:0);
writeln('maaf anda tidak mendapatkan discon karna lama sewa anda kurang dari 3 hari');
end;
writeln('------------------------------------');
write('uang tunai :');readln(bayar);
kembalian:=(bayar - total);
writeln('total uang kembali :',kembalian:4:0);
writeln('anda ingin isi data lagi(Y/T)?');readln(lagi);
lagi:=UPCASE(lagi);
end;
end.
PROGRAM5
program koran;
uses crt;
var
hari, namaagen, namaharian :string;
harga, jumlahambil, kodeharian, jumlahkembali, jumlahterjual, totalbayar:real;
lagi :char;
begin
clrscr;
lagi:='Y';
while lagi='Y'do
begin
clrscr;
writeln(' AGEN DISTRIBUSI KORAN ');
writeln(' TRIBUN TIMUR ');
writeln('--------------------------------------------');
writeln('hari :senin 27 juni 2018');
writeln('nama agen :Komang Budiasa');
writeln('--------------------------------------------');
write('masukan kode harian [1/2/3] :');readln(kodeharian);
if kodeharian=1 then
begin
namaharian :='kompas';
harga :=4000;
writeln('nama harian :',namaharian);
writeln('harga :',harga:4:0);
write('jumlah yang diambil :');readln(jumlahambil);
write('jumlah yang kembali :');readln(jumlahkembali);
jumlahterjual:=(jumlahambil - jumlahkembali);
writeln('jumlah terjual sebanyak :',jumlahterjual:4:0);
writeln('--------------------------------------------');
totalbayar:=(jumlahterjual*harga);
writeln('total pembayaran adalah :Rp.',totalbayar:4:0);
end
else if kodeharian=2 then
begin
namaharian:='bola';
harga :=6000;
writeln('nama harian :',namaharian);
writeln('harga :',harga:4:0);
write('jumlah yang diambil :');readln(jumlahambil);
write('jumlah yang kembali :');readln(jumlahkembali);
jumlahterjual:=(jumlahambil - jumlahkembali);
writeln('jumlah terjual sebanyak :',jumlahterjual:4:0);
writeln('--------------------------------------------');
totalbayar:=(jumlahterjual*harga);
writeln('total pembayaran adalah :Rp.',totalbayar:4:0);
end
else if kodeharian=3 then
begin
namaharian:='tempo';
harga :=3000;
writeln('nama harian :',namaharian);
writeln('harga :',harga:4:0);
write('jumlah yang diambil :');readln(jumlahambil);
write('jumlah yang kembali :');readln(jumlahkembali);
jumlahterjual:=(jumlahambil - jumlahkembali);
writeln('jumlah terjual sebanyak :',jumlahterjual:4:0);
writeln('--------------------------------------------');
totalbayar:=(jumlahterjual*harga);
writeln('total pembayaran adalah :Rp.',totalbayar:4:0);
writeln('--------------------------------------------');
end;
write('mau isi data lagi [Y/T]?');readln(lagi);
lagi:=UPCASE(lagi);
end;
end.
PROGRAM6
program LATIHAN6;
uses crt;
type a=record
kode: string;
namape:string;
jum_bel :integer;
harga_tikot:real;
total:real;
diskon:real;
ppn:real;
juba:real;
end;
var juda:array[1..100] of a;
i,n,x:integer;
nama:string;
total1,diskon1,pajak1,jumlah1,bayar:real;
toba:real;
function tota(harga_tikot,jum_bel:real; var total1:real):real;
begin
total1:=jum_bel*harga_tikot;
tota:=total1;
end;
function disc(jum_bel,total:real; var diskon1:real):real;
begin
if jum_bel>10 then
begin
diskon1:=total*0.1;
end
else
begin
diskon1:=total*0;
end;
disc:=diskon1;
end;
function pajak(total:real; var pajak1:real):real;
begin
pajak1:=total1*0.1;
pajak:=pajak1;
end;
function jumlah(ppn,total,diskon:real; var jumlah1:real):real;
begin
jumlah1:=total-diskon+ppn;
jumlah:=jumlah1;
end;
function totbay(juba:real; var toba:real):real;
begin
toba:=toba+juba;
totbay:=toba;
end;
begin
clrscr;
gotoxy(15,1);writeln('program penjualan tiket pesawat');
gotoxy(23,2);writeln('komang TRAVEL');
gotoxy(11,3);writeln('jln.nusa tamanlanrea indah no.2 tlp.042883');
writeln('---------------------------------------------------------------');
write('masukan nama penumpang :');readln(nama);
write('masukan jumlah data :');readln(n);
writeln('---------------------------------------------------------------');
for i:=1 to n do
with juda[i] do
begin
writeln('Data ke-',i);
write('masukan kode pesawat :');readln(kode);
if (kode='GI') or (kode='gi') then
begin
namape:='Garuda Indonesia';
harga_tikot:=250000;
end
else if (kode='MN') or (kode='mn') then
begin
namape:='Mandala';
harga_tikot:=180000;
end
else if (kode='LA') or (kode='la') then
begin
namape:='Lion Air';
harga_tikot:=275000;
end
else if (kode='BR') or (kode='br') then
begin
namape:='Bouroq';
harga_tikot:=165000;
end;
writeln(' Nama pesawat :',namape);
writeln(' harga pesawat :',harga_tikot:4:0);
write('masukan jumlah tiket :');readln(jum_bel);
writeln('total :Rp.',tota(harga_tikot,jum_bel,total1):4:0);
total:=tota(harga_tikot,jum_bel,total1);
writeln('diskon :Rp.',disc(jum_bel,total1,diskon1):4:0);
diskon:=disc(jum_bel,total1,diskon1);
writeln('PPN :Rp.',pajak(total1,pajak1):4:0);
ppn:=pajak(total1,pajak1);
writeln('------------------------------------------------------------');
readkey;
end;
clrscr;
gotoxy(26,1);writeln('program penjualan tiket pesawat');
gotoxy(36,2);writeln('komang TRAVEL');
gotoxy(23,3);writeln('jln.nusa tamanlanrea indah no.2 tlp.042883');
gotoxy(1,5);writeln('--------------------------------------------------------------------------------');
gotoxy(1,6);writeln('Nama Penumpang :',nama);
gotoxy(1,7);writeln('--------------------------------------------------------------------------------');
gotoxy(1,8);writeln('No kode nama harga total diskon PPN Jumlah bayar ');
gotoxy(1,9);writeln(' pesawat pesawat tiket ');
gotoxy(1,10);writeln('-------------------------------------------------------------------------------');
for i:=1 to n do
with juda[i] do
begin
gotoxy(1,11+i);writeln(i);
gotoxy(7,11+i);writeln(kode);
gotoxy(14,11+i);writeln(namape);
gotoxy(32,11+i);writeln(harga_tikot:0:0);
gotoxy(40,11+i);writeln(total:0:0);
gotoxy(51,11+i);writeln(diskon:0:0);
gotoxy(60,11+i);writeln(ppn:0:0);
gotoxy(70,11+i);writeln(jumlah(ppn,total,diskon,jumlah1):0:0);
juba:=jumlah(ppn,total,diskon,jumlah1);
bayar:=totbay(juba,toba);
end;
writeln('--------------------------------------------------------------------------------------------');
writeln(' Total Bayar :',bayar:0:0);
readkey;
end.
Komentar
Posting Komentar