تبلیغات
سوالات امتحانی - تمرین هایی برای تایپ در QBasic
درس درس تا قیامت

تمرین هایی برای تایپ در QBasic

سه شنبه 30 آذر 1389 01:27 ب.ظ

نویسنده : حامد آذری
 

1) Print "voltagh do sar lamp ra vared konid :"

INPUT x

INPUT y

Print "voltagh gabel tahammol lamp ra vared konid:"

INPUT z

Let a = x + y

If a > z Then Print "lamp misozad"

If a <= z Then Print "lamp nemisozad"

2) 10 Print "3 adad ra vared konid:"

INPUT x

INPUT y

INPUT z

Let a = (x + y + z) / 3

Print "miyangin ="; a

100 Print "aya edame midahid?"

Print "1.bale"

Print "2.na"

INPUT n

Select Case n

Case 1

GoTo 10

Case 2

End

Case Else

GoTo 100

End Select

3) INPUT x

Select Case x

Case 1386

Print "4 adad vared konid :"

INPUT a

INPUT b

INPUT c

INPUT d

Let e = (a + b + c + d) / 4

Print "miyangin ="; e

Case Else

End

End Select

4) INPUT x$

Select Case x$

Case "salam"

Print "adad avval ra vared konid :"

INPUT a

Print "adad dovvom ra vared konid :"

INPUT b

Let y = a Mod b

Print "bagi mande ="; y

Case Else

End

End Select

5) 10 Print "sa at ra vared konid :"

INPUT n

If 0 < n And n < 10 Then

Print "sobh bekheir"

End If

If 10 < n And n < 14 Then

Print "zohr bekhair"

End If

If 14 < n And n < 19 Then

Print "asr be khair"

End If

If 19 < n And n < 24 Then

Print "shab bekhair"

End If

7) Cls

Print "adad avval ra vared konid :"

INPUT x

Print "adad dovvom ra vared konid :"

INPUT y

Let z = Int(x / y)

Print "kharej gesmat ="; z

Let n = x - (z * y)

Print "bagi mande ="; n

 

 

6) 10 Print "kodam ra mikhahid:"

Print "1.mostatil"

Print "2.dayereh"

Print "3.miyangin"

INPUT n

Select Case n

Case 1

Print "tool va arz ra vared konid"

INPUT x

INPUT y

Let m = x * y

Let z = (x + y) * 2

Print "mohit ="; z

Print "masahat ="; m

Case 2

Let pi = 4 * Atn(1)

Print "shoa dayere ra vared konid:"

INPUT h

Let a = h * 2

Let b = a * pi

Let c = h * h * pi

Print "mohit ="; b

Print "masahat = "; c

Case 3

Print "3 adad ra vared konid:"

INPUT d

INPUT e

INPUT f

Let g = (d + e + f) / 3

Print "miyangin ="; g

Case Else

GoTo 10

End Select

6.4.تمرین های برنامه نویسیq basic صفحه ی 50

 لطفا برنامه QBasicرانصب کنید .



دیدگاه ها : نظرات
آخرین ویرایش: - -