Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 23.12.2008
Сообщений: 4
1

помогите решить задачу.

15.01.2009, 10:58. Показов 935. Ответов 3
Метки нет (Все метки)

Задача.
Можно ли коробку размерами A x B x C,
Упаковать в посылку размером R x S x T.
Углом укладывать нельзя.

Помогит срочно нужно прямо сейчас....
Друг позвонил плачется экзамен....
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.01.2009, 10:58
Ответы с готовыми решениями:

помогите решить задачу

помогите решить задачу
из интервала вывести на экран элементы у которых сумма делителей равна произведению простых чисел

Помогите решить задачу
Люди выручайте... В трехзначном числе х зачеркнули первую цифру.Когда результат разделили на 10,а...

Помогите решить задачу
Дана закрытая модель транспортной задачи (объем потребления и объем производства совпадает),...

3
203 / 145 / 16
Регистрация: 13.01.2009
Сообщений: 554
15.01.2009, 11:22 2
Pascal
1
2
3
4
5
6
7
8
9
10
function Pack(a,b:array[1..3] of integer): boolean;
begin
Pack:=false;
if (((a[1]-b[1])*(a[2]-b[2])*(a[3]-b[3]))>0) or
  (((a[1]-b[1])*(a[3]-b[2])*(a[2]-b[3]))>0) or
  (((a[2]-b[1])*(a[3]-b[2])*(a[1]-b[3]))>0) or
  (((a[2]-b[1])*(a[1]-b[2])*(a[3]-b[3]))>0) or
  (((a[3]-b[1])*(a[1]-b[2])*(a[2]-b[3]))>0) or
  (((a[3]-b[1])*(a[2]-b[2])*(a[1]-b[3]))>0) or then Pack:=true;
end;
a[1],a[2],a[3] - размер посылки
b[1],b[2],b[3] - размер коробки

функция возвращает true - если можно вместить, false - если нельзя

Добавлено через 9 минут 23 секунды
гм... тоесть наоборот
a[1],a[2],a[3] - размер коробки
b[1],b[2],b[3] - размер посылки

вобщем предмет с размерами в b всовывают в предмет с размерами в a...

Добавлено через 53 секунды
И если кто будет пошлить по поводу последней фразы, то каждый понимает в меру своей распущенности...
0
0 / 0 / 0
Регистрация: 23.12.2008
Сообщений: 4
15.01.2009, 11:26  [ТС] 3
Цитата Сообщение от Splitter Посмотреть сообщение
a[1],a[2],a[3] - размер коробки
b[1],b[2],b[3] - размер посылки
А нельзя сделать в том виде как в условии когда вводятся переменные а программа все определяет.
Я просто на паскале не бельмес....
0
203 / 145 / 16
Регистрация: 13.01.2009
Сообщений: 554
15.01.2009, 11:37 4
можно

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
a,b:array[1..3] of integer;
i:byte;
begin
for i:=1 to 3 do 
begin
writeln('введите '+inttostr(i)+ ' сторону коробки');
readln(a[i]);
writeln('введите '+inttostr(i)+ ' сторону посылки');
readln(b[i]);
end;
 if (((a[1]-b[1])*(a[2]-b[2])*(a[3]-b[3]))>0) or  
   (((a[1]-b[1])*(a[3]-b[2])*(a[2]-b[3]))>0) or  
   (((a[2]-b[1])*(a[3]-b[2])*(a[1]-b[3]))>0) or  
   (((a[2]-b[1])*(a[1]-b[2])*(a[3]-b[3]))>0) or  
   (((a[3]-b[1])*(a[1]-b[2])*(a[2]-b[3]))>0) or  
   (((a[3]-b[1])*(a[2]-b[2])*(a[1]-b[3]))>0) or 
                 then writeln('Влезет')
                 else writeln('Не влезет');
end;
где-то так, не уверен насчет inttostr(i) не помню приведения типов в паскале, в делфи точно есть такая функция, в крайнем случае убери этот кусок совсем, сделай так

Pascal
1
writeln('введите сторону коробки');
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.01.2009, 11:37

Помогите решить задачу с роботом !!!!
Положите грузы во все клетки первого столбца program n4; Begin Put; While FreeForw do Begin...

Помогите пожалуйста решить задачу!!!
Полоса стального прокта имеет сечение А*В. Можно ли из этой полосы получить призматическую деталь с...

Помогите решить задачу на циклы.
Логической переменной t присвоить значение True или False в зависимости от того, является...

помогите решить задачу в паскале
Помогите пожалуйста!!! Найти сумму корней квадратного уравнения. Если сумма положительна и кратна...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.