Work 5.1.1

:: Download ::

Work 1.3.5

:: Download ::

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

Work 1.3.4

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

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;

Work 1.3.2

:: Download ::

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

procedure TForm1.Button4Click(Sender: TObject);
var answer : word ; // กำหนดตัวแปรเป็นชนิดข้อมูลแบบตัวอักษร
begin
answer := messageDlg('ต้องการเลิกงาน ?',mtconfirmation,[mbYes,mbNo],0); // ให้แสดง Dialog Box แสดงการยืนยันการออกจากโปรแกรม
if answer = mrYes then // ถ้ากด Yes
close // ให้ปิดโปรแกรม
else // ถ้ากด No
showmessage('Black to Program ..OK!'); // ให้แสดงข้อความตามกำหนด
end;

Work 1.3.1

:: Download ::

procedure TForm1.Button1Click(Sender: TObject); // ป้อนคำสั่งในปุ่ม Show Your Name
begin
ShowMessage('Hello I! My Name is Attawat') //แสดงข้อความตามที่กำหนด
end;

procedure TForm1.Button2Click(Sender: TObject); // ป้อนคำสั่งในปุ่ม Show Your Information
begin
MessageDlg('My School is CUD',MtWarning,[MbYes,MbNo,MbHelp],1) //แสดง Dialog Box ตามที่กำหนด
end;

procedure TForm1.Button3Click(Sender: TObject); // ป้อนคำสั่งในปุ่ม Show Time
begin
MessageDlg('Now Time is....'+TimetoStr(now),MtError,[MbOK,MbCancel,MbHelp],1) //แสดง Dialog Box ตามที่กำหนด และ แสดงเวลาปัจจุบัน
end;

Work 3.1.1

1. if sale > 100000 then bonus := sale*10/100

2. if x <> 2 then edit1.text := 'ไม่ทราบค่า
else edit1.text := 'เลข2'

3. if (score >= 70) and (score <=80) then grade := 'B'

4. if (x = 1) or (y = 1) then edit1.text := 'ไม่ถูกต้อง'

5. if (distance <=5) then rate :=10
else if (distance <=10) then rate := 15
else rate := 20

6. ถ้านํ้าหนักมากกว่าความสูงลบด้วยอัตราส่วนที่กำหนด ให้แสดงข้อความว่า "Your Weight is over standard"

7. ถ้าเงินเดือนมากกว่าหรือเท่ากับ 10000 บาทและเงินเดือนน้อยกว่า 50000 บาท ภาษีเท่ากับเงินเดือนคูณด้วย 0.15

8. ถ้ายอดขายมากกว่า 30000 จะได้ค่าตอบแทนเป็น 5% ของยอดขาย

9. ถ้า X น้อยกว่า 50 ให้แสดงข้อความว่า "ไม่ผ่าน" นอกจากนั้นแสดงข้อความ "ผ่าน"

10. ถ้าคะแนนมากกว่าหรือเท่ากับ 1 และ คะแนนน้อยกว่า 5 ให้แสดงข้อความว่า "Bad"
ถ้าคะแนนน้อยกว่าหรือเท่ากับ 7 ให้แสดงข้อความว่า "Fair"
ถ้าคะแนนน้อยกว่าหรือเท่ากับ 9 ให้แสดงข้อความว่า "Good"