Задача на паскаль - поместится ли прямоугольная открытка в прямогуольный конверт

[Simon1712]

uses crt;
function Vhod(a,b,c,d:longint):string;
var x:longint;
begin
if a<b then
 begin
  x:=a;
  a:=b;
  b:=x;
 end;
if c<d then
 begin
  x:=c;
  c:=d;
  d:=x;
 end; 
if (a>=c)and(b>=d)then Vhod:='войдет'
else if (c*c+d*d>a*a+b*b)then Vhod:='не войдет'
else if(a*b>2*c*d)and((c*c+d*d-b*b)*(c*c+d*d-a*a)<=a*a*b*b-4*a*b*c*d+4*c*c*d*d)
then Vhod:='войдет' else Vhod:='не войдет';
end;
var a,b:longint;{конверт}
    c,d:longint;{открытка}
begin
clrscr;
writeln('Введите размеры конверта:');
readln(a,b);
writeln('Введите размеры конверта:');
readln(c,d);
write(Vhod(a,b,c,d));
readln
end.

Даны размеры прямоугольных открытки и конверта. Требуется определить, поместится ли открытка в конверт.


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

[vokar97]

А это решение не легче?

var x1, x2, y1, y2, s1, s2 : integer;
begin
     SetConsoleCP(1251); SetConsoleOutputCP(1251);
   Write('Введите длину и ширину конверта: '); Readln(x1, y1);
   Write('Введите длину и ширину открытки: '); Readln(x2, y2);
   if (x1<x2) or (y1<y2) then Writeln('Не влезет');
   if (x1>=x2) and (y1>=y2)  then Writeln('Влезет');
   Readln;
end.

P.S. Заранее прошу прощения, если воспримешь мой вариант как оффтоп.

UPD: Извиняюсь, сглупил :D

[Mad_Cat]

А это решение не легче?

а открытка 4X5 влезет в конверт 5x4
по вашему коду нет а на самом деле ДА

это хитрая проверка на возможность положить открытку под углом

это именно она )

[BDA]

vokar97, я пока не понял решения в первом посте , но мне кажется, что эти условия написаны не просто так.
Ваш вариант проверяет только случай, когда конверт и открытка располагаются параллельно оси (т.е. не повернуты относительно друг друга), и то не во всех случаях.

Mad_Cat, как Вы считаете, все условия излишни, или это хитрая проверка на возможность положить открытку под углом?

[Stilet]

(т.е. не повернуты относительно друг друга)

Если в задании имеется ввиду любое расположение открытки в конверте, а не привычное, по-человечески, то это задание глупое и на практике не применимо.

[BDA]

Stilet, не соглашусь с Вами. Допустим у Вас есть короткий конверт и длинная открытка, которая помещается, только если положить ее под некоторым углом.
Такая задача есть в книге Е. В. Андреевой "Программирование — это так просто, программирование — это так сложно", но, каюсь, пока не смог ее решить.

[Stilet]

BDA

Я имел ввиду, что в жизни при трезвом рассудке так никто не пакует )
Обычно покупают конверты соответствующего размера. Не зря на все это есть ГОСТы, и между прочим они соблюдаются очень строго (я на почте работаю, так что в курсе).

[BDA]

С жизненным опытом и ГОСТом не могу спорить.
(В книге задача сформулирована чуть по-другому - насколько помню, там хотят узнать, можно ли поместить 1 прямоугольник в другой; и 2 вариант задачи - прямоугольная дыра в стене и кирпич)

[Simon1712]

Сообщение от BDA

Stilet,
Такая задача есть в книге Е. В. Андреевой "Программирование — это так просто, программирование — это так сложно", но, каюсь, пока не смог ее решить.

Я собственно у нее и учусь

[s-andriano]

Сообщение от Stilet

Я имел ввиду, что в жизни при трезвом рассудке так никто не пакует )
Обычно покупают конверты соответствующего размера. Не зря на все это есть ГОСТы, и между прочим они соблюдаются очень строго (я на почте работаю, так что в курсе).

begin
  writeln('Если и открытка и конверт удовлетворяют ГОСТ, то открытка обязательно поместится в конверт');
end.

Это к тому, что в подобных задачах и "открытка" и "конверт" - вещи в значительной степени условные.
Можно, конечно, сформулировать ту же самую задачу в терминах прямоугольников, но от этого она станет менее наглядной и, скорее всего, более длинной.
Но т.к. в задаче не указано, что открытка должна иметь стороны параллельные сторонам конверта, а открытку 10х1 можно разместить в конверте 9х9, то ответ "нет", очевидно, будет неправильным.