:: Download ::
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); // ให้ตัวแปร sumn1 เก็บค่าการบอกลบคูณของจำนวนทั้งหมดไว้
edit6.text := floattostr(sumn1); // ให้แสดงผลลัพธ์ใน edit6.text
end;
ไม่มีความคิดเห็น:
แสดงความคิดเห็น