Menghitung Penggunaan Bus Travel

Ada sebuah biro travel yang mempunyai armada bus sebagai berikut :
bus besar dan bus kecil dengan kapasitas masing-masing untuk bus besar 50 penumpang dan bus kecil 7 penumpang.
Penumpang travel baru bisa diberangkatkan dengan ketentuan jika kapasitas bus besar atau bus kecil terpenuhi, sisanya adalah ditolak. (Gunakan fungsi Mod dan Div)

Contoh 1:
Input
Masukkan Jumlah Penumpang = 8

Output
0 BB
1 BK
1 DT

Contoh 2:
Input
Masukkan Jumlah Penumpang = 57

Output
1 BB
1 BK
0 DT

Jawaban:

program Project1;

var
  n : integer;

begin
  write('Masukkan jumlah penumpang = ');
  readln(n);
  writeln(n div 50, ' BB');
  n := n mod 50;
  writeln(n div 7, ' BK');
  n := n mod 7;
  writeln(n, ' DT');
  readln;
end.

Agar lebih fleksibel, jumlah maksimum penumpang untuk bis besar dan bis kecil dapat dijadikan konstanta. Kebiasaan untuk membuat konstanta ini sederhana, namun akan memudahkan kita pada saat membuat program atau aplikasi yang lebih kompleks.

program Project1;

const
  maxbb : integer = 50;
  maxbk : integer = 7;

var
  n : integer;

begin
  write('Masukkan jumlah penumpang = ');
  readln(n);
  writeln(n div maxbb, ' BB');
  n := n mod maxbb;
  writeln(n div maxbk, ' BK');
  n := n mod maxbk;
  writeln(n, ' DT');
  readln;
end.