~Project 1.3.3~

~Download Here~

การหารตัวเลข จะต้องกำหนดตัวเลขให้เป็นจำนวนจริง ดังcode นี้

procedure TForm1.Button4Click(Sender:
TObject);
var sumn1 :real; < กำหนดให้ค่า sumn1 เป็นเลขจำนวนจริง
begin
sumn1 := strtofloat(edit1.text)/strtofloat(edit2.Text); < ให้นำค่าใน edit1.text และ edit2.text มาหารกัน
edit3.Text :=floattostr(sumn1); < แสดงผลคำตอบใน edit3.text
end;

ถ้าต้องการให้โปรแกรม หารเลข โดยปัดเศษให้ใช้คำสั่ง DIV ตามนี้

procedure TForm1.Button2Click(Sender: TObject);

var sumn1 :integer; < กำหนดให้ sumn1 เป้นจำนวนเต็ม

begin

sumn1 := strtoint(edit1.text)DIV strtoint(edit2.Text); < นำจำนวนใน edit1.text และ edit2.text หารปัดเศษ
edit3.Text :=inttostr(sumn1); < แสดงคำตอบลงใน edit3.text

end;

ถ้าต้องการหารเลขเอาเศษ ต้องใช้คำสั่ง MOD

procedure TForm1.Button6Click(Sender: TObject);

var sumn1 :integer; < กำหนดให้ sumn1 เป้นจำนวนเต็ม

begin
sumn1 := strtoint(edit1.text)MOD strtoint(edit2.Text); < นำจำนวนใน edit1.text และedit2.text หารหาเศษ
edit3.Text :=inttostr(sumn1); < แสดงคำตอบลงใน edit3.text

end;