Вычислить значение выражения

@GALY · Регистрация: 17.10.2015

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста
$https://www.cyberforum.ru/cgi-bin/latex.cgi? <br /> z=\begin{cases} & \text{max(x+y,x*y/2),} x\leq 0 \\ & \text{min{((x*y)}^{\frac{1}{2}},x+y/2),} x > 0 \\ \end{cases} <br />$

@JokeR.BY · 17.10.2015, 23:51

Pascal

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.

@GALY · 18.10.2015, 11:21 **[ТС]**

У меня PascalABC пишет "Повторно объявленный идентификатор Result" и программа не выполняется что делать????

@JokeR.BY · 18.10.2015, 14:09

GALY, удалить в обоих функциях var Result: Double;

@GALY · 18.10.2015, 14:59 **[ТС]**

Спасибо большое

@GALY · 20.10.2015, 11:19 **[ТС]**

А можете помочь сделать это без функций только if, then, else??

@JokeR.BY · 20.10.2015, 13:37

в прошлый раз, к слову, зарапортовался. дважды вызывается функция минимума...

Pascal

var
    x, y, temp1, temp2: Double;
begin
    Write('x='); ReadLn(x);
    Write('y='); ReadLn(y);
    Write('Z=');
    temp1 := x + y;
    if (x > 0)
    then
    begin
        temp2 := Sqrt(x * y);
        if (temp1 < temp2)
        then
            Write(temp1:0:3)
        else
            Write(temp2:0:3);
    end
    else
    begin
        temp2 := x * y / 2;
        if (temp1 > temp2)
        then
            Write(temp1:0:3)
        else
            Write(temp2:0:3);
    end;
end.

@GALY 1 / 1 / 0 Регистрация: 17.10.2015 Сообщений: 28
		1
	Вычислить значение выражения 17.10.2015, 22:14. Показов 1427. Ответов 6 Метки нет (Все метки) Помогите пожалуйста $https://www.cyberforum.ru/cgi-bin/latex.cgi? <br /> z=\begin{cases} & \text{max(x+y,xy/2),} x\leq 0 \\ & \text{min{((xy)}^{\frac{1}{2}},x+y/2),} x > 0 \\ \end{cases} <br />$ 0

@GALY 1 / 1 / 0 Регистрация: 17.10.2015 Сообщений: 28
	18.10.2015, 11:21 [ТС]	3
	У меня PascalABC пишет "Повторно объявленный идентификатор Result" и программа не выполняется что делать???? Миниатюры 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	18.10.2015, 14:09	4
	GALY, удалить в обоих функциях var Result: Double; 0

@GALY 1 / 1 / 0 Регистрация: 17.10.2015 Сообщений: 28
	18.10.2015, 14:59 [ТС]	5
	Спасибо большое 0

@GALY 1 / 1 / 0 Регистрация: 17.10.2015 Сообщений: 28
	20.10.2015, 11:19 [ТС]	6
	А можете помочь сделать это без функций только if, then, else?? 0

	20.10.2015, 13:37

Вычислить значение выражения

Решение