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

[danada1]

В треугольнике известны три стороны а, b и с. Составить программу, которая находит радиус описанной окружности и угол А (в градусах), используя формулы:
s=(b*c*sin(A))/2
tg(A/2)=корень(((p-b)*(p-c))/(p*(p-a)))
r=(a*b*c)/(4*s)
p=(a+b+c)/2

(код нужен или на TurboPascal или на VisualBasic)

[Abstraction]

доброго времени суток. очень нужна помощь. делаю дипломную работу.

Ваша тема?
Сказать, что я фигею - это ничего не сказать.

[BDA]

Алгоритм (Ваших наработок не видно):
Запрашиваем а, б и с
Рассчитываем периметр р по формуле
Рассчитываем tg(A/2) по формуле, берем арктангенс и умножаем на 2, чтобы найти угол А
Рассчитываем площадь s по формуле
Рассчитываем радиус r по формуле

а можно код?

Без наработок - нет

[danada1]

а можно код?

[danada1]

dim a,b,c,alpha as integer
dim s,r,p as single
a=text1
b=text2
c=text3
s=(b*c*sin(alpha))/2
r=(a*b*c)/(4*s)
p=(a+b+c)/2
tg(alpha/2)=sqr(((p-b)*(p-c))/(p*(p-a))) 'здесь я не совсем уверен'
text4=r
text5=tg(alpha/2)

[danada1]

и вот ещё: как найти alpha (другими словами угол A)

[DrStrangeLove]

Сообщение от danada1

и вот ещё: как найти alpha (другими словами угол A)

BDA Сказал же про арктангенс..

Рассчитываем tg(A/2) по формуле, берем арктангенс и умножаем на 2, чтобы найти угол А

[danada1]

блин

[BDA]

Другое дело.
VB не знаю, и скомпилировать нечем, но примерно так:

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

[danada1]