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

Заданы координаты вершин треугольника. Вывести их в порядке обхода треугольника по часовой стрелке, координаты

13.12.2015, 19:32. Просмотров 2138. Ответов 2
Метки нет (Все метки)


Заданы координаты вершин треугольника. Вывести их в порядке обхода треугольника по часовой стрелке, координаты вершин вводятся в произвольном порядке
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2015, 19:32
Ответы с готовыми решениями:

Вычислить периметр n-угольника вершины которого имеют соответственно координаты в порядке их обхода по часовой стрелке
вычислить периметр н-угольника вершины которого имеют соответственно координаты (х1, у1) (х2, у2)...

Даны координаты вершин треугольника(x1,y1), (x2,y2) … Найти площадь треугольника
1)Даны координаты вершин треугольника(x1,y1), (x2,y2) … Найти площадь треугольника

Известны координаты вершин треугольника
Известны координаты вершин треугольника ABC. Определить принадлежит ли вводимая точка данному...

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

2
Модератор
62942 / 46956 / 32360
Регистрация: 18.05.2008
Сообщений: 113,768
13.12.2015, 20:31 2
Лучший ответ Сообщение было отмечено seregaPovar как решение

Решение

Можно так.
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
33
34
35
36
37
38
39
40
type point=record
           x,y:real;
           end;
var a:array[1..3] of point;
    i,j:byte;
    z:point;
begin
writeln('Введите координаты верщин в произвольном порядке');
readln(a[1].x,a[1].y,a[2].x,a[2].y,a[3].x,a[3].y);
if (a[1].x-a[3].x)*(a[2].y-a[3].y)-(a[2].x-a[3].x)*(a[1].y-a[3].y)=0 then
 begin
  write('Точки не являются вершинами треугольника');
  exit
 end;
//отсортируем по возрастанию Х
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i].x>a[j].x then
 begin
  z:=a[i];
  a[i]:=a[j];
  a[j]:=z;
 end;
//выбираем первую точку
if a[2].y<a[1].y then
 begin
  z:=a[1];
  a[1]:=a[2];
  a[2]:=z;
 end;
 //расставляем 2 и 3 точки
if a[3].y>a[2].y then
 begin
  z:=a[3];
  a[3]:=a[2];
  a[2]:=z;
 end;
for i:=1 to 3 do
writeln(i,'=(',a[i].x:0:2,';',a[i].y:0:2,')');
end.
0
0 / 0 / 0
Регистрация: 03.12.2014
Сообщений: 28
13.12.2015, 21:06  [ТС] 3
Спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2015, 21:06

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

Заданы координаты сторон треугольника, найти его площадь
14. Заданы координаты сторон треугольника. Если такой треугольник существу- ет, то найти его...

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

Найти наибольшую высоту треугольника, если известно координаты его вершин, используя функцию или процедуру
Найти наибольшую высоту треугольника, если известно координаты его вершин, используя функцию или...

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


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

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

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