Membuat Program Management Bus

Bus dan Mikrolet merupakan kendaraan umum yang sudah lazim digunakan banyak orang di seluruh negara. Diera modern seperti sekarang ini, pemilik atau owner kendaraan ini dapat menggunakan program dalam memanagement pengunaan sewa bus dan mikroletnya agar bisa mengefisiensi banyanknya penumpang dan busnya agar tidak ada lagi penumpang yang terlantar. Cara membuatnya pun relatif mudah yakni menggunakan program turbo pascal. Untuk membuatnya,kita gunakan contoh seperti berikut :

- Bus berkapasitas 50 orang
- Mikrolet berkapasitas 11 orang
dengan ketentuan : bus dan mikrolet akan berangkat jika penumpang telah memenuhi kapasitas,,jika terdapat kelebihan penumpang,maka dialihkan ke bus dan mikrolet yang lain.
- tujuan program untuk menghitung banyaknya bus dan mikrolet yang berangkat sesuai banyaknya penumpang agar tidak ada penumpang yang terlantar atau berdesak-desakan karna kelebihan muatan.

Dari ketentuan diatas, maka cara membuat programnya harus mengunakan permisalan
PD adalah Jumlah Penumpang yang mendaftar
BB adalah banyaknya bus yang berangkat
MK adalah banyaknya Mikrolet yang berangkat
SS adalah sisa penumpang jika bus telah penuh (memenuhi kapasitas muatan)

1. Buka Program Turbo Pascal.

2. Setelah terbuka, masukkan perintah - perintah untuk membuat program management bus seperti berikut

program MenghitungJumlahBusDanMicrolet;
uses crt;
var
   PD : integer;
   BB,MK,SS : integer;
begin
clrscr;
      writeln('PROGRAM MENGHITUNG JUMLAH PENUMPANG');
      writeln('-----------------------------------');

      write('Masukkan Jumlah Pendaftar =');readln(PD);

      BB := PD Div 50;
      MK := (PD Mod 50) Div 11;
      SS := (PD Mod 50) Mod 11;

      writeln('-------------------------------------');
      writeln('Jumlah Bus yang berangkat',BB,' Unit');
      writeln('Jumlah Microlet yang berangkat adalah',MK,'unit');
      writeln('Jumlah Sisa Pendaftar adalah',SS,'Orang');
readln;
end.

3. Setelah perintah - perintah pembuatan programnya di masukkan, maka tampilan di Turbo Pascalnya kurang lebih seperti ini

4. Kemudian cek apakah ada perintah yang mengalami error dengan cara di Compile mengunakan kombinasi ALT dan F9 di keyboard, setelah itu akan muncul window seperti gambar dibawah. Jika muncul tulisan "compile successful",tekan tombol apa saja di keyboard.

5. Setelah itu pilih menu Run lalu pilih Run atau bisa juga dengan menggunakan kombinasi tombol Ctrl dan F9 untuk mengetest apakah program tersebut bisa digunakan atau tidak.

6. Setelah program di jalankan dengan mengunakan perintah RUN (Ctrl+F9) maka akan muncul pilihan "Masukkan jumlah pendaftar = ",,ketikkan angka yang menandakan banyak penumpang terdaftar. Lalu tekan enter untuk mengetahui jumlah bus dan mikrolet yang akan berangkat dan sisa penumpang yang belum mendapatkan bus dan mikrolet.

7. Jika programnya sudah berhasil, save programnya agar bisa digunakan lagi yakni menggunakan tombol F2 dikeyboard.