 упаковка коробки |
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
| MiH@N |
  23.01.2008 21:39
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 37 Пол: Мужской Репутация:  0   |
помогите решить такую задачу: можно ли коробку размером a*b*c упаковать в посылку r*s*t ? Углом укладывать нельзя.
|
   |
 
|
  |
Ответов
| Pirate |
23.01.2008 21:59
Сообщение
#2
|
|
Новичок Группа: Пользователи Сообщений: 21 Пол: Мужской Реальное имя: Лёха Репутация: 0 |
Так падайдёт:
X:=StrToint(Edit1.Text)*StrToint(Edit2.Text)*StrToint(Edit3.Text); Y:=StrToint(Edit4.Text)*StrToint(Edit5.Text)*StrToint(Edit6.Text); if x<y then ShowMessage('Коробка помещается') else ShowMessage('Коробка помещается') |
|
|
|
Сообщений в этой теме
MiH@N упаковка коробки 23.01.2008 21:39
Pirate
помогите решить такую задачу: можно ли коробку ра... 23.01.2008 21:50 MiH@N размеры посылки и коробки вводить с клавы.усё..бол... 23.01.2008 21:53 MiH@N не. я тож об этом варианте думал. (образно :у коро... 23.01.2008 22:23 Pirate Помойму всё!
if (a>r) or (a>s) or (a... 23.01.2008 22:34
feniks25
if (a>r) or (a>s) or (a>t) or (b>r) ... 26.01.2008 14:13 MiH@N всмысле всё? вродеж скобки необязательны..хотя ща ... 23.01.2008 22:40 andriano 1. Отсортировать размеры коробки и посылки, пример... 23.01.2008 22:43 MiH@N действительно всё.спс. :good: стоп...не всё...реше... 23.01.2008 22:44 andriano а что значит "if a < b then swap(a,b);... 24.01.2008 8:56 hardcase Тогда уж скорее так:
procedure swap(vara,b... 25.01.2008 0:05 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 8.08.2025 8:37 |