~Project 1.3.4~

~Download Here~

ตัวอย่างการคำนวณ

procedure TForm1.Button1Click(Sender: TObject);
var sumn1 : real; < กำหนดให้ค่าของ sumn1 เป็นจำนวนจริง
begin
sumn1 :=strtofloat(edit1.text)+strtofloat(edit2.text)-strtofloat(edit3.text)*strtofloat(edit4.text) +strtofloat(edit5.text); < นำค่าใน edit1.textบวกกับ edit2.text ลบกับ edit3.text คูณกับ edit4.text บวกกับ edit4.text
edit6.text :=floattostr(sumn1); < แสดงคำตอบใน edit6.text
end;