Mengetahui Sisa Pembagian dengan MOD

MOD digunakan untuk mengetahui sisa pembagian sebuah bilangan. Bilangan yang akan dibagi diletakkan di depan MOD, sedangkan pembaginya sesudah MOD.

Contoh:
10 MOD 2 = 0
5 MOD 2 = 1

Agar lebih jelas, marilah kita membuat program kecil untuk mencetak bilangan genap. Seperti kita tahu, bilangan genap adalah bilangan habis dibagi dengan 2. Dengan kata lain, jika suatu bilangan MOD 2 = 0 berarti bilangan tersebut adalah bilangan genap.

program BilanganGenap;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  A, I : Integer;
begin
  Writeln('Cetak Bilangan Genap');
  Writeln('=====================');
  Writeln;
  Write('Batas Cetak: ');
  Readln(A);

  for I:= 1 to A do
  begin
    if ( I mod 2 = 0) then
    WriteLn(IntToStr(I));
  end;
  Readln;
end.

Hasil dari eksekusi bilangan diatas adalah seperti gambar berikut:

Mengetahui Sisa Pembagian dengan MOD 2015-08-12T09:51:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer