+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استخراج باقي القسمة (/showthread.php?tid=1056)
استخراج باقي القسمة - Goblin - 16-07-2009
[color="royalblue"]بسم الله الرحمن الرحيم
كيف يمكن استخراج باقي القسمة ؟
مثال:[/color]
كود :
9/4 = 2.[color=red]25[/color]كيف استخرج الرقم [color="red"]25 من القسمة ؟[/color]
استخراج باقي القسمة - James - 16-07-2009
إن كنت تقصد الحصول على ما بعد الفاصلة بصيغته الأصلية يعني من 2.25 تتخصل على 0.25 فإليك هذه:
(X-Trunc(X حيث أن ْX هو 4/9
وفي حالة رغبت في الحصول على باقي القسمة في صيغة عدد طبيعي إلجأ إلى هذه الخدعة:
;var S:String;i:Integer
;((S:= FloatToStr(X-Trunc(X
;(((i:=StrToInt(Copy(S,3,Length(S
أتمنى أن يكون المطلوب..... هذا والله أعلم
استخراج باقي القسمة - Goblin - 16-07-2009
[COLOR="RoyalBlue"]شكرا استاذ James
الدالة التي كنت اقصدها هي Frac.[/COLOR]
استخراج باقي القسمة - خالد على22 - 02-03-2012
frac ام mod ?
اعتقد انه هناك فرق بين الكسر و باقى القسمة
mod تعطى باقى القسمة
و الله اعلم