PENGGUNAAN DIV DAN MOD

Pada kali ini, saya akan membahas tentang contoh penggunaan pascal menggunakan DIV dan MOD dalam menghitung keberangkatan penumpang.

Yang dimana :
- Bus berangkat jika minimal 50 pendaftar.

- Mikrolet berangkat minimal 11 pendaftar.

- Dan sisanya tidak berangkat (belum beruntung :p).

Cek this out :
================================

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;

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

    Writeln('Created, Ardiansyah || 20142205026 ||TI.11   =');

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

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

    Readln(ulang);

    end;

  

end.

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

Berikut hasil jadinya