~Project 1.3.5~

~Download Here~

จะใช้คำสั่งคล้ายๆกับที่แล้วมาเช่นในการบวกเลข

procedure
TForm1.Button1Click(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;

~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;