گروه آموزشی رایانه شهرستان دیر - چند سوال ریاضی و جواب های کامپیوتری

چند سوال ریاضی و جواب های کامپیوتری

۱- کشاورزی 100 تومان پول در اختیار دارد و می خواهد صد حیوان بخرد. قیمت حیوان ها ، جوجه یک ریال و گوسفند دو تومان و گاو پنج تومان می باشد. با این وصف مشخص کنید که کشاورز چند جوجه گوسفند و گاو می تواند خریداری کند.(x تعداد جوجه و y تعداد گوسفند و z تعداد گاو)

For x = 1 To 100

For y = 1 To 50

For z = 1 To 20

If (x + y + z = 100) And (x * 1 + 20 * y + 50 * z = 1000) Then

Print "Gogeh:"; x

Print Gosfand:"; y

Print "Gav:"; z

۲- برنامه ای بنویسید که اعداد سه رقمی را که با مجموع مکعبات ارقامشان برابر است را در خروجی چاپ نماید.

Private Function SumA3(ByVal N As Integer)

Dim S As Integer

S = 0

While N <> 0

R = N Mod 10

S = S + R ^ 3

N = N \ 10

Wend

SumA3 = S

End Function

Private Sub Command1_Click()

Dim x As Integer

For x = 100 To 990

If SumA3(x) = x Then Print x

Next x

End Sub

۳- در یک امتحان تستی هر جواب صحیح 7 نمره مثبت و هر جواب غلط 2 نمره منفی دارد (به سوالهای بدون جواب نمره ای صورت نمی گیرد) اگر نمره دانش آموزی برابر 87 باشد این دانش آموز به چند سوال پاسخ نداده است؟

Dim T As Byte, F As Byte, N As Byte

For T = 12 To 20

For F = 1 To 8

If (T + F <= 20) And (T * 7 - F * 2 = 87) Then

N = 20 - T - F

Print "Answerd True:"; T

Print "Answerd False:"; F

Print "NO ansewrd"; N

End If

+ نوشته شده در دوشنبه پانزدهم بهمن 1386ساعت 16:55 توسط عبدالمهدی بحرانی- سرگروه |