CONTOH PROGRAM PASCAL TIKET KENDARAAN

Program tiket;

uses wincrt;

var Pil_Tjn, Pil_Kls : byte;

    Hrg : longint;

    Disc : real;

    Tot_Hrg : real;

begin

     clrscr;

     writeln('=====================================================');

     writeln('                Biro Tiket "JALAN TERUS"             ');

     writeln('=====================================================');

writeln('+----+-------+------------+------------+------------+');

     writeln('|Kode|Tujuan |   VIP      |  BISNIS    | EKONOMI    |');

     writeln('+----+--------+-------------------------------------+');

     writeln('|[1] |GORUT  | Rp.120.000 | Rp.100.000 | Rp.80.000  |');

     writeln('|[2] |MANADO | Rp.140.000 | Rp.120.000 | Rp.100.000 |');

     writeln('|[3] |PALU   | Rp.160.000 | Rp.140.000 | Rp.120.000 |');

     writeln('+----+-------+------------+------------+------------+');

     writeln('Keberangkatan dari GORONTALO');

     writeln;

     writeln('Pilihan Tujuan : ');

     writeln('1. Gorut');

     writeln('2. Manado');

     writeln('3. Palu');

     write('Pilih Tujuan [1/2/3] : '); readln(Pil_Tjn);

     clrscr;

     if Pil_Tjn = 1 then

        begin

writeln('==================================');

writeln('     Biro Tiket "JALAN TERUS"     ');

writeln('==================================');

writeln('Keberangkatan dari GORONTALO');

writeln;

writeln('Pilih Kelas : ');

writeln('1. VIP');

writeln('2. Bisnis');

writeln('3. Ekonomi');

write('Pilih Kelas [1/2/3] : '); readln(Pil_Kls);

clrscr;

        if Pil_Kls = 1 then

           begin

Hrg := 120000;

writeln('=========================');

writeln('  Pilihan Keberangkatan  ');

writeln('=========================');

writeln;

writeln('Tujuan Keberangkatan : Gorut');

writeln('Kelas yang dipilih : VIP');

writeln('Harga Tiket : Rp. ',Hrg);

           end;

        if Pil_Kls = 2 then

           begin

Hrg := 100000;

writeln('=========================');

writeln('  Pilihan Keberangkatan  ');

writeln('=========================');

writeln;

writeln('Tujuan Keberangkatan : Gorut');

writeln('Kelas yang dipilih : Bisnis');

writeln('Harga Tiket : Rp. ',Hrg);

           end;

        if Pil_Kls = 3 then

           begin

Hrg := 80000;

writeln('==========================');

writeln('   Pilihan Keberangkatan  ');

writeln('==========================');

writeln;

writeln('Tujuan Keberangkatan : Gorut');

writeln('Kelas yang dipilih : Ekonomi');

writeln('Harga Tiket : Rp. ',Hrg);

           end;

     end;

     if Pil_Tjn = 2 then

        begin

writeln('==================================');

writeln('     Biro Tiket "JALAN TERUS"     ');

writeln('==================================');

writeln('Keberangkatan dari GORONTALO');

writeln;

writeln('Pilih Kelas : ');

writeln('1. VIP');

writeln('2. Bisnis');

writeln('3. Ekonomi');

write('Pilih Kelas [1/2/3] : '); readln(Pil_Kls);

        clrscr;

        if Pil_Kls = 1 then

           begin

Hrg := 140000;

writeln('=========================');

writeln('  Pilihan Keberangkatan  ');

writeln('=========================');

writeln;

writeln('Tujuan Keberangkatan : Manado');

writeln('Kelas yang dipilih : VIP');

writeln('Harga Tiket : Rp. ',Hrg);

           end;

        if Pil_Kls = 2 then

           begin

Hrg := 120000;

writeln('=========================');

writeln('  Pilihan Keberangkatan  ');

writeln('=========================');

writeln;

writeln('Tujuan Keberangkatan : Manado');

writeln('Kelas yang dipilih : Bisnis');

writeln('Harga Tiket : ',Hrg);

           end;

        if Pil_Kls = 3 then

           begin

Hrg := 100000;

Disc := 0.1 * Hrg ;

Tot_Hrg := Hrg - Disc ;

writeln('=========================');

writeln('  Pilihan Keberangkatan  ');

writeln('=========================');

writeln;

writeln('Tujuan Keberangkatan : Manado');

writeln('Kelas yang dipilih : Ekonomi');

writeln('Harga Tiket : Rp. ',Hrg);

writeln('Diskon : ',Disc);

writeln('Total Yang Harus Dibayar : Rp ',Tot_Hrg);

           end;

     end;

     if Pil_Tjn = 3 then

        begin

        writeln('==================================');

        writeln('     Biro Tiket "JALAN TERUS"     ');

        writeln('==================================');

        writeln('Keberangkatan dari GORONTALO');

        writeln;

        writeln('Pilih Kelas : ');

        writeln('1. VIP');

        writeln('2. Bisnis');

        writeln('3. Ekonomi');

        write('Pilih Kelas [1/2/3] : '); readln(Pil_Kls);

        clrscr;

        if Pil_Kls = 1 then

           begin

           Hrg := 160000 ;

           Disc := 0.1 * Hrg;

           Tot_Hrg := Hrg - Disc;

           writeln('=========================');

           writeln('  Pilihan Keberangkatan  ');

           writeln('=========================');

           writeln;

           writeln('Tujuan Keberangkatan : Palu');

           writeln('Kelas yang dipilih : VIP');

           writeln('Harga Tiket : Rp. ',Hrg);

           writeln('Diskon : ',Disc);

           writeln('Total yang harus dibayar : Rp. ',Tot_Hrg);

           end;

        if Pil_Kls = 2 then

           begin

           Hrg := 140000;

           writeln('=========================');

           writeln('  Pilihan Keberangkatan  ');

           writeln('=========================');

           writeln;

           writeln('Tujuan Keberangkatan : Palu');

           writeln('Kelas yang dipilih : Bisnis');

           writeln('Harga Tiket : Rp. ',Hrg);

           end;

        if Pil_Kls = 3 then

           begin

           Hrg := 120000;

           writeln('=========================');

           writeln('  Pilihan Keberangkatan  ');

           writeln('=========================');

           writeln;

           writeln('Tujuan Keberangkatan : Palu');

           writeln('Kelas yang dipilih : Ekonomi');

           writeln('Harga Tiket : Rp. ',Hrg);

           end;

     end;

writeln;

writeln('Press Any Key to Exit...');

readkey;

end.