การใช้งาน if-else ในภาษา Delphi Object Pascal แบบง่ายๆ พร้อมตัวอย่าง CODE และอธิบายการทำงาน

ในโลกของการเขียนโปรแกรม หากคุณต้องการให้โปรแกรมของคุณทำการตัดสินใจหรือเปลี่ยนแปลงพฤติกรรมตามเงื่อนไขที่กำหนด คุณจะต้องใช้คำสั่งที่เรียกว่า "if-else" ในบทความนี้ เราจะพาคุณไปทำความรู้จักกับการใช้งาน if-else ในภาษา Delphi Object Pascal โดยจะมีตัวอย่างโค้ดและอธิบายที่เข้าใจง่าย เพื่อให้คุณเข้าใจได้อย่างลึกซึ้งยิ่งขึ้น!

if-else คืออะไร?

โครงสร้างเบื้องต้นของ if-else

 if เงื่อนไข then
begin
  // คำสั่งกลุ่มที่ทำงานเมื่อเงื่อนไขเป็นจริง
end
else
begin
  // คำสั่งกลุ่มที่ทำงานเมื่อเงื่อนไขเป็นเท็จ
end;

ตัวอย่างโค้ดการใช้งาน if-else

มาลองดูตัวอย่างโค้ดการใช้งาน if-else ในการตรวจสอบคะแนนนักเรียนกันดีกว่า ถ้านักเรียนได้คะแนนสูงกว่าหรือเท่ากับ 50 จะถือว่าผ่าน แต่ถ้าน้อยกว่า 50 จะถือว่าตก:

 program CheckGrade;

var
  score: Integer;

begin
  Write('กรุณาใส่คะแนนนักเรียน: ');
  ReadLn(score);

  if score >= 50 then
  begin
    WriteLn('นักเรียนผ่าน');
  end
  else
  begin
    WriteLn('นักเรียนตก');
  end;

  ReadLn;
end.

การทำงานของโค้ด

1. โปรแกรมจะร้องขอให้ผู้ใช้กรอกคะแนนนักเรียน

2. ใช้คำสั่ง `if` เพื่อตรวจสอบคะแนนที่ผู้ใช้กรอกเข้ามา

3. ถ้าคะแนนมากกว่าหรือเท่ากับ 50 โปรแกรมจะพิมพ์ว่า "นักเรียนผ่าน"

4. ถ้าน้อยกว่าคะแนน 50 โปรแกรมจะพิมพ์ว่า "นักเรียนตก"

Use Case ในโลกจริง

การใช้คำสั่ง if-else สามารถนำไปประยุกต์ในแอปพลิเคชันต่างๆ ได้มากมาย ตัวอย่างเช่น:

1. ระบบตรวจสอบสิทธิในการเข้าถึง (Access Control)

ในระบบที่ต้องการตรวจสอบสิทธิของผู้ใช้ เช่น เว็บไซต์หรือแอปพลิเคชัน คุณสามารถใช้ if-else เพื่อทำการตรวจสอบสิทธิของผู้ใช้ว่ามีสิทธิในการเข้าถึงหน้าที่กดหรือไม่ ถ้าผู้ใช้มีสิทธิ โปรแกรมจะให้เขาเข้าถึง แต่ถ้าไม่มีสิทธิ โปรแกรมจะไม่อนุญาตให้เข้าถึง

 var
  userRole: String;

begin
  userRole := 'admin'; // ตัวอย่างการกำหนดหน้าที่ของผู้ใช้

  if userRole = 'admin' then
  begin
    WriteLn('ยินดีต้อนรับสู่หน้าผู้ดูแลระบบ');
  end
  else
  begin
    WriteLn('คุณไม่มีสิทธิในการเข้าถึงหน้านี้');
  end;
end.

2. การจัดการข้อมูลสมาชิก (Member Management)

ในการสร้างโปรแกรมการจัดการสมาชิก คุณสามารถใช้ if-else เพื่อตรวจสอบสถานะของสมาชิกว่าเป็นสมาชิกที่ชำระเงินเรียบร้อยแล้วหรือไม่ ถ้าเป็นสมาชิกที่ชำระเงิน โปรแกรมจะแสดงข้อมูลสมาชิก แต่ถ้าไม่ชำระเงิน โปรแกรมจะแจ้งว่า "กรุณาชำระเงินเพื่อเข้าร่วม"

 var
  paymentStatus: Boolean;

begin
  paymentStatus := True; // สถานะการชำระเงิน (สมมุติว่าจ่ายแล้ว)

  if paymentStatus then
  begin
    WriteLn('ข้อมูลสมาชิก: สมาชิกชำระเงินเรียบร้อย');
  end
  else
  begin
    WriteLn('กรุณาชำระเงินเพื่อเข้าร่วม');
  end;
end.

สรุป

การใช้งานคำสั่ง if-else ในภาษา Delphi Object Pascal นั้นง่ายและมีประโยชน์มากมายในการสร้างโปรแกรมที่อัจฉริยะ ตรวจสอบเงื่อนไข และทำการเปลี่ยนแปลงการทำงานของโปรแกรมได้อย่างมีประสิทธิภาพ การเข้าใจและใช้คำสั่งนี้อย่างถูกต้องจะทำให้คุณสามารถควบคุมลำดับการทำงานของโปรแกรมได้อย่างแม่นยำ

พร้อมหรือยังที่จะเริ่มต้นการเดินทางในการเขียนโปรแกรมกัน? ไม่มีอะไรที่รอคอยคุณอยู่ที่ EPT!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง