+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ماهي دالة التقريب (/showthread.php?tid=9194)
ماهي دالة التقريب - dahmane26 - 22-02-2018
السلام عليكم
اخوتي ما هي دالة تقريب الرقم العشري الى قيمة اعلى مهما كانت القيمة العشرية مثلا 10.1 يصبح 11 و 10.5 يصبح 11 و 10.05 يصبح 11
اعرف الدالة round لكنها عندما تكون المنزلة العشرية اقل من 5 مثل 10.1 ترجعه 10 وليس 11
RE: ماهي دالة التقريب - Agmcz - 23-02-2018
المصدر
مع بعض اللمسات
PHP كود :
function RoundCorrect(R: Real): LongInt;
var
s: Real;
begin
Result:= Trunc(R); // extract the integer part
if Frac(R) > 0 then
Result := Result + 1; // ...add 1
end;
RE: ماهي دالة التقريب - mobile - 23-02-2018
وعليكم السلام ورحمة الله
يمكن ايضا
كود :
Trunc(12.1)+1:=13;
Trunc(12.9)+1:=13;RE: ماهي دالة التقريب - dahmane26 - 24-02-2018
(23-02-2018, 12:20 AM)Agmcz كتب : المصدر
مع بعض اللمسات
PHP كود :function RoundCorrect(R: Real): LongInt;
var
s: Real;
begin
Result:= Trunc(R); // extract the integer part
if Frac(R) > 0 then
Result := Result + 1; // ...add 1
end;
شكراا لك