Lat. Soal Algoritma Pemrograman

Buatlah algoritma untuk menghitung pembayaran tiket pesawat yang dibeli. Data penerbangan terdiri atas : nomor penerbangan, bandara asal, bandara tujuan, tanggal keberangkatan, jam keberangkatan (departure time), jam datang (arrival time), jumlah penumpang, harga tiket.

Gunakan tipe data record.

Tampilan atur sebagus mungkin untuk memberikan informasi yang jelas.

Program PERHITUNGAN_BIAYA_TIKET_PESAWAT

{Menghitung pembayaran tiket pesawat serta menampilkan data penerbangan yang dimaksud}

DEKLARASI:

type flight_dt : record

                < flight_no              : string

                    dep_airport        : string

                    arr_airport          : string

                    dep_date            : string

                    dep_time            : string

                    arr_time              : string

                    ticket_price        : integer

                    pass_on_board            : integer

                    payment              : integer>

flight          : flight_dt

ALGORITMA:

READ(flight.flight_no)

READ(flight.dep_airport)

READ(flight.arr_airport)

READ(flight.dep_date)

READ(flight.dep_time)

READ(flight.arr_time)

READ(flight.ticket_price)

READ(flight.pass_on_board)

flight.payment = flight.ticket_price * flight.pass_on_board

WRITELN(“------------------------------------”)

WRITELN(“Biaya Tiket Pesawat”)

WRITELN(“------------------------------------”)

WRITELN(“Untuk penerbangan---”)

WRITELN(“No. Penerbangan : ”, flight.flight_no)

WRITELN(“Bandara asal : ”, flight.dep_airport)

WRITELN(“Bandara tujuan : ”, flight.arr_airport)

WRITELN(“Tgl. keberangkatan : ”, flight.dep_date)

WRITELN(“Jam keberangkatan : ”, flight.dep_time)

WRITELN(“Jam datang : ”, flight.arr_time)

WRITELN(“------------------------------------”)

WRITELN(“Dengan---”)

WRITELN(“Harga tiket : ”, flight.ticket_price)

WRITELN(“Jumlah penumpang : ”, flight.pass_on_board)

WRITELN(“------------------------------------”)

WRITELN(“Adalah---”)

WRITE(“Total biaya : ”, flight.payment)