упаковка коробки Опции

[MiH@N]

помогите решить такую задачу: можно ли коробку размером a*b*c упаковать в посылку r*s*t ? Углом укладывать нельзя.

[Pirate]

помогите решить такую задачу: можно ли коробку размером a*b*c упаковать в посылку r*s*t ? Углом укладывать нельзя.

Да - если коробка будет меньше посылки
Подробнее опиши что за коробка и посылка и каким образом её класть

[MiH@N]

размеры посылки и коробки вводить с клавы.усё..больше условий нет.
(я так понимаю её можно вертеть полюбому.)

Сообщение отредактировано: MiH@N - 24.01.2008 1:57

[Pirate]

Так падайдёт:

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]

не. я тож об этом варианте думал. (образно :у коробки от конфет <у коробки от обуви но эт не значит что коробка конфет поместится в коробку от обуви)

я тут коечто наклепал но с глюками (как изменить?):

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,r,s,t : real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
r:=StrToFloat(Edit4.Text);
s:=StrToFloat(Edit5.Text);
t:=StrToFloat(Edit6.Text);
if a>r or a>s or a>t or b>r or b>s or b>t or c>r or c>s or c>t   <---ошибка тута
then  edit7.Text:='непоместица'
else  edit7.Text:='поместица';
end;

Сообщение отредактировано: MiH@N - 24.01.2008 2:28

[Pirate]

Помойму всё!
if (a>r) or (a>s) or (a>t) or (b>r) or (b>s) or (b>t) or (c>r) or (c>s) or (c>t)

[MiH@N]

всмысле всё? вродеж скобки необязательны..хотя ща попробую..

Сообщение отредактировано: MiH@N - 24.01.2008 2:42

[andriano]

1. Отсортировать размеры коробки и посылки, примерно так:
if a < b then swap(a,b);
if b < c then swap(b,c);
if a < b then swap(a,b);
2. Сравнить соответсьвующие размеры, т.е.
if (a<r) and (b<s) and (c<t) then...
3. Надо писать либо "Не поместится" либо "нипаместицца".

[MiH@N]

действительно всё.спс. стоп...не всё...решение неправ-но.

Добавлено через 2 мин.
а что значит "if a < b then swap(a,b);"--эта строка??



Сообщение отредактировано: MiH@N - 24.01.2008 2:53

[andriano]

а что значит "if a < b then swap(a,b);"--эта строка??

Очевидно: "Если a меньше b, то поменять местами значения a и b".
Например, так:

procedure swap(var a,b:float);
var tmp : float;
begin
  tmp := a;
  a := b;
  b := tmp;
end;

Сообщение отредактировано: andriano - 26.01.2008 1:56

[hardcase]

Тогда уж скорее так:

Код

procedure swap(vara,b:float);
var tmp : float;
begin
  tmp := a;
  a := b;
  b := tmp;
end;

Сообщение отредактировано: hardcase - 25.01.2008 4:06

[Rian]

if (a>r) or (a>s) or (a>t) or (b>r) or (b>s) or (b>t) or (c>r) or (c>s) or (c>t)

Эта идея была правильной, только оформлена не хорошо.
А если попробовать так:
( (a>r) and (b>s) and (c>t) ) or () or ()