Contoh Penggunaan DIV dan MOOD pada Pascal

Kali ini saya akan memperlihatkan tugas kedua saya tentang yaitu "Membuat Aplikasi Perhitungan Penumpang" dengan ketentuan soal 

- Bus berangkat jika minimal 50 pendaftar.

- Mikrolet berangkat minimal 11 pendaftar.

- Dan sisanya tidak berangkat].

jawabanya sbb:

---------------------------------------------------------------------------------------------------------------------------------

Program Keberangkatan_Bus;

uses wincrt;

var a,bus,mikrolet,sisa:integer;

    ulang:char;

Begin

clrscr;

ulang:='Y';

while Upcase(ulang)='Y' do

Begin

clrscr;

writeln('   -->BUS BERANGKAT MINIMAL 50 PENDAFTAR<-- div="">

writeln('-->MIKROLET BERANGKAT MINIMAL 11 PENDAFTAR<-- div="">

Writeln('==============================================');

write('Masukan Jumlah Pendaftar = ');

readln(a);

bus:=a div 50;

mikrolet:=a mod 50 div 11;

sisa:=a mod 50 mod 11;

Writeln('==============================================');

writeln('Jumlah Bus Yang Berangkat             = ',bus, ' BUS');

writeln('Jumlah Mikrolet Yang Berangkat        = ',mikrolet, ' Mikrolet');

writeln('Jumlah Pendaftar Yang Tidak berangkat = ',sisa, ' Penumpang');

writeln;

    write('Mau menghitung ulang? [Y/T]: ');

    Readln(ulang);

    end;

  

end.

=================================================================================

sumber Copas : blog sebalah