اموزش Qbasic (فرایندهای تکراری)

فرایندهای تکراری ( حلقه تکرار )
اجرای تعدادی دستور به دفعات معین ؛ یا تا برقراری شرایطی جهت رسیدن به جواب مسئله است . دستوراتی که به دفعات تکرار می شود ؛ یک حلقه تکرار راتشکیل می دهند .
FOR - NEXT : در صورتی استفاده می شود که دفعات تکرار معین و یا بتوان فرایند تکرار را با متغییری کنترل کرد .

چاپ اعدا متوالی تا 20

کد:

Cls
For I=1 To 20
Print I ;
Next I
End

STEP : در حلقه For - Next قدمهای تکرار یکی ؛ یکی رو به جلو تعریف شده در بقیه حالت ها چه مثبت چه منفی باید در مقابل For - To Step معلوم گردد .
چاپ نزولی از 20 تا 1

کد:

Cls
For I = 20 to 1 Step - 1
Print I
Next I
End

با توجه به دانسته های بالا برای مسئله های داده شده در بخش الگوریتم برنامه بنویسید . در صورتیکه نرم افزار QBASIC را در کامپیوترتان ندارید در بخش نظزات وبلاگ آدرس E-Mail خودتان ار بنویسید تا برایتان نرم افزار را ارسال کنم . هرچند این نرم افزار برای محیط DOS تعریف شده اما بدون هیچگونه مشکلی در محیط ویندوز XP کار می کند . جهت اطلاع می گویم برای مشاهده تمام صفحه محیط QBASIC از کلید ترکیبی Alt + Enter استفاده کنید . برای برگشت هم از همان کلید ترکیبی استفاده کنید .
چند نمونه برنامه
برنامه چاپ زوج یا فرد بودن عدد ورودی

کد:

Cls
Input N
Let r = N Mod 2
If r = 0 Then Print N ; " is Even " Else Print N ; " is Odd "
End

برنامه تبدیل ثانیه به ساعت ؛ دقیقه و ثانیه

کد:

Cls 
Input S
Let H = S \ 3600
Let S = S Mod 3600
Let M = S \ 60
Let Se = S Mod 60
Print H , M , Se
End

چاپ مقسوم علیه های عدد 12

کد:

Cls 
Let I = 1
8 Let r = 12 Mod I
If r = 0 Then Print I
Let I = I + 1
If I < = 12 Then Goto 8 
End

چاپ مقسوم علیه های عدد 12 بکمک دستور For – Next

کد:

Cls
For I = 1 To 12
R = 12 Mod I
If r = 0 Then Print I
Next I
End

چاپ تعداد مقسوم علیه های عدد 12

کد:

Cls
Let K = 0
For I = 1 To 12
R = 12 Mod I
If r = 0 Then Let K = K = 1
Next I
Print K
End

چاپ مجموع مقسوم علیه های عدد 12

کد:

Cls
Let S = 0
For I = 1 To 12
R = 12 Mod I
R = 0 Then Let S = S + I
Next I
Print S
End

چاپ مقسوم علیه های عدد ورودی

کد:

Cls
Input N
For I = 1 To N
R = N Mod I
If r = 0 Then Print I
Next I
End

چاپ عدد ورودی به شرط اول بودن عدد ( به کمک تعداد مقسوم علیه )

کد:

Cls 
Let K = 0
Input N
For I = 1 To N
R = N Mod I
If r = 0 Then Let K = K + 1
Next I
If K = 2 Then Print N ; " is Aval "
End

چاپ عدد ورودی به شرط اول بودن عدد ( به کمک مجموع مقسوم علیه )

کد:

Cls
Let S =0
Input N
For I = 1 To N 
R = N Mod I
If r = 0 Then Let S = S + I
Next I
If S = N + 1 Then Print N ; " is Aval "
End

چاپ عدد ورودی به شرط تام بودن عدد

کد:

Cls
Let S = 0
Input N
For I = 1 To N/2
R = N Mod I
If r = 0 Then S = S + I
Next I
If S = N Then Print N ; " is TAM "
End

چاپ عددهای زوج بین دو عدد ورودی به شرط اینکه عدد اول از دوم کوچکتر باشد( معلوم نیست عدد اول زوج باشد )

کد:

Cls 
Input m , n
Let r = m Mod 2
If r > 0 Then Let m = m + 1
7 Print m
Let m = m + 2
If m < = N Then Goto 7
End

کد:

Cls
Input N
Let r = N Mod 7
For I = 0 To 5
If r = I Then Print I ; " Shanbe" : End
Next I
Print " Joomae "
End

چاپ تعداد ارقام عدد ورودی

کد:

Cls
Let K = 0
Input N
3 Let M = N \ 10
If M > 0 Then Let K = K + 1
Let N = M
If N > 0 Then Goto 3
Print K
End

چاپ مجموع ارقام عدد ورودی

کد:

Cls
Let S = 0
Input N
3 Let R = N Mod 10
Let M = N \ 10
If M > 0 Then Let S = S + r
Let N = M
If N > 0 Then Goto 3
Print S
End

تولید عددهای فرد دو رقمی

کد:

Cls
For I = 1 To 9 Step 2
For K = 1 To 9 Step 2
Sum = I * 10 + K
Prin Sum
Next k
Next I
End

تعداد دفعات ممکن خرد کردن اسکناس 2000 ریالی بکمک سکه های 50 ؛ 100 و 250 ریالی به شرط اینکه از هر سکه حداقل یکی باشد .

کد:

Cls 
K = 0
For P = 1 To 33
For S = 1 To 17
For D = 1 To 7
Let sum = P * 50 + S * 100 + d * 250
If Sum = 2000 Then k = k + 1
Next D
Next S
Next P
Print K
End