المشاركات : 43
المواضيع 15
:
: 22
الإنتساب : Oct 2022
السلام عليكم ورحمة الله
اريد دالة لتقريب العدد
مثال
2008392 عند التقريب تصبح 200840
المشاركات : 1,677
المواضيع 349
:
: 1,069
الإنتساب : Nov 2013
وعليكم السلام ورحمة الله
يمكنك مراجعة الموضوع التالي عن دوال التقريب
كود :
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
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
المشاركات : 259
المواضيع 35
:
: 383
الإنتساب : Feb 2011
(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;
الخوف من أي محاولة جديدة طريق حتمي للفشل.
دالة تقريب الرقم
