Algoritma - Procedure dan IF (soal UAS Manajemen Informatika STMIK Pekalongan)

Assalamualaikum.Wr.Wb.

Berikut saya sharing soal UAS Algoritma pemrograman(PASCAL) tahun 2015

Soal

Buatlah Program penjualan tiket kereta api sederhana dengan ketentuan sebagai berikut:
1. Buatlah procedure untuk harga tiket (parameter : tujuan)

• Semarang: Rp. 100.000,-
• Surabaya: Rp. 300.000,-
• Bandung: Rp. 250.000,-

2. Buatlah procedure untuk menentukan diskon (parameter : total)

• Jika total>= Rp. 2.000.000,- : 10%
• Jika total>= Rp. 1.000.000,- : 5%
• < Rp. 1.000.000,- : 0% 

3. Input:

• Nama Pembeli
• Tujuan
• Jumlah Beli

4. Output:

• Harga Tiket
• Total
• Diskon
• Total Setelah Diskon

Beriktu Penyelesaian dari soal di atas:
 Program Tiket_Kereta;
uses wincrt;

{*--procedure harga--*}
procedure harga(tujuan: string; var harga: real);
begin
     if tujuan='smg' then
     harga:= 100000
     else
     if tujuan='sby' then
     harga:= 300000
     else
     if tujuan='bdg' then
     harga:= 250000;
end;


{*--procedure diskon--*}
procedure diskonn(hbeli: real; var diskon: real);
begin
if hbeli>=2000000 then diskon:= hbeli*0.1
else
if hbeli>=1000000 then diskon:= hbeli*0.05
else diskon:= 0;
end;



{*--program utama--*}
var
tujuan, nama: string;
jumlah, diskon: real;
hargatiket, hbeli, total, bayar: real;

begin

writeln('Program Penjualan Tiket Kereta');
writeln('==============================');
writeln('');


{*--input nama--*}
write('Masukan Nama Sesuai KTP: ');
readln(nama);

{*--input tujuan -- output harga tiket--*}
write('Tujuan Kereta(smg/sby/bdg: ');
readln(tujuan);
harga(tujuan, hargatiket);
writeln('Harga Tiket: ',hargatiket:8:0);

writeln('');

{*--input jumlah tiket -- output total harga--*}
write('Jumlah Tiket Yang Dibeli: ');
readln(jumlah);
hbeli:= hargatiket*jumlah;
writeln('Total Harga: ',hbeli:8:0);


{*--ouput diskon--*}
diskonn(hbeli,diskon);
writeln('Diskon: ',diskon:8:0);


{*--output total bayar--*}
bayar:= hbeli-diskon;
writeln('Total Yang Harus Dibayar: ',bayar:8:0);
end.


Sekian semoga bermanfaat.
Wassalamualaikum.Wr.Wb.