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

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

10.12.2017, 13:00. Просмотров 2121. Ответов 5
Метки нет (Все метки)

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

Добавлено через 14 минут
решить с помощью процедуры и функции
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.12.2017, 13:00
Ответы с готовыми решениями:

По заданным координатам вершин треугольника на плоскости определить площадь треугольника
по заданным координатам вершин треугольника на плоскости определить площадь треугольника (не...

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

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

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

5
Модератор
62182 / 46489 / 32057
Регистрация: 18.05.2008
Сообщений: 112,397
10.12.2017, 14:22 2
Лучший ответ Сообщение было отмечено fokco как решение

Решение

Можно так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
function radius(x1,y1,x2,y2,x3,y3:real):real;
var x4,y4,x5,y5,a1,b1,c1,a2,b2,c2,xc,yc:real;
begin
//середины сторон
x4:=(x1+x2)/2;
y4:=(y1+y2)/2;
x5:=(x1+x3)/2;
y5:=(y1+y3)/2;
//координаты центра
a1:=x2-x1; //коэффициенты уравнения 1 прямой
b1:=y2-y1;
c1:=x4*(x2-x1)+y4*(y2-y1);
a2:=x3-x1; //коэффициенты уравнения 2 прямой
b2:=y3-y1;
c2:=x5*(x3-x1)+y5*(y3-y1);
xc:=(c1*b2-c2*b1)/(a1*b2-a2*b1);//координаты точки их пересечения
yc:=(a1*c2-a2*c1)/(a1*b2-a2*b1);
radius:=sqrt(sqr(x1-xc)+sqr(y1-yc));//радиус
end;
var x1,y1,x2,y2,x3,y3:real;
begin
writeln('Введите координаты 1 вершины');
readln(x1,y1);
writeln('Введите координаты 2 вершины');
readln(x2,y2);
writeln('Введите координаты 3 вершины');
readln(x3,y3);
write('Радиус описанной окружности=',radius(x1,y1,x2,y2,x3,y3):0:2)
end.
0
0 / 0 / 1
Регистрация: 15.01.2015
Сообщений: 98
10.12.2017, 14:26  [ТС] 3
можете сказать какая у меня ошибка
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  x1, y1, x2, y2, x3, y3, a, b, c, p, r,s: real;
function rad(a,b,c,p: real): real;
begin
  rad := (a+b+c/4*s);
end;
begin
  write('A='); readln(x1, y1);
  write('B='); readln(x2, y2);
  write('C='); readln(x3, y3);
  a := sqrt(sqr(x1 - x2) + sqr(y1 - y2)); //длины сторон
writeln('a=',a:5:2);
  b := sqrt(sqr(x2 - x3) + sqr(y2 - y3));
writeln('b=',b:5:2);
  c := sqrt(sqr(x1 - x3) + sqr(y1 - y3));
writeln('c=',c:5:2);
s:=sqrt(p*(p-a)*(p-b)-(p-c));
writeln('Ploshad=',s:5:2);
p := (a + b + c) / 2;
writeln('Perimetr=',p:5:2);
  r := rad(a,b,c,s);
  writeln('ответ : ', r:5:5);
end.
0
Модератор
62182 / 46489 / 32057
Регистрация: 18.05.2008
Сообщений: 112,397
10.12.2017, 15:02 4
Да меня немного не туда понесло, нужно же только радиус, а я искал и координаты центра.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var  x1, y1, x2, y2, x3, y3, a, b, c, p, r,s: real;
function rad(a,b,c:real): real;
var p,s:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
rad:=a*b*c/(4*s);
end;
begin
writeln('Введите координаты вершины A=');
readln(x1, y1);
writeln('Введите координаты вершины B=');
readln(x2, y2);
writeln('Введите координаты вершины C=');
readln(x3, y3);
a := sqrt(sqr(x1 - x2) + sqr(y1 - y2)); //длины сторон
b := sqrt(sqr(x2 - x3) + sqr(y2 - y3));
c := sqrt(sqr(x1 - x3) + sqr(y1 - y3));
r := rad(a,b,c);
writeln('ответ : ', r:0:5);
end.
Добавлено через 17 минут
Поскольку в задании написано
Цитата Сообщение от fokco Посмотреть сообщение
решить с помощью процедуры и функции
то можно так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function dlina(x1,y1,x2,y2:real):real;
begin
dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
function plosh(x1,y1,x2,y2,x3,y3:real):real;
begin
plosh:=0.5*abs(((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3)));
end;
procedure rad(a,b,c,s:real;var r:real);
begin
r:=a*b*c/(4*s);
write('Ответ:',r:0:5);
end;
var x1,y1,x2,y2,x3,y3,r:real;
begin
writeln('Введите координаты вершины A=');
readln(x1,y1);
writeln('Введите координаты вершины B=');
readln(x2,y2);
writeln('Введите координаты вершины C=');
readln(x3,y3);
rad(dlina(x1,y1,x2,y2),dlina(x2,y2,x3,y3),dlina(x1,y1,x3,y3),plosh(x1,y1,x2,y2,x3,y3),r)
end.
0
0 / 0 / 1
Регистрация: 15.01.2015
Сообщений: 98
10.12.2017, 15:42  [ТС] 5
решить двумя способами: с использованием процедур и с использованием функций.
0
Модератор
62182 / 46489 / 32057
Регистрация: 18.05.2008
Сообщений: 112,397
10.12.2017, 15:58 6
Ну делай сам как нужно, информация вся есть.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2017, 15:58

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

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

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

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

Даны координаты вершин треугольника: (ax;ay), (bx;by), (cx;cy). Определить лежит ли данный треугольник внутри окружности радиуса R
Помогите с задачей. Даны координаты вершин треугольника: (ax;ay), (bx;by), (cx;cy). Определить...


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

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

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