برنامج لحساب مجموع الأعداد المتتالية

[خالد على22]

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

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


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

http://www.4shared.com/rar/mszJCd3L/count_seriak.html

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

[syscall]

السلام عليكم

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

سلامي

[خالد على22]

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

[خالد على22]

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

[onexite]

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

var i:integer;
begin
for i:=strtoint(edt1.text) to strtoint(edt2.text) do
edt3.text:= inttostr(strtoint(edt3.text) +i)

[خالد على22]

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

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