Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Определить принадлежит ли точка плоскости https://www.cyberforum.ru/ pascalabc/ thread1081098.html
Помогите пожалуйста решить задачу, я вообще не понимаю этот предмет, а поскольку учусь заочно, то объяснения со стороны учителя "никакие", очень надеюсь на Вашу помощь, заранее спасибо. Определить...
Pascal ABC Вычислительная геометрия
Помогите пожалуйста решить! Я краб ничего не шарю(а в понедельник сдавать Угол задан вершиной и двумя точками М2(x2,y2),М1(x1,y1), которые лежат на сторонах этого угла. Найти уравнение биссектрисы...
Составить программу, задающую загадки и анализирующую ответы Pascal ABC
Составить программу, задающую загадки и анализирующую ответы
Pascal ABC Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера пожалуйста:cry::cry::cry: Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера. https://www.cyberforum.ru/ pascalabc/ thread1081070.html
Pascal ABC Обработка двумерных массивов со вспомагательными алгоритмами https://www.cyberforum.ru/ pascalabc/ thread1081063.html
Изменив текст основной программы, и вычислить количество строк, где есть элементы разных знаков. {---------- Двумерные массивы ---------------} program primer1; uses crt; type stroka=array of...
Pascal ABC Массивы. Среднее арифметическое всех элементов массива, имеющих нечётное значение
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 0 до 1000. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит...
Pascal ABC Массивы. Найдите количество элементов, имеющих максимальное значение
Помоги пожалуйста:cry: Введите массив с клавиатуры и найдите (за один проход) количество элементов, имеющих максимальное значение (помоги еще с блок схемой)
Pascal ABC матрица. найти произведение отрицательных сумму и количество остальных матрица. найти произведение отрицательных сумму и количество остальных https://www.cyberforum.ru/ pascalabc/ thread1080993.html
Pascal ABC Табулирование. while https://www.cyberforum.ru/ pascalabc/ thread1080992.html
Pascal ABC Введите массив с клавиатуры и найдите (за один проход) количество элементов, имеющих максимальное значение Помогите пожалуйста:cry: Введите массив с клавиатуры и найдите (за один проход) количество элементов, имеющих максимальное значение https://www.cyberforum.ru/ pascalabc/ thread1080989.html
Модератор
62503 / 46691 / 32182
Регистрация: 18.05.2008
Сообщений: 112,971
25.01.2014, 13:43 0

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

25.01.2014, 13:43. Просмотров 5807. Ответов 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2014, 13:43

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

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

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

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

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

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