Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/39: Рейтинг темы: голосов - 39, средняя оценка - 4.56
1 / 1 / 0
Регистрация: 28.02.2012
Сообщений: 26
1

В треугольнике известны три стороны a, b и c; найти радиус описанной окружности и угол

24.04.2012, 13:44. Просмотров 7524. Ответов 1
Метки нет (Все метки)


В треугольнике известны три стороны a, b и c; найти радиус описанной окружности и угол A (в градусах), используя формулы:
где
0
Миниатюры
В треугольнике известны три стороны a, b и c; найти радиус описанной окружности и угол  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2012, 13:44
Ответы с готовыми решениями:

Найти радиус вписанной окружности и радиус описанной окружности
Даны действительные положительные числа a,b,c, которые являются длинами сторон треугольника....

Как найти радиус описанной около треугольника окружности
Два треугольника заданы координатами своих вершин. Определить радиусы окружностей, описанных возле...

Найти треугольник, у которого самый большой радиус описанной окружности
помогите решить в паскале n треугольников заданы длинами своих сторон. Найти треугольник, у...

Найти стороны треугольника, заданного величинами своих углов и радиусом описанной окружности
a,b,c:real; a1,b1,c1,r: integer; begin writeln('введите угол А='); readln (a1); ...

1
Модератор
62861 / 46907 / 32328
Регистрация: 18.05.2008
Сообщений: 113,665
24.04.2012, 14:49 2
Лучший ответ Сообщение было отмечено awl как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a,b,c:real; //стороны
    s,p,r,u:real;//площадь,полупериметр,радиус и угол
begin
repeat
writeln('Введите длины сторон треугольника');
read(a,b,c);
if(a>=b+c)or(b>=a+c)or(b>=a+c) then writeln('Это не треугольник, повторите ввод');
until (a<b+c)and(b<a+c)and(c<a+b);
p:=(a+b+c)/2;
u:=2*arctan(sqrt((p-b)*(p-c)/(p*(p-a))));
s:=b*c*sin(u)/2;
r:=a*b*c/(4*s);
u:=u*180/pi;
writeln('Радиус описанной окружности = ',r:0:2);
write('Угол А = ',u:0:2,' градусов');
end.
Добавлено через 1 минуту
там еще нет формулы S=abc/4R
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2012, 14:49

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Составить программу, которая находит радиус описанной окружности и угол
В треугольнике известны три стороны а, b и с. Составить программу, которая находит радиус описанной...

Найти площадь треугольника, радиус вписанной и описанной окружности
дан обычный треугольник

Найти площадь треугольника, его высоту, радиус вписанной и описанной окружности
здарова ребят помогите пожалуста с решением задачь. Дана сторона равностороннего треугольника....

Найти площадь треугольника, его высоту, радиус вписанной и описанной окружности
милые друзья, товарищи программисты помогите пожалуста с программами на поскале а то у самой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.