В треугольнике известны три стороны а, b и с

[danada1]

ооо... спасибо огромное....

[danada1]

у меня ещё 2 задачки имеется, буду благодарен если поможете

[danada1]

кстати,
здесь alpha=2*Atn(Sqrt((p-b)*(p-c))/(p*(p-a)))
вместо Sqrt будет просто Sqr

а здесь text5=180*alpha/pi
вместо pi будет 3.14 (т.к. vb pi не воспринимает)

[danada1]

вот ещё одна задачка
Даны числовой ряд a(n подстрочная) = (2n-1)/(2^n) и некоторое число ε. Составить программу, которая находит сумму тех членов ряда, модуль которых больше или равен заданному ε. Значение ε вводится с клавиатуры.

[danada1]

кстати, по предыдущей задаче:
при следующих значениях
a=3
b=4
c=5

радиус получается = 130,535025569043
а угол = 0,658743913955749

вам не кажется, что радиус чересчур большой, а угол чересчур маленький?

[danada1]

вот ещё одна задачка
Даны числовой ряд a(n подстрочная) = (2n-1)/(2^n) и некоторое число ε. Составить программу, которая находит сумму тех членов ряда, модуль которых больше или равен заданному ε. Значение ε вводится с клавиатуры.

вот что получилось, но я не уверен

Dim a(), i, n As Integer
Dim s, e As Single
s = 0
n = Text1
e = Text2
ReDim a(n)
For i = 1 To n
a(i) = (2 * i - 1) / (2 ^ i)
If Abs(a(i)) >= e Then
s = s + a(i)
End If
Text3 = s
Next i

[danada1]

вот ещё одна задачка
Даны числовой ряд a(n подстрочная) = (2n-1)/(2^n) и некоторое число ε. Составить программу, которая находит сумму тех членов ряда, модуль которых больше или равен заданному ε. Значение ε вводится с клавиатуры.

вот что получилось, но я не уверен

Dim a(), i, n As Integer
Dim s, e As Single
s = 0
n = Text1
e = Text2
ReDim a(n)
For i = 1 To n
a(i) = (2 * i - 1) / (2 ^ i)
If Abs(a(i)) >= e Then
s = s + a(i)
End If
Text3 = s
Next i

[BDA]

Такс. По порядку.
Во-первых, не пишите подряд несколько сообщений, а редактируйте последнее.
Во-вторых, используйте кнопку Решетка для оформления кода.
В-третьих, в одной из формул я допустил ошибку, которую Вы не заметили.

dim a,b,c,s,r,p,alpha as single
a=text1
b=text2
c=text3
p=(a+b+c)/2
alpha=2*Atn(Sqr((p-b)*(p-c)/(p*(p-a))))
s=(b*c*sin(alpha))/2
r=(a*b*c)/(4*s)
text4=r
text5=180*alpha/3.14

В-четвертых:

Dim i As Integer
Dim s, e, a As Single
s = 0
e = Text1
i = 1
a = (2 * i - 1) / (2 ^ i)
While Abs(a) >= e
  s += a
  i += 1
  a = (2 * i - 1) / (2 ^ i)
End While
Text2 = s

[danada1]

ну вот, первая решена. спасибо

вторая:

это vb не воспринимает и не запускается программа
...
s += a
i += 1
...
End While
...

я переделал

...
s = s + a
i = i + 1
...
Wend
...

запускается, но всё по нулям

[BDA]

А Вы "e" какое вводите?