03-05-2023, 10:34 AM
05-05-2023, 11:32 PM
وعليكم السلام ورحمة الله
يمكنك مراجعة الموضوع التالي عن دوال التقريب
تعيد النتيجة التالية
يمكنك مراجعة الموضوع التالي عن دوال التقريب
كود :
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.7506-05-2023, 01:22 AM
(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;