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

برنامج لحساب مجموع الأعداد المتتالية من أى رقم لآى رقم
لو حسبنا من 1 إلى 4 يعطى الناتج 10
1+2+3+4 = 10
لو حسبنا من 3 إلى 5 يعطى الناتج
3+4+5 = 12

يمكن الحساب من أى رقم لآى رقم أقل من عشرة مليارات
برنامج بسيط لا يميزه أى شيئ غير السرعة فى الحصول على النتيجة خصوصا عند التعامل مع الأرقام الكبيرة
و يستغرق من عدة أجزاء من الثانية حتى ثانية واحدة للحساب (يعتمد ذلك على طول الرقم)


البرنامج مبرمج بالدلفى ex و بحجم نصف ميجابايت
رابط التحميل

إقتباس :http://www.4shared.com/rar/mszJCd3L/count_seriak.html

مع خالص تحياتى للجميع

السلام عليكم

اذا كان مجموع 1 الى 987654321 هو 487730529388812672 فالاجرائية فيها خطأ لأن المجموع سوف يكون 487730529388812681

سلامي

يكفى أن تكون ثلاثة نقاط على إستقامة واحدة لكى نحكم على جميع النقاط الموجودة على هذا الخط بأنها على إستقامة واحدة !!
النقاط هى النتائج و الخط هو البرنامج
جميع نتائج البرنامج صحيحة .... راجعتها أكثر من مرة

عفوا
يبدوا أن كلامك صحيح
سأعيد النظر بالبرنامج

هل هذه دالة رياضية حاولت بالطريقة الكلاسيكية فتجمد البرنامج

إقتباس :var i:integer;
begin
for i:=strtoint(edt1.text) to strtoint(edt2.text) do
edt3.text:= inttostr(strtoint(edt3.text) +i)

onexite كتب :هل هذه دالة رياضية حاولت بالطريقة الكلاسيكية فتجمد البرنامج

طبعا أخى
لابد أنك إستخدمت رقما كبيرا جدا كحد أعلى للحلقة