Cara Membuat Program Penghitung Sewa Angkutan

Turbo Pascal for fun. Siapa bilang turbo pascal tidak bisa dikaitkan dengan matematika??? kali ini saya akan memberikan contoh penggunaan turbo pascal dalam menghitung tarif angkutan sesuai jarak tempuhnya, "dimatematika juga banyak loh soal menghitung seperti ini,jadi bisa berguna untuk teman-teman dalam menyelesaikan soal seperti itu".

Untuk membuatnya kita gunakan permisalan seperti ini
tarif angkutan untuk 1 KM pertama adalah Rp. 4500,dan selanjutnya Rp. 2000

1. Mula-mula, buka program Turbo Pascal.

2. Setelah terbuka, input perintah - perintah untuk membuat program menghitung tarif angkutan seperti berikut

uses crt;
const
   pertama  =4500;
   lanjut   =2000;
var
    jarak,bayar : integer;
begin
clrscr;
   write('Jarak Tempuh (Km) =');readln(jarak);
   if jarak>1 then
   begin
     bayar := pertama+(jarak*lanjut);
    end
    else
      bayar := pertama;
      writeln('bayarnya = Rp.',bayar);
    readln;
    end.

3. Setelah perintah - perintah pembuatan programnya di masukkan, tampilan di Turbo Pascalnya seperti gambar berikut

4. Lalu kita cek apakah ada yang error dengan menggunakan kombinasi tombol ALT dan F9 di keyboard atau istilah turbo pascalnya di Compile, setelah itu akan muncul tampilan seperti gambar dibawah. Jika di window tertulisan "compile successful", maka tekan tombol apa saja di keyboard untuk lanjut ke proses berikutnya.

5. Setelah itu masuk ke menu Run lalu pilih Run atau bisa juga dengan menggunakan kombinasi tombol Ctrl dan F9 di keyboard.

6. Next kita lihat hasilnya dengan menekan tombol ALT dan F5 secara bersamaan atau bisa juga dengan masuk ke menu Debug lalu pilih User screen

7. Hasil running program yang kita buat tadi akan muncul tulisan "jarak Tempuh (Km)", maka masukkan jarak tempuhnya dalam angka. Ingat, jarak tempuh yang dimasukkan harus dikurangkan 1. Misalnya jarak tempuh yang akan dilalui 13 Km, nah kita kurangkan 1 (jarak awal dengan tarif yang berbeda).
Jadi 13-1 = 12. masukkan angka 12 di program lalu tekan enter. Hasilnya akan tampak bahwa kita harus membayar Rp. 28.500.
Kita tes dalam perhitungan matematika : jarak 13 Km,tarif 1 Km pertama Rp.4500 dan tarif selanjutnya Rp.2000 per Km. Jadi tarif untuk Km ke 2 sampai 13 :
2,3,4,5,6,7,8,9,10,11,12,13 (Km), berarti ada 12 tahapan. 12 x Rp.2000 = Rp. 24000
tarif Km ke 1 = Rp. 4500. Totalnya Rp. 24000 + Rp. 4500 =Rp. 28500

8. Setelah programnya jadi, jangan lupa di save (tekan F2 di keyboard).