دالة تقريب الرقم - نسخة قابلة للطباعة

دالة تقريب الرقم - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : دالة تقريب الرقم (/showthread.php?tid=12293)

دالة تقريب الرقم - Team dz - 03-05-2023

السلام عليكم ورحمة الله

اريد دالة لتقريب العدد

مثال

2008392 عند التقريب تصبح 200840

RE: دالة تقريب الرقم - Delphi4Us - 05-05-2023

وعليكم السلام ورحمة الله

يمكنك مراجعة الموضوع التالي عن دوال التقريب

كود :
http://www.delphibasics.co.uk/RTL.php?Name=Round

كود :
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

RE: دالة تقريب الرقم - wadoud - 06-05-2023

(03-05-2023, 10:34 AM)Team dz كتب : السلام عليكم ورحمة الله

اريد دالة لتقريب العدد

مثال

2008392 عند التقريب تصبح 200840

كود :
function RoundNumber(number: Double): Integer;
begin
  Result := Round(number);
end;

كود :
var
  roundedNumber: Integer;
begin
  roundedNumber := RoundNumber(2008392);
  // roundedNumber will contain the rounded value: 200840
end;