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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 09.10.2011, 22:10   #1
giv93
Пользователь
 
Регистрация: 09.10.2011
Сообщений: 13
По умолчанию Pascal задача

Чи можна цеглину зі сторонами a, b, c втиснути в прямокутний отвір із стоонами e, d. Якщо ні, вивести відповідомлення, якщо так, вкажіть як саме.
giv93 вне форума
Старый 09.10.2011, 23:12   #2
iCaesy
In progress...
Форумчанин
 
Регистрация: 25.09.2011
Сообщений: 161
По умолчанию

В чем проблема ?
Задать значения высоты (E) и ширины (D). Ввести стороны кирпича, а - ширина, в - высота, с - длинна.
Потом сравнивать значения высоты и ширины отверстия с параметрами кирпича, и если хотя бы одно больше выдать сообщение "Не возможно" а если норм то "Возможно"

Ну это самое примитивное, без учета какой стороной пихать кирпич, и т.д. Приколов много может быть.
iCaesy вне форума
Старый 09.10.2011, 23:23   #3
iCaesy
In progress...
Форумчанин
 
Регистрация: 25.09.2011
Сообщений: 161
По умолчанию

Код:
program qwerty;
var
a,b,c,e,d:integer;
begin
writeln ('Ширина кирпича: ');
readln (a);
writeln ('Высота : ');
readln(b);
writeln ('Длинна : ');
readln (c);
writeln (Ширина и Высота отверстия :');
readln (e,d);
if (a>e) then
writeln ('ERROR !');
if(b>d) then
writeln ('ERROR!')
else
writeln ('All is ok !');
end.
iCaesy вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача Pascal HukcoH Помощь студентам 1 17.03.2011 12:22
задача в pascal!! Nikikaaa Помощь студентам 2 21.01.2011 13:05
Задача в Pascal lordseko Фриланс 3 24.12.2010 13:04
задача в Pascal alina777 Помощь студентам 3 06.12.2008 18:55