Perbedaan Mod Dan Div pada Delphi

         Perbedaan Mod dan Div

Mod atau Modulus adalah operator aritmatika pada Delphi untuk melakukan operasi aritmatika menentukan sisa hasil bagi.

Div adalah operator aritmatika pada Delphi untuk melakukan operasi aritmatika yaitu operasi pembagian pada bilangan bulat. Sedangkan pada bilangan pecahan menggunakan operator ( / ).

Berikut contoh program operasi mod dan div. :

Buat desain form seperti di bawah ini.

Component aktif :

Edit = Edit1, Edit2

Label = lhasil

Button = Button1, Button2, Button3, Button 4

Klik 2x tombol Mod. Masukkan script di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c:integer;

begin

a:= strtoint(Edit1.Text);

b:= strtoint(Edit2.Text);

if a >= b Then

begin

c:= a mod b;

lhasil.Caption := inttostr(c);

end

else

begin

showmessage('Angka pertama harus sama atau lebih besar');

Edit1.Text:= '';

Edit2.Text := '';

Edit1.SetFocus;

end;

end;

Klik 2x tombol Div. Masukkan script di bawah ini :

procedure TForm1.Button2Click(Sender: TObject);

var

a,b,c:integer;

begin

a:= strtoint(Edit1.Text);

b:= strtoint(Edit2.Text);

if a >= b Then

begin

c:= a div b;

lhasil.Caption := inttostr(c);

end

else

begin

showmessage('Angka pertama harus sama atau lebih besar');

Edit1.Text:= '';

Edit2.Text := '';

Edit1.SetFocus;

end;

end;

Klik 2x tombol Baru. Masukkan script di bawah ini :

procedure TForm1.Button3Click(Sender: TObject);

begin

Edit1.Text:= '';

Edit2.Text := '';

Edit1.SetFocus;

end;

Klik 2x tombol Keluar. Masukkan script di bawah ini :

procedure TForm1.Button4Click(Sender: TObject);

begin

Halt;

end;

Nah…. Selesai. Silahkan Running dengan menekan F9. Ini dia hasilnya jika di Running :

Jika di klik Mod

Jika di klik Div

Sekian Share dari saya. Semoga bermanfaat...........................