Gan mw nanyak nih tetntang pascal!!!
Senin, 30 Januari 2012 by ewepaksa
top custom html 3Ane udah ngerjai kasus nya.. hasilnya gini program MASKAPAI_PENERBANGAN ; uses wincrt; Label Atas; var jlh:integer; pil:byte; tarif:longint; rute,waktu,brkt:string; diskon,totbayar: real; lagi:char; begin clrscr; writeln('Pilih rute penerbangan'); writeln('========================================= =') ; writeln('1.Medan-Jakarta'); writeln('2.Jakarta-Bandung'); writeln('3.Jakarta-Medan'); writeln('4.Bandung-Medan'); writeln('5.Medan-Bandung'); Atas: begin write('Masukkan Pilihan Anda:');readln(pil); write('Masukkan Jumlah Tiket:');readln(jlh); write('Adalagi?? Y/T:');readln(lagi); if (lagi='Y') then goto Atas; if (pil=1) then begin Rute :='Medan-Jakarta'; Tarif := 650000 ; Waktu := '2 jam' ; brkt := '08.00'; totbayar := tarif*jlh; end; if (pil=2) then begin Rute :='Jakarta-Bandung'; Tarif := 275000 ; Waktu := '20 menit' ; brkt := '11.00'; totbayar := tarif*jlh; end; if (pil=3) then begin Rute :='Jakarta-Medan'; Tarif := 750000 ; Waktu := '2 jam' ; brkt := '20.00'; totbayar := tarif*jlh; end; if (pil=4) then begin Rute :='Bandung-Medan'; Tarif := 875000 ; Waktu := '2 wad 20 menit' ; brkt := '21.40'; totbayar := tarif*jlh; end; if (pil=5) then begin Rute :='Medan-Bandung'; Tarif := 890000 ; Waktu := '2 wad 20 menit' ; brkt := '09.10'; totbayar := tarif*jlh; end; If (jlh>=4) then begin diskon := 15/100 * Tarif; end; writeln; writeln('Rute yg Anda Pilih :',Rute); writeln('Berangkat Pukul :',brkt); writeln('Waktu tempuh :',waktu); writeln('Tarif Per Tiket :Rp.',tarif); writeln('Diskon :Rp.',diskon:7:2); writeln('Total Bayar :Rp.',totbayar-diskon:8:2); readln; readln; readln; end; end. tapi masi belom sesuai hasilnya, bsa bantui gk gan?? Kasusnya ini : 1. Buatlah langkah-langkah pembuatan information dengan bahasa pemograman pascal untuk kasus sebagai berikut : “ Sebuah maskapai penerbangan dengan beberapa pesawat dan beberapa rute penerbangan sebagai berikut†: • Rute medan â€" jakarta berangkat pukul 08.00 tarif RP. 650. 000 waktu tempuh 2 wad • Rute jakarta â€" bandung berangkat pukul 11.00 tarif Rp. 275.000 waktu tempuh 20 menit • Rute jakarta â€" medan berangkat pukul 20.00 tarif Rp. 750.000 waktu tempuh 2 jam • Rute bandung â€" medan berangkat pukul 21.40 tarif Rp. 875.000 waktu tempuh 2 wad 30 menit ( 2.30) • Rute medan â€" bandung berangkat pukul 09.15 tarif Rp.890.000 waktu tempuh 2 wad 20 menit ( 2.20). Jika membeli lebih dari 4 tiket maka mendapatkan diskon 15 %. Misalkan Pak ucok pesan 5 tiket yang terdiri dari : ? 2 tiket ( medan-jakarta-bandung) ? 3 tiket ( medan-bandung) Mereka berlima berangkat sama-sama dari metropolis pukul 08.00. pukul berapa ketemu di metropolis ? Berapa RP harus dibayar pak ucok ? Thanks, atas bantuannya gan :cendols :shutups :capedesbottom custom html 1
Google
Top 5 free videos of the day | VRLifestyle
Top 5 free videos of the day · 1. youtube mp3 The Elder Scrolls V: Skyrim - DLC - Skyrim v1.8.0 [New]. Top 5 free videos of the day · 2. Skyrim V: Skyrim - DLC - Skyrim v1.7 [New]. Top 5 free videos of the