تفقيط مجموع ناتج عن نسب مؤوية

[kachwahed]

السلام عليكم
الخوارزمية صحيحة، الخلل ليس فيها
الخلل في تدوير العدد...
استخدم Round/Trunc لتفادي الخلل
ينظر:
http://www.delphi4arab.net/forum/showthr...p?tid=3246
http://www.delphi4arab.net/forum/showthr...p?tid=2336
للتفقيط ينظر:
http://www.delphi4arab.net/forum/showthr...p?tid=2360
http://www.delphi4arab.net/forum/showthread.php?tid=299
http://www.delphi4arab.net/forum/showthr...p?tid=1450
بالتوفيق.