Selasa, 12 April 2011

PASCAL Menghitung Jumlah Tiket

  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.

0 comments:

Posting Komentar