Script u/ Menghitung jumlah Penumpang
uses wincrt;
var
p,a,b,c,d:integer;
begin
Writeln(‘—————————————–’);
writeln(‘Program Penghitungan Jumlah penumpang’);
writeln(‘————-by:rhez-qhe—————–’);
write(‘Masukkan Jumlah Penumpang= ‘);readln(p);
a:=p div 50;
b:=p mod 50;
c:=b div 7;
d:=b mod 7;
writeln(‘Jumlah Bus = ‘,a);
writeln(‘Jumlah Minibus = ‘,c);
writeln(‘Jumlah Penumpang yang ditolak = ‘,d);
writeln(‘——-o0 mision completed 0o——–’);
end.
Categories: Pascal