Program data penumpang

{ contoh program menggunakan case..of}

{created by rico arteandy}

{ amik depati parbo}

uses crt;

var

   np : string[20]; alt : string[20];

   kt : char;

   nt : string[10];

   ht : longInt;

   jb : byte;

   dc, jml_bayar : real;

begin

   clrscr;

   writeln('            ENTRY DATA PEMBAYARAN PENUMPANG ');

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

   write('        Nama Penumpang     :');readln(np);

   write('        Alamat             :');readln(alt);

   write('        Kode Tujuan        :');kt:=readkey;

   writeln;

   case (kt) of

   'P','p' : begin

           nt := 'padang';

           ht := 75000;

           end;

   'J','j' : begin

           nt := 'jambi';

           ht := 90000;

           end;

   'M','m' : begin

           nt := 'medan';

           ht := 125000;

           end;

   'B','b' : begin

           nt := 'bengkulu';

           ht := 60000;

           end;

   end;

   writeln('      Nama Tujuan        : ',nt);

   writeln('      Harga tiket        : ',ht);

   write('        Jumlah berangkat   : ');readln(jb);

   if jb > 4 then

      dc :=0.25* ht

   else

      dc :=0;

   jml_bayar := jb * ht - dc;

   {tanda minus'-' menyebabkan angka tampil rata kiri}

   writeln('      Discount           : ',dc:-9:0);

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

   writeln('      Jumlah Bayar       : ',jml_bayar:-9:0);

   readln;

end.