delphi4arab منتديات دلفي للعرب
كيف التقريب في فاصلة العدد باستخدام Round - نسخة قابلة للطباعة

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



كيف التقريب في فاصلة العدد باستخدام Round - hamam2008 - 20-09-2012

السلام عليكم و رحمة الله و بركاته
اخواني الكرام لدي مشكلة تتمثل في التقريب في فاصلة العدد فا دائما ينقص او يزيد سنتيم بينما في الإكسل يبقى العدد صحيح فابحثت و وجدت round فهل من مثال على round بارك الله فيكم .


كيف التقريب في فاصلة العدد باستخدام Round - لؤي - 20-09-2012

تقوم الدالة بتقريب الأرقام العشرية أي أنها تقوم باختصار الأرقام التي على يمين العلامة العشرية الى أي عدد تريده من الأرقام والمثال يوضح المقصود :

echo round(100.5432, 2); // تكون النتيجة
100.54 تأخذ رقمين بعد الفاصلة وتقرب الرقم الثاني بعد الفاصلة على أساس الرقم الثالث
echo round(100.5487, 2); // تكون النتيجة
100.55 تأخذ رقمين بعد الفاصلة وتقرب الرقم الثاني بعد الفاصلة على أساس الرقم الثالث
echo round(100.5487, 0); // تكون النتيجة
100 لا تأخذ أي رقم بعد الفاصلة وتقرب الرقم قبل الفاصلة إستنادا على الرقم الأول بعد الفاصلة


RE: كيف التقريب في فاصلة العدد باستخدام Round - imad19_soft - 27-04-2018

سلام غليكم
بارك الله فيكم عندي مشكلة
مثلا 2.40 عندما استعمل round يصبح العدد 2 مااهو الحل لارجاع القيمة الي 3
شكرا


RE: كيف التقريب في فاصلة العدد باستخدام Round - benali137 - 05-05-2018

وعليكم السلام : أخي Round تقرب العدد الذي بعد الفاصلة إذا كان اكبر أو يساوي 5 مثلا لو كان العدد 2.6 بالدالة يصبح العدد 3
اما في حالتك فلا تعمل الدالة.والله اعلم


RE: كيف التقريب في فاصلة العدد باستخدام Round - AX302 - 06-05-2018

(27-04-2018, 11:17 AM)imad19_soft كتب : سلام غليكم
بارك الله فيكم  عندي مشكلة
مثلا    2.40 عندما استعمل round  يصبح العدد 2  مااهو الحل لارجاع القيمة الي 3
شكرا

السلام عليكم 
كود :
 if Frac(2.40) <= 0.50 then  begin    ShowMessage(IntToStr(Round(2.40) + 1));  end