[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи из заказов » Заказ 07.01.07 Pascal
Пройдет ли кирпич размерами A x B x C в прямоугольное окно X x Y.
{
  -----------------------------------------------------------------------

   1. Пройдет ли кирпич размерами A x B x C в прямоугольное окно X x Y.

  -----------------------------------------------------------------------
}

var
  a, b, c, x, y : longint;

{ функция проверяет можно ли прямоугольник со сторонами ax, ay просунуть
  через прямоугольник со сторонами bx, by. }
function CanBeEnClosed(ax, ay, bx, by: longint) : boolean;
begin
  if ( ((ax <= bx) and (ay <= by)) or ((ay <= bx) and (ax <= by)) ) then
    CanBeEnClosed := true
  else
    CanBeEnClosed := false;
end;


begin
  writeln('Введите A, B и С (через пробел):');
  readln(a, b, c);
  writeln('Введите X, Y (через пробел):');
  readln(x, y);
  if CanBeEnClosed(a, b, x, y) or CanBeEnClosed(b, c, x, y) or
     CanBeEnClosed(c, a, x, y) then
    writeln('Кирпич с размерами ', a, 'x', b, 'x', c,
            ' пройдёт через прямоугольное окно ', x, 'x', y)
  else
    writeln('Кирпич с размерами ', a, 'x', b, 'x', c,
            ' не пройдёт через прямоугольное окно ', x, 'x', y)
end.
Категория: Заказ 07.01.07 Pascal | Добавил: solver (07.01.2007)
Просмотров: 1800