Консультация № 143788
13.09.2008, 13:05
0.00 руб.
0 4 1
Даны действительные положительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x, y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.

Приложение:
выполнить в Pascal 7.0

Обсуждение

Неизвестный
13.09.2008, 13:30
общий
Так ведь несложно :)
Нарисуйте возможные ситуации и решение найдете очень просто. Только учтите, что соотношение между a, b, c ; между x, y может быть любым: не известно заранее, какой размер меньше.
То есть, например, если наименьший из a, b, c больше наибольшего из x, y , то не пройдет.
Неизвестный
13.09.2008, 21:47
общий
это ответ
Здравствуйте, Николаев Денис Игоревич!
Вот решение:

Приложение:
var a, b, c, x ,y :longint;
p :boolean;

begin
read(a,b,c,x,y);
p:=false;
{Проверка всех вариантов}

if (a>=x) and((b<=y)or(c<=y)) then p:=true;
if (a>=y) and((b<=x)or(c<=x)) then p:=true;
if (b>=x) and((a<=y)or(c<=y)) then p:=true;
if (b>=y) and((a<=x)or(c<=x)) then p:=true;
if (c>=x) and((b<=y)or(a<=y)) then p:=true;
if (c>=y) and((b<=x)or(a<=x)) then p:=true;

if p then writeln('Yes') else writeln('No');
end.
Неизвестный
13.09.2008, 22:00
общий
Воспользуйтесь поиском на Портале, вопрос с такой же задачей уже раньше задавался.
Неизвестный
13.09.2008, 22:16
общий
To Иваненко Дмитрий Геннадьевич:

А как же операторы логической связки? Зачем использовать АЖ шесть операторов IF? (подсказка).
Форма ответа