- Div (hasil pembagian dengan pembulatan kebawah),
Misalnya : 20 div 4 = hasilnya adalah 5
Karena angka 20 terdiri dari angka 4 sebanyak 5 kali (4,4,4,4,4)
Misalnya : 19 div 4 = hasilnya adalah 4
Karena angka 19 terdiri dari angka 4 sebanyak 4 kali(4,4,4,4) dan
sisanya adalah 3 dan tidak akan di kenali.
- Mod (sisa hasil pembagian dengan pembulatan keatas).
Misalnya : 20 mod 4 =
hasilnya adalah 0
Karena angka 20 terdiri dari angka 4 sebanyak 5 kali (4,4,4,4,4)
dan tidak ada sisa jadi jawabanya 0
Misalnya : 19 mod 4 =
hasilnya adalah 3
Karena angka 19 terdiri dari angka 4 sebanyak 4 kali(4,4,4,4) dan
sisanya adalah 3, jadi jawabanya adalah 3
Untuk contoh programnya, buwatlah desain form seperti ini :
Atur propertisnya seperti ini :
nama
|
propertis
|
keterangan
|
Label1
|
Caption
|
Mod dan Div
|
Label2
|
Caption
|
Masukkan Angka 1
|
Label3
|
Caption
|
Masukkan Angka 2
|
Edit1
|
Text
|
Di kosongkan
|
Edit2
|
Text
|
Di kosongkan
|
Edit3
|
Text
|
Di kosongkan
|
Edit4
|
Text
|
Di kosongkan
|
Button1
|
Caption
|
Mod
|
Button2
|
Caption
|
Div
|
Klik dua kali pada Button1(Mod) dan isikan script dibawah ini :
procedure TForm1.Button1Click(Sender: TObject);
var
angka1,angka2,hasil:integer;
begin
angka1:=strtoint(edit1.Text);
angka2:=strtoint(edit2.Text);
hasil:=angka1 mod angka2;
edit3.Text:=inttostr(hasil);
end;
Klik dua kali pada Button2(Div) dan isikan script dibawah ini :
procedure TForm1.Button2Click(Sender: TObject);
var
angka1,angka2,hasil:integer;
begin
angka1:=strtoint(edit1.Text);
angka2:=strtoint(edit2.Text);
hasil:=angka1 div angka2;
edit4.Text:=inttostr(hasil);
end;
Jika di Run(f9) akan seperti ini :
Sekian dulu untuk Trik dan Tutorial sederhana ini. Semoga bisa membantu. Terimakasih.
NB : Kritik dan Saran bisa di komentar.
0 komentar:
Post a Comment