 упаковка коробки |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
| MiH@N |
 
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 37 Пол: Мужской Репутация:  0   |
помогите решить такую задачу: можно ли коробку размером a*b*c упаковать в посылку r*s*t ? Углом укладывать нельзя.
|
   |
 
|
  |
Ответов
| Pirate |
Сообщение
#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 упаковка коробки 24.01.2008 1:39
Pirate
помогите решить такую задачу: можно ли коробку ра… 24.01.2008 1:50 MiH@N размеры посылки и коробки вводить с клавы.усё..бол… 24.01.2008 1:53 MiH@N не. я тож об этом варианте думал. (образно :у коро… 24.01.2008 2:23 Pirate Помойму всё!
if (a>r) or (a>s) or (a… 24.01.2008 2:34
feniks25
if (a>r) or (a>s) or (a>t) or (b>r) … 26.01.2008 18:13 MiH@N всмысле всё? вродеж скобки необязательны..хотя ща … 24.01.2008 2:40 andriano 1. Отсортировать размеры коробки и посылки, пример… 24.01.2008 2:43 MiH@N действительно всё.спс. :good: стоп...не всё...реше… 24.01.2008 2:44 andriano а что значит "if a < b then swap(a,b);… 24.01.2008 12:56 hardcase Тогда уж скорее так:
procedure swap(vara,b… 25.01.2008 4:05 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 9.09.2025 5:21 |
Связь с администрацией: bu_gen в домене octagram.name