delphi4arab منتديات دلفي للعرب

[color="royalblue"]بسم الله الرحمن الرحيم

كيف يمكن استخراج باقي القسمة ؟

مثال:[/color]


كيف استخرج الرقم [color="red"]25 من القسمة ؟[/color]

إن كنت تقصد الحصول على ما بعد الفاصلة بصيغته الأصلية يعني من 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

أتمنى أن يكون المطلوب..... هذا والله أعلم

[COLOR="RoyalBlue"]شكرا استاذ James

الدالة التي كنت اقصدها هي Frac.[/COLOR]

frac ام mod ?
اعتقد انه هناك فرق بين الكسر و باقى القسمة
mod تعطى باقى القسمة
و الله اعلم