การใช้งาน Math Function sqrt, sin, cos, tan ในภาษา Delphi Object Pascal

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

ในบทความนี้เราจะมาทำความรู้จักกับฟังก์ชันคณิตศาสตร์สองกลุ่ม ได้แก่ ฟังก์ชันที่เกี่ยวกับตรีโกณมิติ (sin, cos, tan) และฟังก์ชันการหาค่า รากที่สอง (sqrt) โดยจะมีตัวอย่างโค้ดและกรณีการใช้งานในชีวิตจริงเพื่อให้เข้าใจได้ง่ายขึ้น

1. ฟังก์ชันพื้นฐานของ Math ใน Delphi

Delphi มีหน่วยงานที่ชื่อว่า `Math` ซึ่งเป็นที่รวมของฟังก์ชันคณิตศาสตร์หลายๆ ตัวไว้ ดังนั้นคุณจึงสามารถใช้ฟังก์ชันต่างๆ ที่ต้องการโดยการเรียกใช้งานหน่วยงานนี้

การใช้ sqrt

ฟังก์ชัน `sqrt` ใช้ในการหาค่ารากที่สองของจำนวนที่กำหนด โดยสามารถนำไปใช้ในหลายกรณี เช่น การคำนวณวัดระยะทาง

ตัวอย่างโค้ด:

 var
  num: Double;
  result: Double;
begin
  num := 16.0;
  result := Sqrt(num);
  Writeln('รากที่สองของ ', num:0:0, ' คือ ', result:0:0);
end;

การทำงาน:

ในโค้ดข้างต้น เราประกาศตัวแปร `num` เพื่อเก็บเลข 16.0 และใช้ฟังก์ชัน `Sqrt` เพื่อหาค่ารากที่สอง ซึ่งจะให้ผลลัพธ์เป็น 4.0

การใช้ sin, cos, tan

ฟังก์ชัน `sin`, `cos`, และ `tan` ใช้ในการหาค่าตรีโกณมิติ โดยต้องการมุมเป็นเรเดียน

ตัวอย่างโค้ด:

 var
  angle: Double;
  sinValue, cosValue, tanValue: Double;
begin
  angle := 45 * (Pi / 180); // แปลงมุมจากองศาเป็นเรเดียน
  sinValue := Sin(angle);
  cosValue := Cos(angle);
  tanValue := Tan(angle);

  Writeln('sin(45°) = ', sinValue:0:2);
  Writeln('cos(45°) = ', cosValue:0:2);
  Writeln('tan(45°) = ', tanValue:0:2);
end;

การทำงาน:

ในโค้ดตัวอย่าง เราจะใช้มุม 45 องศา ซึ่งเราแปลงเป็นเรเดียนก่อน โดยใช้สูตร `angle := 45 * (Pi / 180)` ค่าที่ได้สำหรับ `sin`, `cos`, และ `tan` จะถูกคำนวณและแสดงผลใน console

2. กรณีการใช้งานในชีวิตจริง

กรณีการคำนวณระยะทาง

ในวิศวกรรมการออกแบบโครงการต่างๆ อาจมีความจำเป็นในการใช้ฟังก์ชัน `sqrt` เพื่อคำนวณระยะทางระหว่างจุดสองจุดบนระนาบ (X1, Y1) และ (X2, Y2) ซึ่งใช้สูตร:

\[

d = \sqrt{(x2 - x1)^2 + (y2 - y1)^2}

\]

ตัวอย่างโค้ด:

 var
  x1, y1, x2, y2: Double;
  distance: Double;
begin
  x1 := 1.0; y1 := 1.0;
  x2 := 4.0; y2 := 5.0;

  distance := Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1));
  Writeln('ระยะทางระหว่างสองจุดคือ ', distance:0:2);
end;

กรณีการคำนวณในกราฟีน

ในกรณีของการคำนวณค่าตรีโกณมิติ ฟังก์ชัน sin, cos และ tan จะมีประโยชน์เมื่อคุณพัฒนาเกม เช่น การคำนวณทิศทางของตัวละคร

ตัวอย่างโค้ด:

 var
  angle: Double;
begin
  angle := 30 * (Pi / 180); // แปลงมุมจากองศาเป็นเรเดียน

  Writeln('การเคลื่อนไหวในแนวนอน: ', Cos(angle):0:2);
  Writeln('การเคลื่อนไหวในแนวตั้ง: ', Sin(angle):0:2);
end;

3. สรุป

การใช้ฟังก์ชันคณิตศาสตร์ในภาษา Delphi Object Pascal นั้นง่ายและมีประโยชน์หลายด้าน ไม่ว่าจะเป็นการคำนวณทางวิทยาศาสตร์หรือการพัฒนาโปรแกรมใช้งานจริง ทำให้เรียนรู้การทำงานเบื้องต้นได้ไม่ยาก

หากคุณสนใจ เรียนรู้เพื่อพัฒนาทักษะโปรแกรมในด้านต่างๆ พร้อมกับทีมงานที่มีประสบการณ์ที่ EPT ก็ยินดีต้อนรับเสมอค่ะ!

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