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

@d31m03 · Регистрация: 24.11.2015

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

Ребят, добрый вечер) Я здесь новичок, т.к. по учебе начинаю учить паскаль)
Вот хотел обратиться за помощью)
Может напишет кто как в Паскале написать эту формулу?)

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> f(x,y)=\begin{cases}\frac{x-1}{x+1} & \text{, if } x>y \\\\ xy & \text{, if } x<y\\\\ 3y & \text{, otherwise}\end{cases}<br />$

@JokeR.BY · 22.12.2015, 17:46

Pascal

function F(const x, y: Real): Real;
var
    Result: Real;
begin
    if (x > y)
    then
        Result := (x - 1) / (x + 1)
    else
        if (x < y)
        then
            Result := x * y
        else
            Result := 3 * y;
    F := Result;
end;

@d31m03 · 22.12.2015, 17:56 **[ТС]**

не компилириуется(( ошибку выдает

@vlisp · 22.12.2015, 18:01

Сообщение от d31m03

не компилириуется(( ошибку выдает

Откройте любой учебник по паскалю и увидите что нужно дописать, чтоб компилировалось...
в вашем случае это

Pascal

begin
  WriteLN (f ( 2 , 3));
  ReadLN;
end.

@d31m03 · 22.12.2015, 18:03 **[ТС]**

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

@Cyborg Drone · 02.01.2016, 13:50

Вариант:

Pascal

function f(x, y: Real): Real;
begin
  if x > y
    then f := (x - 1) / (x + 1)
    else begin
      if x = y then x := 3
      f := x * y
    end
end;

@d31m03 0 / 0 / 0 Регистрация: 24.11.2015 Сообщений: 18
		1
	Вычислить значение выражения 22.12.2015, 17:29. Показов 616. Ответов 5 Метки нет (Все метки) Ребят, добрый вечер) Я здесь новичок, т.к. по учебе начинаю учить паскаль) Вот хотел обратиться за помощью) Может напишет кто как в Паскале написать эту формулу?) $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> f(x,y)=\begin{cases}\frac{x-1}{x+1} & \text{, if } x>y \\\\ xy & \text{, if } x<y\\\\ 3y & \text{, otherwise}\end{cases}<br />$ 0

@d31m03 0 / 0 / 0 Регистрация: 24.11.2015 Сообщений: 18
	22.12.2015, 17:56 [ТС]	3
	не компилириуется(( ошибку выдает 0

@d31m03 0 / 0 / 0 Регистрация: 24.11.2015 Сообщений: 18
	22.12.2015, 18:03 [ТС]	5
	ССпассибо большое)) 0

	02.01.2016, 13:50