اخي المبرمج - سؤال في الكيوبيسك

[GREAT1]

اخي المبرمج..لدي سؤال في Qbasic اذا تكرمت

بدأت بكتابة برنامج بسيط يطلب من المستخدم ادخال رقم..ثم يجري عليه بعض العمليات كالتالي:

REM loop
REM Great1

INPUT "enter a number"; n
IF n <> 0 THEN
PRINT n, n ^ 2
ELSE
PRINT "end a program"
END IF
END

كما رأيت في الكود اعلاه استخدمت الاوامر If..Then..Else وعمل البرنامج بشكل جيد..

وكذلك باستخدام For...Next لا مشاكل..

input "enter a number"; n
FOR n= 1 to 10
sum= n ^ 2
print n,sum
next n
end

وعندما اردت استخدام Do While ومن ثم Loop بدأت تظهر مشكلة تكرار الاعداد بشكل رهيب..بدون توقف..عملته كالتالي:

do while n<>0
print n , n ^ 2
loop
end

طبعا لا يمكنني اقفال جملة Do While بدون استخدام ال Loop ..ولكن هذا يسبب تكرار الاعداد بلا توقف عند التشغيل Run وادخال اي رقم !!!

هل من حل لذلك؟؟ وكيف يمكنني ان ادخل Do While بداخل If Next بدن مشاكل؟؟

مع العلم باني جربت نفس فكرة البرنامج على ++C وعملت بدون مشكلة التكرار..!!

[ابن مكة]

اسف للتدخل و التطفل و لكن شدتنى كلمة كيو بيسيك

و اسمح لى ...

بالنسبة للفقرة الاخيرة يمكن تجاوز المشكلة بعدة طرق احدها

input n
do while n<>0
print n , n ^ 2
input n
loop
end

[قهوة نت]

والله في شوي لقافة بعد لكن ابرد وماعلي ....

بالنسبة للفقرة الأخيرة طبيعي ان البرنامج مايوقف لأن مافيه شي يحدة أبد ...
أنت قلت للبرنامج أمش في هذي اللوب مادام ان n لا تساوي صفر وداخل اللوب مافيه أي أمر يغير قيمة n. وكحل أخر لنفس حل الأخ ابن مكة:

n=10
do while n<>0 
print n , n ^ 2 
n=n-1
loop 
end

بيسك A و جي دبليو بيسك وكويك بيسك .... الله المستعااااان ... والله زمان

[GREAT1]

شكراا جزيلا لكما ابن مكه وعابر سبيل