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

@Sandro_1886 · Регистрация: 09.11.2019

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

Написать процедуру, которая получает на вход три числа x, y, z и выдает значение функции f. Ввести исходные данные и вывести значение функции путем вызова написанной процедуры.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> f=\begin{cases}sin(x+y) &,\ x>z \\\frac{x{}^{2}}{2*x+y} &,\ x<z\end{cases}<br />$

@ZX Spectrum-128 · 23.12.2019, 11:48

Pascal

procedure proc(x, y, z: real; var f: real);
begin
  if x > z then 
    f := sin(x + y)
  else 
    f := sqr(x) / (2 * x + y);
end;
 
var
  f, x, y, z: real;
 
begin
  readln(x, y, z);
  proc(x, y, z, f);
  writeln(f);
end.

Добавлено через 25 секунд
Sandro_1886, что делать если x=z?

@Sandro_1886 0 / 0 / 0 Регистрация: 09.11.2019 Сообщений: 72
		1
	Вычислить значение выражения 23.12.2019, 11:08. Показов 1361. Ответов 1 Метки нет (Все метки) Написать процедуру, которая получает на вход три числа x, y, z и выдает значение функции f. Ввести исходные данные и вывести значение функции путем вызова написанной процедуры. $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> f=\begin{cases}sin(x+y) &,\ x>z \\\frac{x{}^{2}}{2*x+y} &,\ x<z\end{cases}<br />$ 0

	23.12.2019, 11:48

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

Решение