Contoh Program Pascal Aplikasi Tiket Kereta Api dengan Case Of

Source Code Pascal Program- Contoh Program Pascal  Case Of pada Aplikasi Pesanan Tiket Kereta Api ketika seseorang memesan tiket maka program akan otomatis menginput beberapa Biodata diri yang memesan tiket ke petugas.

Aplikasi tersebut dilengkapi dengan harga per/tiket, diskon, jumlah pesan. dan apabila seseorang memesan tiket lebih dari yang ditentukan maka akan mendapatkan diskon.

Kemudian aplikasi tersebut akan mendapatkan output dari program yang telah diinputkan  sebelumnya.




Gambar Source Code Aplikasi pesanan tiket kereta api.


Source Code:

Program Pemesanan;
uses crt;
label first;
var
ID              : string;
a, b, c, d      : real;
e, f, g, h      : real;
nama, alamat    : string;
jenis           : integer;
lagi            : char;
begin
first:
a := 10000;
b := 20000;
c := 35000;
clrscr;
writeln('Program Pemesanan Tiket Kereta Api');
writeln;
writeln('Masukan Biodata Pemesanan Jenis Tiket Anda');
writeln('****************************************');
write('ID     = '); readln(id);
write('NAMA   = '); readln(nama);
write('ALAMAT = '); readln(alamat);
writeln;
write('Jumlah Tiket = '); readln(d);
writeln('Jenis Tiket');
writeln('************');
writeln('1. EKONOMI');
writeln('2. BISNIS');
writeln('3. EKSEKUTIF');
write('Silahkan Pilih Jenis Tiket Anda (1/2/3) ? '); readln(jenis);
writeln('*****************************************');
writeln;
case Jenis of
     1 : begin
         if (d>5) then
         begin
            e := a * d;
            f := e * 0.1;
            g := e - f;
            writeln('ID                 = ',id);
            writeln('Nama               = ',nama);
            writeln('Alamat             = ',alamat);
            writeln('Jenis Tiket        = 1. EKONOMI');
            writeln('Jumlah Tiket       = ', d:0:0,' Tiket');
            writeln('Harga 1 Tiket      = Rp ', a:0:0);
            Writeln('Total Harga        = Rp ', g:0:0);
            writeln;
            writeln('Terima Kasih Anda Telah Memilih Jenis Tiket Ini');
         end
         else
         begin
        g := a * d;
            writeln('ID                 = ',id);
            writeln('Nama               = ',nama);
            writeln('Alamat             = ',alamat);
            writeln('Jenis Tiket        = 1.Ekonomi');
            writeln('Jumlah Tiket       = ',d:0:0,' Tiket');
            writeln('Harga 1 Tiket      = Rp ',a:0:0);
            Writeln('Total Harga        = Rp ', g:0:0);
            writeln;
            writeln('Terima Kasih Anda Telah Memilih Jenis Tiket Ini');
            end;
            end;
    2 : begin
         if (d>5) then
         begin
            e := b * d;
            f := e * 0.1;
            g := e - f;
            writeln('ID                 = ',id);
            writeln('Nama               = ',nama);
            writeln('Alamat             = ',alamat);
            writeln('Jenis Tiket        = 2.BISNIS');
            writeln('Jumlah Tiket       = ', d:0:0,' Tiket');
            writeln('Harga 1 Tiket      = Rp ', b:0:0);
            Writeln('Total Harga        = Rp ', g:0:0);
            writeln;
            writeln('Terima Kasih Anda Telah Memilih Jenis Tiket Ini');
         end
         else
         begin
        g := b * d;
            writeln('ID                 = ',id);
            writeln('Nama               = ',nama);
            writeln('Alamat             = ',alamat);
            writeln('Jenis Tiket        = 2.BISNIS');
            writeln('Jumlah Tiket       = ',d:0:0,' Tiket');
            writeln('Harga 1 Tiket      = Rp ',b:0:0);
            Writeln('Total Harga        = Rp ', g:0:0);
            writeln;
            writeln('Terima Kasih Anda Telah Memilih Jenis Tiket Ini');
            end;
            end;
    3 : begin
         if (d>5) then
         begin
            e := c * d;
            f := e * 0.1;
            g := e - f;
            writeln('ID                 = ',id);
            writeln('Nama               = ',nama);
            writeln('Alamat             = ',alamat);
            writeln('Jenis Tiket        = 3.EKSEKUTIF');
            writeln('Jumlah Tiket       = ', d:0:0,' Tiket');
            writeln('Harga 1 Tiket      = Rp ', c:0:0);
            Writeln('Total Harga        = Rp ', g:0:0);
            writeln;
            writeln('Terima Kasih Anda Telah Memilih Jenis Tiket Ini');
         end
         else
         begin
        g := c * d;
            writeln('ID                 = ',id);
            writeln('Nama               = ',nama);
            writeln('Alamat             = ',alamat);
            writeln('Jenis Tiket        = 3.EKSEKUTIF');
            writeln('Jumlah Tiket       = ',d:0:0,' Tiket');
            writeln('Harga 1 Tiket      = Rp ',c:0:0);
            Writeln('Total Harga        = Rp ', g:0:0);
            writeln;
            writeln('Terima Kasih Anda Telah Memilih Jenis Tiket Ini');
            end;
            end;
            end;
            write('Apakah Anda ingin Mengulang (y/n) ? '); readln(lagi);
            if lagi = 'y' then
            goto first
            else
readln;
end.

Semoga informasi ini dapat bermanfaat bagi siapa saja yang mencari dan ingin mempelajrinya lebih dalam. Salam -IT-

Share this post