Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.03.2014, 08:12   #1
vadimmmm
Пользователь
 
Регистрация: 03.03.2014
Сообщений: 15
Сообщение Задача из e-olimp №76

Новый шкаф
Заданы размеры прямоугольной двери a, b и размеры шкафа, который имеет форму прямоугольного параллелепипеда x, y, z. Можно ли пронести шкаф сквозь дверь, если проносить его разрешается так, чтобы каждое ребро шкафа было параллельно или перпендикулярно стороне двери.


Технические условия
Входные данные

Пять действительных чисел a, b, x, y, z (0 < a, b, x, y, z < 10).

Выходные данные

Вывести 1, если шкаф можно свободно пронести сквозь дверь и 0 в противоположном случае.
vadimmmm вне форума Ответить с цитированием
Старый 15.03.2014, 09:15   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

попробовать разные способы
Изображения
Тип файла: jpg Презентация1.jpg (21.6 Кб, 112 просмотров)
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 15.03.2014, 10:14   #3
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,964
По умолчанию

Сравнить ширину двери, с каждой из сторон шкафа.
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Старый 15.03.2014, 17:46   #4
kostan3
- Дорогой, а ты ку
Форумчанин
 
Регистрация: 06.10.2012
Сообщений: 184
По умолчанию

попробуй так:
Код:
var a, b, x, y, z:real;
begin
        readln (a, b, x, y, z);
        if (x<a) and (y<b) then begin writeln(1); halt; end;
        if (y<b) and (x<a) then begin writeln(1); halt; end;
        if (y<a) and (x<b) then begin writeln(1); halt; end;
        if (x<b) and (y<a) then begin writeln(1); halt; end;
        if (x<a) and (z<b) then begin writeln(1); halt; end;
        if (z<b) and (x<a) then begin writeln(1); halt; end;
        if (z<a) and (x<b) then begin writeln(1); halt; end;
        if (x<b) and (z<a) then begin writeln(1); halt; end;
        if (y<a) and (z<b) then begin writeln(1); halt; end;
        if (z<b) and (y<a) then begin writeln(1); halt; end;
        if (z<a) and (y<b) then begin writeln(1); halt; end;
        if (y<b) and (z<a) then begin writeln(1); halt; end;
        writeln(0);
end.
kostan3 вне форума Ответить с цитированием
Старый 15.03.2014, 21:00   #5
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

1) Отсортировать a и b по возрастанию
2) Отсортировать по возрастанию x y z
3) writeln(ord((a >= x) and (b >= y)));
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Последний раз редактировалось BDA; 15.03.2014 в 21:05.
BDA вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача из e-olimp №8 vadimmmm Паскаль, Turbo Pascal, PascalABC.NET 3 15.03.2014 17:37
Задача по подсчёту статистики использования букв. Другая задача - по длинной арифметике Pascal ABC kimberly Паскаль, Turbo Pascal, PascalABC.NET 3 24.12.2012 17:03
Задача на оптимальный расчет маршрута (задача в презентации) в табличном процессоре Excel Toofed Помощь студентам 0 30.11.2011 01:12
Задача минимизации дисбаланса на линии сборки (задача минимакса) LenZab Microsoft Office Excel 13 13.03.2011 22:51