درخواست برنامه نویسی

[homa_sh15]

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

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

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

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

[arashrj]

سلام

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

کد:

Dim RJ1, RJ2
For RJ1 = 0 To 9
    For RJ2 = 0 To 9
        Print RJ2 & RJ1 & RJ2
    Next
Next

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

[arashrj]

سلام

این کد برای سوال 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

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

[arashrj]

سلام

این کد برای سوال 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

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