Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
danada1
1

Составить программу, которая находит радиус описанной окружности и угол

11.03.2013, 23:42. Показов 1061. Ответов 1
Метки нет (Все метки)

В треугольнике известны три стороны а, 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)

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2013, 23:42
Ответы с готовыми решениями:

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

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

Найти радиус R описанной и радиус r вписанной окружности для данных вершин треугольника
2) Известны три точки - вершины треугольника АВС - А(20;15), В(-16;0), С(-8;-6). Найти радиус R...

Радиус описанной около прямоугольного треугольника окружности. Радиус вписанной в прямоугольный треугольник ок
Доказать обе формулы Нужно написать доказательство к формулам R=a:2 и r=P/2-a, где R - радиус...

1
222 / 220 / 218
Регистрация: 03.07.2012
Сообщений: 460
14.03.2013, 04:25 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program g1;
uses
  crt;
var
  a, b, c, p, a1, r, s : real;
begin
  clrscr;
  repeat
  write('Введите стороны треугольника a, b, c : ');
  readln(a,b,c);
  until (a<b+c) and (b<a+c) and (c<a+b);
  p := (a+b+c)/2;
  a1 := 2*arctan(sqrt(((p-b)*(p-c))/(p*(p-a))));
  writeln('A = ',a1*180/pi:4:2,' градусов.');
  s := (b*c*sin(a1))/2;
  r := (a*b*c)/(4*s);
  writeln('Радиус описанной окружности r = ',r:5:2);
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.03.2013, 04:25

Написать функцию, которая находит радиус вписанной окружности по трем сторонам треугольника.
Написать функцию, которая находит радиус вписанной окружности по трем сто- ронам треугольника.

Пусть элементами группы являются радиус, диаметр, длина окружности. составить программу которая по номеру одного из элементов и его значению вычисля л
Пусть элементами группы являются радиус, диаметр, длина окружности. составить программу которая по...

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

Найти радиус описанной окружности
найти радиус описанной окружности


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

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

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