maks380i
12.02.2020 01:53

Заданы пять точек на плоскости. постройте звезду с вершинами в этих точках или выясните, что это невозможно.
в этой звездой называется замкнутая ломанная из пяти отрезков. каждые два отрезка звезды имеют ровно одну общую точку: y соседних отрезков одна общая точка в вершине ломанной, а у отрезков, не являющихся соседними, - одна общая точка, не являющаяся вершиной ломанной

формат ввод данных:
входные данные состоят из пяти строк. каждая из них содержит координаты очередной точки - два целых числа x и y, разделенные точки пробелом. гарантируется, что все заданные точки разделены

формат выходных данных:
в первой строке выведите yes, если звезду удалось построить, и no в противной случае. если звезда построена, выведите еще пять строк. в каждой из ни запишите координаты очередной вершины ломанной. это должны быть заданные точки в порядке обхода звезды. если возможных ответов несколько, то выбирите любой из них

пример 1)
ввода:
3 1
1 7
5 9
9 7
7 1
вывод:
yes
5 9
7 1
1 7
9 7
3 1

пример 2)
ввод:
1 1
1 3
3 1
3 3
2 2
вывод:
no

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
sacredand
13.10.2021 02:20
Если у нас есть координаты этих вершин на плоскости вида (x; y), то
A(x1,y1)
B(x2,y2)
C(x3,y3)

program q;
var x1,x2,y1,y2,x3,y3:integer;
ab,ac,alp,bet,alfa,s:real;
begin
write('введите координаты точки A: ');
read(x1);
readln(y1);
write('введите координаты точки B: ');
read(x2);
readln(y2);
write('введите координаты точки C: ');
read(x3);
readln(y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
ac:=sqrt(sqr(x3-x1)+sqr(y3-y1));
alp:=arctan((y2-y1)/(x2-x1));
bet:=arctan((y3-y1)/(x3-x1));
alfa:=bet*2-alp;
s:=sin(alfa)*(ab*ac)/2;
writeln('площадь треугольника=',s);
readln
end.
0,0(0 оценок)
Ответ:
LebedevAleksand
18.10.2021 21:54
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var k:=0;
  var n:=ReadInteger();
  var nmax:=0;
  while n<>0 do begin
    Inc(k);
    if n mod 10 = 0 then
      if n>nmax then nmax:=n;
    n:=ReadInteger()  
    end;
  var cntrl:=ReadInteger();
  Writeln('Получено ',k,' чисел');
  Writeln('Полученное контрольное значение: ',cntrl);
  Writeln('Вычисленное контрольное значение: ',nmax);
  if cntrl=nmax then Writeln('Контроль пройден')
  else Writeln('Контроль не пройден')
end.

Тестовое решение:
53
16
40
9
10
32
74
0
40
Получено 7 чисел
Полученное контрольное значение: 40
Вычисленное контрольное значение: 40
Контроль пройден
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота