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

Найдите радиус окружности,описанной около треугольника

18.02.2013, 19:10. Просмотров 7170. Ответов 5
Метки нет (Все метки)


3)Найдите радиус окружности,описанной около треугольника со сторонами а,b,c.Составьте блок-схему к решению задачи и напишите листинг программы.

Заранее благодарю
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.02.2013, 19:10
Ответы с готовыми решениями:

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

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

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

Написать функцию расчета радиуса описанной около треугольника
Написать функцию расчета радиуса описанной около треугольника с углами a, b, g и на полупериметр p...

5
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
18.02.2013, 20:58 2
Pascal
1
2
3
4
5
6
7
8
9
var
  a,b,c,r,p: real;
begin
  write('Введите длины сторон треугольника a, b, c через пробел: ');
  readln(a,b,c);
  p:=(a+b+c)/2;
  r:=a*b*c/4/sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('Радиус описанной окружности R = ',r:0:3);
end.
0
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
18.02.2013, 20:58 3
блок схема
0
Миниатюры
Найдите радиус окружности,описанной около треугольника  
64 / 64 / 57
Регистрация: 13.04.2010
Сообщений: 150
18.02.2013, 21:17 4
Цитата Сообщение от ermolay Посмотреть сообщение
r:=a*b*c/4/sqrt(p*(p-a)*(p-b)*(p-c));
вроде между 4 и корнем должно быть умножение?!

Pascal
1
r:=a*b*c/4*sqrt(p*(p-a)*(p-b)*(p-c));
0
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
18.02.2013, 21:35 5
Цитата Сообщение от Grek! Посмотреть сообщение
вроде между 4 и корнем должно быть умножение?!
можно и умножение, тогда весь знаменатель нужно заключить в скобки.
Pascal
1
r:=a*b*c/(4*sqrt(p*(p-a)*(p-b)*(p-c)));
проверочный треугольник - со сторонами 3, 4, 5. Он прямоугольный, гипотенуза проходит через центр окружности, радиус составляет половину гипотенузы, т.е. 2.5
0
0 / 0 / 0
Регистрация: 13.02.2013
Сообщений: 17
18.02.2013, 22:59  [ТС] 6
Спасибо вам)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.02.2013, 22:59

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

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

Треугольник задан координатами вершин. Определить координаты и радиус описанной окружности
Помогите написать прогу! Треугольник задан координатами вершин. Определить координаты и радиус...

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

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

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

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


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

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

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