مجموعه برنامه هاي ساده , ابتداعي زبان برنامه نويسي QBasic

[TAHA]

برنامه اي بنويسيد كه بتواند مقدار Z را از رابطه z=|5-x| / 1-y به ازاي دريافت مقادير X و Y از ورودي محاسبه كند

CLS
 
INPUT “ENTER  X , Y: “, X , Y
 
Z = ABS ( 5  – X ^ 2 ) / ( 1 – Y )
 
PRINT “ Z =  ” ; Z

2 - برنامه اي بنويسيد كه بتواند يك عدد اعشاري مثبت يا منفي را از ورودي دريافت سپس قسمت اعشار عدد را حذف نمايد ونتيجه را نمايش دهد

CLS 
 
Input “ enter A FIXED-POINT NUMBER  : “ ; N
 
N1 = SGN (N) * INT ( ABS (N )  )
 
PRINT  N1

توجه : تابع n)) SGN علامت عدد يا متغير عددي يا عبارت عددي داخل پرانتز را پس از محاسبه باز مي گرداند

3– برنامه اي بنويسيد كه بتوانددو نام را از كاربر دريافت كرده وسپس هر يك را به همراه طول آن نمايش دهد

 
 CLS
 
FOR I = 2
 
INPUT “ENTER A NAME: “ ,  A$
 
PRINT A$ ,  LEN ( A$ )
 
NEXT I  

[TAHA]

مي خواهيم تا زماني كه كلمه وارد شده از طرف كاربر مخالف رمز عبور (مثلاfarrokhi ) است ، رمز دوباره دريافت شود . به روش هاي مختلف نوشتن اين برنامه توجه كنيد :

 
                                INPUT  pass$ 
           DO WHILE pass$ <> “farrokhi"
                    INPUT pass$
                                              LOOP
------------------------------------------
INPUT  pass$ 
               DO UNTIL pass$="farrokhi"
INPUT pass                    $
                              LOOP
------------------------------------------
DO 
INPUT  pass                     $
         LOOP  WHILE  pass$  <>  “farrokhi”
-------------------------------------------
DO
                 INPUT pass$
           LOOP UNTIL pass$="farrokhi"

همانطور كه مشاهده مي كنيد هر 4 بخش يك كار را انجام مي دهند اما بخش هاي 3 و 4 از 1 و 2 بهترند زيرا متن برنامه آنها كوتاه تر است . بسته به منطق برنامه بايد تشخيص دهيد كدام روش بهتر است .به نظر شما چه تفاوتهاي ديگر ي وجود دارد ؟

برنامه شماره 7 : برنامه اي بنويسيد كه مجموع اعداد از 1 تا 1000 را حساب كند .

counter=   1
sum = 0
DO WHILE counter =>  1000 
Sum = sum +  counter
counter =  counter+1
LOOP
PRINT "Sum of numbers between 1 & 1000   is : ";sum
END

برنامه شماره 8 : برنامه اي بنويسيد كه ميانگين نمرات را تا زماني كه عدد 1- وارد نشده ، حساب كند .

counter=1               
sum=0
DO
INPUT "Enter grade”, grade
sum=sum+ grade
counter=counter+1
LOOP WHILE grade <>  -1
IF sum <> -1 THEN
PRINT "average is"; (sum+1) /  counter
ELSE
PRINT "there isn't any grade"!
END IF
END

توضيح : در قسمت چاپ ميانگين مقدار ميانگين را برابرsum+1)/counter) قرار داديم زيرا وقتي عدد 1- وارد مي شود ابتدا با sum جمع شده و سپس شرط چك مي شود و از حلقه بيرون مي آيد پس براي محاسبه ميانگين اعدادي كه قبل از 1- وارد شده اند بايد 1- را از sum حذف كرد يعني به sum يك مقدار اضافه كنيم.

[TAHA]

برنامه اي بنويسيد كه محتواي يك متغير عددي و نتيجه يك عبارت محاسباتي را در خروجي نمايش دهد .

A = 20.8

PRINT A

PRINT 5 * 4 – 5 / 4

2 – برنامه اي بنويسيد كه دو رشته ويك سطر خالي را را به عنوان خروجي نمايش دهد.

PRINT “MONITOR”

PRINT

PRINT "SPEAKER"

3- برنامه اي بنويسيد كه بتواند 5 عددرااز ورودي بگيرد وسپس ميانگين آنهارا محاسبه و نمايش دهد

CLS

INPUT “Enter 5 namber A, B, C, D, E” ; A, B, C, D, E

AVE =( A+ B+ C + D + E ) / 5

PRINT AVE

END

4 – برنامه ا ي بنويسيد كه بتواند مقدار M را از رابطه M = N3 + 5 به ازاي مقدار دلخواه N محاسبه ونمايش دهد

CLS

INPUT N

M = N ^3 + 5

PRINT “M=”; M