помогите решить такую задачу: можно ли коробку размером a*b*c упаковать в посылку r*s*t ? Углом укладывать нельзя.
размеры посылки и коробки вводить с клавы.усё..больше условий нет.
(я так понимаю её можно вертеть полюбому.)
Так падайдёт:
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('Коробка помещается')
не. я тож об этом варианте думал. (образно :у коробки от конфет <у коробки от обуви но эт не значит что коробка конфет поместится в коробку от обуви)
я тут коечто наклепал но с глюками (как изменить?):
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;
Помойму всё!
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)
всмысле всё? вродеж скобки необязательны..хотя ща попробую..
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. Надо писать либо "Не поместится" либо "нипаместицца".
действительно всё.спс. стоп...не всё...решение неправ-но.
Добавлено через 2 мин.
а что значит "if a < b then swap(a,b);"--эта строка??
procedure swap(var a,b:float);
var tmp : float;
begin
tmp := a;
a := b;
b := tmp;
end;
Тогда уж скорее так: