วันพุธที่ 6 สิงหาคม พ.ศ. 2551

Delphi เรียนรู้การปัดเศษต่างๆ

ในที่นี้ผมจะเสนอ 4 คำสั่งที่ใช้กันอยู่บ่อยครั้ง
1. Round สำหรับการปัดค่า
2. Int ทำให้กลายเป็นจำนวนเต็มหรือ Integer
3. Trunc ไว้สำหรับตัดเศษโดยเฉพาะโดยจะตัดทั้งเลยไม่มีการปิด
4. Frac สำหรับคำสั่งนี้อาจไม่ค่อยคุ้นนักทำหน้าที่ตรงข้ามกับ trunc คือตัดตัวเลขด้านหน้าทิ้ง

ตัวอย่าง

begin
ShowMessage('Round(12.75) = '+IntToStr(Round(12.75)));
ShowMessage('Trunc(12.75) = '+IntToStr(Trunc(12.75)));
ShowMessage(' Int(12.75) = '+FloatToStr(Int(12.75)));
ShowMessage(' Frac(12.75) = '+FloatToStr(Frac(12.75)));
end;

ผลลัพธ์
Round(12.75) = 13
Trunc(12.75) = 12
Int(12.75) = 12
Frac(12.75) = 0.75

ไม่มีความคิดเห็น: