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

[MiH@N]

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

[MiH@N]

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

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



Сообщение отредактировано: MiH@N - 23.01.2008 22: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 - 25.01.2008 21:56

[hardcase]

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

Код

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

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