ايران ويج

من پروژه ای داشتم که باید دو روزه تحویل بدم نتونستم جواب برنامه رو به طور صحیح بنویسم لطفا کمکم کنید
1. برنامه ای بنویسید که اعداد 3 رقمی که از هر دو طرق یکسان خوانده می شوند را تعیین چاپ کند .(مثل 565و و 919و 141 )

2. برنامه ای بنویسید که رشته ای را دریافت کرده و همه blankهای رشته را حذف کرده و رشته را 2بار چاپ کند

3. زیر برنامه ای بنویسید که مساحت یک مثلت با اضلاعی به طول A,B,C را بیابد فرمولی که بایستی استقاده شود عبارتست از

(AREA = (1/4) √ (A+B+C)+(A-B+C)+(A+B-C

سلام

این کد برای سوال 1

کد: 
Dim RJ1, RJ2

For RJ1 = 0 To 9

    For RJ2 = 0 To 9

        Print RJ2 & RJ1 & RJ2

    Next

Next

موفق باشی
خدانگهدار

سلام

این کد برای سوال 2

کد: 
Dim RJ1, RJ2, RJ3

RJ1 = InputBox("Input :")

For RJ2 = 1 To Len(RJ1)

    If Mid(RJ1, RJ2, 1) <> " " Then

        RJ3 = RJ3 & Mid(RJ1, RJ2, 1)

    End If

Next

Print RJ3

Print RJ3

موفق باشی
خدانگهدار

سلام

این کد برای سوال 3

کد: 
Dim RJAREA, RJ1, RJ2, RJ3, RJT, RJA, RJB, RJC

RJA = InputBox("A = ?")

RJB = InputBox("B = ?")

RJC = InputBox("C = ?")

RJ1 = Val(RJA) + Val(RJB) + Val(RJC)

RJ2 = Val(RJA) - Val(RJB) + Val(RJC)

RJ3 = Val(RJA) + Val(RJB) - Val(RJC)

RJT = Val(RJ1) + Val(RJ2) + Val(RJ3)

RJAREA = (1 / 4) * Sqr(RJT)

Print RJAREA

موفق باشی
خدانگهدار

homa_sh15

arashrj

arashrj

arashrj