30.09.2012, 21:18
|
|
Профессионал
|
|
Регистрация: 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;
|