تبلیغات
کامپیوتر-رایانه - جواب تمرینات برنامه نویسی کتاب مبانی رایانه سوم ریاضی

امروز جواب های تمرینات برنامه نویسی کتاب مبانی رایانه سوم ریاضی رو براتون آماده کردم اما توصیه میکنم اول خودتون برین رو سوالها فکر کنید ، حلشون کنید بعد جواباتون رو با اینا مقایسه کنید(نظر هم یادتون نره!)

3

A = inputbox("enter number 1")

B=inputbox("enter number 2")

If b<>0 then print a\b else print "not defined"

4

 در این برنامه چون تاریخ سیستم میلادی میباشد بهتر است تاریخ جاری نیز از ورودی دریافت شود

S=inputbox("enter birth year:")

m=inputbox("enter birth mounth:")

d=inputbox("enter birth day:")

S1=inputbox("enter year:")

M1=inputbox("enter mounth:")

D1=inputbox("enter day:")

If val(d) > val(d1)  then m1=m1-1 : d1=d1+30

If val(m) > val(m1) then s1=s1-1:m1=m1+12

If val(s)>val(s1) then

Print "error"

End

Endif

Print "sal:";s1-s , "mah:";m1-m , "roz:"; d1-d

5

A=inputbox("enter a")

B=inputbox("enter b")

C=inputbox("enter c")

D = b ^ 2 - 4 * a * c

If d>0 then

X1=(-b + sqr(d) )/2*a

X2=(-b - sqr(d) )/2*a

Print x1 , x2

End if

If d=0 then print  -b / 2*a

If d<0 then print "not answer"

6

D=inputbox("enter number (1..7)")

Select case d

Case 1:print "sat"

Case 2:print "sun"

Case 3:print "mon"

Case 4:print "tud"

Case 5:print "wed"

Case 6:print "thu"

Case 7:print "fri"

End select

7

S=Inputbox("enter salary")

If s<=200000 then m=0

If s>200000 and s<=800000 then m=(s-200000)*10/100

If s>800000 then m=(s-800000)*12/100 + 60000

Print m

 8

n=inputbox("Enter number 4 digit")

a=n\1000

r1=n mod 1000

b=r1 \100

r2=r1 mod 100

c=r2 \ 10

d=r2 mod 10

print  d*1000+c*100+b*10+a

 9

A=0

For  I = 10 to 99

If   I  mod 3 =0 then

Print i

A=a+1

Endif

Next i

Print a

 10

N=inputbox("Enter city name")

D=inputbox("Enter degree")

Maxn=n

Maxd=d

Minn=n

Mind=d

For i=2 to 10

N=inputbox("Enter city name")

D=inputbox("Enter degree")

If  d > maxd  then

Maxn=n

Maxd=d

Endif

If d<mind  then

Minn=n

Mind=d

Endif

next i

Print "max";maxn,maxd

Print "min";minn , mind



feet issues
دوشنبه 27 شهریور 1396 08:20 ب.ظ
Way cool! Some very valid points! I appreciate you writing this post and
the rest of the website is also really good.
BHW
جمعه 25 فروردین 1396 06:09 ق.ظ
I'd like to find out more? I'd want to find out some additional information.
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر