اخي المبرمج..لدي سؤال في 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 وعملت بدون مشكلة التكرار..!!