uses wincrt;
var
jurusan,jenisbus: string;
total,diskon,bayar: integer;
harga:real;
begin
clrscr;
writeln(' Pemesanan Tiket Bus Online ');
writeln(' Selamet Jaya Perkasa ');
writeln(' Jurusan Jakarta, Cianjur dan Majalengka ');
writeln('+-----+--------+----+');
writeln('| Kode Jurusan | AC | Ekonomi |');
writeln('+-----+--------+----+');
writeln('|[1] Jakarta | Rp.40.000 (Disc. 10%) | Rp.30.000 |');
writeln('|[2] Cianjur | Rp.25.000 | Rp.20.000 |');
writeln('|[3] Majalengka | Rp.30.000 (Disc. 5%) | Rp.25.000 |');
writeln('+-----+--------+----+');
writeln;
writeln;
writeln('Silahkan isi data dibawah ini : ');
begin
write('- Kode Jurusan : ');readln(jurusan);
write('- Jenis Bus : ');readln(jenisbus);
write('- Jumlah Tiket : ');readln(total);
write('- Harga bayar : ');
if (jurusan='1')and (jenisbus='ac') then harga:=40000-(40000*0.1);
if (jurusan='1')and (jenisbus='ekonomi') then harga:=30000;
if (jurusan='2')and (jenisbus='ac') then harga:=25000;
if (jurusan='2')and (jenisbus='ekonomi') then harga:=20000;
if (jurusan='3')and (jenisbus='ac') then harga:=30000-(30000*0.05);
if (jurusan='3')and (jenisbus='ekonomi') then harga:=25000;
writeln('Rp.',total*harga:0:2);
writeln;
writeln('Terimaksih atas pemesanannya');
writeln('Data Anda sedang kami proses');
readln;
end;
end.
Selasa, 12 April 2011
PASCAL Menghitung Jumlah Tiket
18.43
No comments
0 comments:
Posting Komentar