Work 1.3.3

:: Download ::

คำสั่งในการบวก ลบ คูณ หาร เลขเป็นจำนวนจริง

procedure TForm1.Button1Click(Sender: TObject); // ป้อนคำสั่งในปุ่ม
var sumn1 : real ; // กำหนดให้ตัวแปร sum1 เป็นจำนวนจริง
begin
sumn1 := strtofloat(edit1.Text) + strtofloat(edit2.text); // ให้ตัวแปร sumn1 เก็บค่าจากการบวก ลบ คุณ หาร จำนวนที่1 และจำนวนที่ 2 ไว้
edit3.text := floattostr(sumn1); //ให้แสดงผลลัพธ์ ใน edit3.text
end;

คำสั่งในการ หารปัดเศษ (DIV) และหารเอาเศษ (MOD)
procedure TForm1.Button5Click(Sender: TObject); // ป้อนคำสั่งในปุ่ม
var sumn1 : real ; // กำหนดให้ตัวแปร sum1 เป็นจำนวนจริง
begin
sumn1 := strtoint(edit1.Text) DIV strtoint(edit2.text); // ให้ตัวแปร sumn1 เก็บค่าจากการ หารปัดเศษ (DIV) และหารเอาเศษ (MOD) จำนวนที่1 และจำนวนที่ 2 ไว้
edit3.text := floattostr(sumn1); //ให้แสดงผลลัพธ์ ใน edit3.text
end;