TUGAS KELOMPOK ADT

Program_pemesanan_tiket_kereta

Kamus

                Type data <

ktp : integer

nama : string

tujuan : integer

jenis_tiket : integer

tgl : string

jarak : integer

harga_tiket : integer >

                beli : array[1…..90] of data

                i, jml_data : integer

                function harga (tujuan,jenis : integer)           integer

                function jarak (tujuan : integer )           integer

                procedure jenis (input jenis_tiket : integer, output jk : integer)

Algoritma

                Output (“PROGRAM PEMESANAN TIKET KERETA”)

                Output (“Masukkan jumlah tiket yang akan dibeli :”)

                Input ( jml_tiket )

                i traversal [1….jml_tiket]

                                output (“Masukkan NO. KTP : “)

                                input ( beli[i].ktp)

                                output(“Masukkan Nama : “)

                                input (beli[i].nama)

                                output (“Pilih Tujuan : 1. Dalam Provinsi    2. Luar Provinsi “)

                                output (“Masukkan tujuan :”)

                                input ( beli[i].tujuan)

                                jarak (beli[i].tujuan)

                                ouput (“Pilih Jenis Tiket : 1. Ekonomi   2. Bisnis   3. Eksekutif “)

                                output (“Masukkan pilihan : “)

                                input (beli[i].jenis_tiket)

                                jenis (beli[i].jenis_tiket, beli[i].harga_tiket)

                                output (“Masukkan tanggal keberangkatan :”)

                                input (beli[i].tgl)

                                ouput (“Total harga tiket :”, harga (beli[i].tujuan, beli[i].harga_tiket)

                //end traversal

Function jarak (tujuan : integer)           integer

Kamus

Algoritma

                if (tujuan = 1) then

                                  5000

                else

                                   20000

                //end if

Function harga ( tujuan, harga : integer )            integer

Kamus

                ht : integer

Algoritma

                ht            tujuan + jenis 

                                ht

procedure jenis (input jenis_tiket : integer, output jk:integer)

kamus

algoritma

                if (jenis_tiket = 1) then

                                jk          35000

                else if (jenis_tiket = 2) then

                                jk          85000

                else

                                jk         135000