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

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

25.01.2014, 13:00. Просмотров 5562. Ответов 2
Метки нет (Все метки)

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

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

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

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

Произвольный треугольник задан декартовыми координатами своих вершин (X1,Y1),(X2,Y2),(X3,Y3) –целыми числами
2) Произвольный треугольник задан декартовыми координатами своих вершин (X1,Y1),(X2,Y2),(X3,Y3)...

2
Модератор
62244 / 46531 / 32078
Регистрация: 18.05.2008
Сообщений: 112,486
25.01.2014, 13:43 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
30
31
32
uses crt;
var x1,y1,x2,y2,x3,y3:real;{координаты вершин треугольника}
    x4,y4,x5,y5:real;{координаты середин двух сторон }
    a1,b1,c1,a2,b2,c2:real;{коэффициенты двух уравнений прямых}
    xo,yo,r:real;{координаты центра и радиус окружности}
    p:real;{удвоенная площадь для проверки треугольника на 0}
begin
repeat
writeln('Введите координаты вершин треугольника:');
readln(x1,y1,x2,y2,x3,y3);
p:=(x1-x3)*(y2-y3)-(x2-x3)*(y1-y3);
if p=0 then writeln('Треугольник вырожденный, повторите ввод');
until p<>0;
{середины сторон}
x4:=(x1+x2)/2;
y4:=(y1+y2)/2;
x5:=(x1+x3)/2;
y5:=(y1+y3)/2;
{кооффициенты 2х прямых,
перпендикулярных сторонам и проходящих через их середины}
a1:=x2-x1;
b1:=y2-y1;
c1:=x4*(x2-x1)+y4*(y2-y1);
a2:=x3-x1;
b2:=y3-y1;
c2:=x5*(x3-x1)+y5*(y3-y1);
{координаты центра=точка пересечения прямых}
xo:=round((c1*b2-c2*b1)/(a1*b2-a2*b1));
yo:=round((a1*c2-a2*c1)/(a1*b2-a2*b1));
r:=round(sqrt(sqr(x1-xo)+sqr(y1-yo)));{радиус окружности}
writeln('X=',xo:0:2,'  Y=',yo:0:2,' R=',r:0:2);
end.
0
1 / 1 / 0
Регистрация: 16.06.2013
Сообщений: 23
26.01.2014, 19:18  [ТС] 3
Спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.01.2014, 19:18

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

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

Треугольник задан координатами своих вершин.составить программу вычисления его площади
Треугольник задан координатами своих вершин. Составить программу вычисления его площади.

Треугольник задан координатами своих вершин. Составить программу для вычисления его площади
Треугольник задан координатами своих вершин. Составить программу для вычисления его площади.

Треугольник задан координатами своих вершин. Составить программу для вычисления его площади
Треугольник задан координатами своих вершин. Составить программу для вычесления его площади. И...


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

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

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