Вычислить значение выражения - Pascal ABC (14447)

Формулировка задачи:

Помогите пожалуйста

Код к задаче: «Вычислить значение выражения - Pascal ABC (14447)»

textual
function Max(const x, y: Double): Double;
var
    Result: Double;
begin
    if (x > y)
    then
        Result := x
    else
        Result := y;
    Max := Result;
end;
function Min(const x, y: Double): Double;
var
    Result: Double;
begin
    if (x < y)
    then
        Result := x
    else
        Result := y;
    Min := Result;
end;
var
    x, y: Double;
begin
    Write('x='); ReadLn(x);
    Write('y='); ReadLn(y);
    Write('Z=');
    if (x > 0)
    then
        Write(Min(Sqrt(x * y), x + y / 2):0:3)
    else
        Write(Min(x + y, x * y / 2):0:3);
end.

8   голосов, оценка 4.375 из 5


СОХРАНИТЬ ССЫЛКУ