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

[MiH@N]

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

[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 - 23.01.2008 22:28