Красивые прямоугольники

@Акума · Регистрация: 17.11.2018

Author24 — интернет-сервис помощи студентам

Красивые прямоугольники
Урфин Джюс решил построить своих деревянных солдат в виде красивого прямоугольника. Красивым Урфин Джюс считает любой прямоугольник ненулевой площади, стороны которого параллельны осям координат. Он уже нарисовал на плацу систему координат, но на этом его познания геометрии закончились. Пришлось звать на помощь мудрого филина Гуамоку. Гуамоку быстро назвал координаты четырех вершин красивого прямоугольника но, к сожалению для Урфина Джюса, Гуамоку называл координаты вершин, перебирая вершины в произвольном порядке.

Напишите программу, которая поможет Урфину Джюсу определить координаты всех названных Гуамоку вершин красивого прямоугольника в следующем порядке - сначала левой нижней вершины, затем левой верхней, затем правой нижней и, наконец правой верхней.

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

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

Примеры
Входные данные
0 5
5 0
5 5
0 0
Результат работы
0 0
0 5
5 0
5 5

@Puporev · 17.11.2018, 11:07

Pascal

var a,b,c,d,e,f,g,h,xmn,xmx,ymn,ymx:integer;
begin
readln(a,b);
readln(c,d);
readln(e,f);
readln(g,h);
xmn:=min(min(a,c),min(e,g));
xmx:=max(max(a,c),max(e,g));
ymn:=min(min(b,d),min(f,h));
ymx:=max(max(b,d),max(f,h));
writeln(xmn,' ',ymn);
writeln(xmn,' ',ymx);
writeln(xmx,' ',ymn);
writeln(xmx,' ',ymx);
 
end.

@JuriiMW · 17.11.2018, 11:08

Pascal

begin
  var a : array of array of Integer;
  SetLength(a, 4); for var i := 0 to 3 do SetLength(a[i], 2);
  for var i := 0 to 3 do
    (a[i,0],a[i,1]) := ReadLnInteger2;
  
  for var i := 1 to 3 do if (a[0,0] > a[i,0]) or (a[0,1] > a[i,1]) then Swap(a[0], a[i]);
  for var i := 2 to 3 do if a[1,0] > a[i,0] then Swap(a[1], a[i]);
  if a[2,1] > a[3,1] then Swap(a[2], a[3]);
  
  foreach var v in a do
    WriteLn($'{v[0]} {v[1]}');
end.

@eaa · 17.11.2018, 12:49

Pascal

begin
  ArrGen(4, i -> ReadInteger2)
  .OrderBy(p -> p[0])
  .ThenBy(p -> p[1])
  .ForEach(p -> Println(p[0], p[1]))
end.

@Puporev · 17.11.2018, 12:54

Похоже задача с проверочного сайта, а там вроде код на этом псевдопаскале не принимают. Вообще там основа это Free Pascal.

@Акума 0 / 0 / 0 Регистрация: 17.11.2018 Сообщений: 1
		1
	Красивые прямоугольники 17.11.2018, 10:36. Показов 1550. Ответов 4 Метки нет (Все метки) Красивые прямоугольники Урфин Джюс решил построить своих деревянных солдат в виде красивого прямоугольника. Красивым Урфин Джюс считает любой прямоугольник ненулевой площади, стороны которого параллельны осям координат. Он уже нарисовал на плацу систему координат, но на этом его познания геометрии закончились. Пришлось звать на помощь мудрого филина Гуамоку. Гуамоку быстро назвал координаты четырех вершин красивого прямоугольника но, к сожалению для Урфина Джюса, Гуамоку называл координаты вершин, перебирая вершины в произвольном порядке. Напишите программу, которая поможет Урфину Джюсу определить координаты всех названных Гуамоку вершин красивого прямоугольника в следующем порядке - сначала левой нижней вершины, затем левой верхней, затем правой нижней и, наконец правой верхней. Формат входных данных Входные данные содержат четыре строки, в каждой из которых записаны два целых числа, разделенные пробелом - координаты одной из вершин красивого прямоугольника. Все числа лежат в диапазоне от -100 до 100. Формат результата Выведите четыре строки, в каждой из которых содержатся два числа, разделенные пробелом. В первой строке должны выводиться координаты левой нижней вершины заданного прямоугольника, во второй строке - левой верхней, в третьей - правой нижней, и в четвертой - правой верхней. Примеры Входные данные 0 5 5 0 5 5 0 0 Результат работы 0 0 0 5 5 0 5 5 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.11.2018, 12:54	5
	Похоже задача с проверочного сайта, а там вроде код на этом псевдопаскале не принимают. Вообще там основа это Free Pascal. 0

Опции темы