Вычислить значение функции

@Александра2307 · Регистрация: 25.04.2015

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

Написать программу решения задачи : вычислить значение функции

$https://www.cyberforum.ru/cgi-bin/latex.cgi?F(x)=\begin{cases}<br /> -3x+9 & \text{ , } x \le 7 \\ <br /> \frac{1}{x-7} & \text{ , } x \gt 7<br /> \end{cases}$

@ZX Spectrum-128 · 27.04.2015, 10:05

Pascal

var
  x:real; 
function f(x:real):real;
begin
  if x<=7 then
    f:=-3*x+9
  else
    f:=1/(x-7);
end;
 
begin
  readln(x);
  writeln(f(x));
  readln;
end.

@Александра2307 0 / 0 / 0 Регистрация: 25.04.2015 Сообщений: 69
		1
	Вычислить значение функции 26.04.2015, 21:19. Показов 1009. Ответов 1 Метки нет (Все метки) Написать программу решения задачи : вычислить значение функции $https://www.cyberforum.ru/cgi-bin/latex.cgi?F(x)=\begin{cases}<br /> -3x+9 & \text{ , } x \le 7 \\ <br /> \frac{1}{x-7} & \text{ , } x \gt 7<br /> \end{cases}$ 0

	27.04.2015, 10:05

Вычислить значение функции

Решение