Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
tomorrowl
1 / 1 / 0
Регистрация: 03.12.2014
Сообщений: 22
1

Длины сторон треугольника

13.12.2014, 18:27. Просмотров 905. Ответов 1
Метки нет (Все метки)

Даны длины сторон треугольника . Определить, является ли он прямоугольным и тогда вычислить радиус описанной около треугольника окружности
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2014, 18:27
Ответы с готовыми решениями:

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

Заданы длины сторон треугольника. Найти длины высот и медиан
Заданы длины сторон треугольника. Найти длины высот и медиан.

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

Зная длины трех сторон треугольника, вычислить площадь и периметр треугольника
Зная длины трех сторон треугольника, вычислить площадь и периметр треугольника.

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

1
Puporev
Модератор
55411 / 42542 / 29396
Регистрация: 18.05.2008
Сообщений: 100,643
13.12.2014, 19:26 2
Лучший ответ Сообщение было отмечено tomorrowl как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var a,b,c,p,s,r:real;
begin
clrscr;
repeat
writeln ('Введите стороны треугольника');
readln(a,b,c);
if(a<abs(b-c))or(a>b+c)then writeln('Это не треугольник! Повторите ввод.');
until (a>abs(b-c))and(a<b+c);
if(a*a+b*b=c*c)or(a*a+c*c=b*b)or(b*b+c*c=a*a)then
 begin
  p:=(a+b+c)/2;
  s:=sqrt(p*(p-a)*(p-b)*(p-c));
  r:=a*b*c/4/s;
  writeln('Треугольник прямоугольный, радиус описанной окружности=',r:0:1)
 end
else writeln('Треугольник не прямоугольный');
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2014, 19:26

Элементы длины сторон треугольника
Задан массив размерности nх3. Элементы длины сторон треугольника. 1)проверить...

Найти длины всех сторон треугольника
Даны координаты трёх вершин треугольника. С помощью функции, найти длины всех...

Найти длины всех сторон треугольника
1.Даны координаты трех вершин тре-ка.Найти длины всех сторон. 2. Дано...


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

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

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