Показать сообщение отдельно
  #2  
Старый 30.09.2012, 21:18
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от Valentyn
Здравствуйте. Вот задали в универе (1 курс) такую программу сварганить, сижу "ломаю" голову. Непонятнее всего в ней - это при кахих входный параметрах должно выполняться третье действие? Если они (входные данные) подходят к первому или второму?
Код:
uses Math;

function V(a, b, c, d, x, y, z: Extended): Extended;
begin
  if ((x + y + z) >= c) and ((x + y + z) <= d) then
  begin
    Result := Max(Abs(x), Max(Abs(y), Abs(z)));
  end
  else
  if ((x + y + z) < c) and ((x + y + z) > d) then
  begin
    Result := Sqrt(Sqr(a) + Sqr(b));
  end
  else
  begin
    Result := Min(Sqr(x), Min(Sqr(y), Sqr(z)));
  end;
end;
Ответить с цитированием