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

@Mr_Bula · Регистрация: 29.04.2013

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

Помогите написать программы для решения неравенства на паскале.

Дано действительное число x. Вычислить f(x), если

$https://www.cyberforum.ru/cgi-bin/latex.cgi?f(x)=\begin{cases}\ln\left( x\right) +9 &\ ,\ \ x\,>0\\\\\\ \frac{x}{x^^2-7} &\ ,\ \ x\leq 0\end{cases}$

Пример вывода при значении аргумента x = 0
Значение функции f(x) = 0 при x = 0

@Cyborg Drone · 29.06.2014, 14:17

Pascal

var x, y: real;
begin
  write('x = ');
  readln(x);
  if (x <= 0) and (x * x = 7)
    then writeln('Функция не определена.')
    else begin
      if x > 0
        then y := ln(x) + 9
        else y := x / (x * x - 7);
      writeln('Значение функции f(x) = ', y, ' при x = ', x)
    end;
  readln
end.

@Mr_Bula 0 / 0 / 0 Регистрация: 29.04.2013 Сообщений: 100
		1
	Вычслить значение выражения 29.06.2014, 13:19. Показов 1062. Ответов 1 Метки нет (Все метки) Помогите написать программы для решения неравенства на паскале. Дано действительное число x. Вычислить f(x), если $https://www.cyberforum.ru/cgi-bin/latex.cgi?f(x)=\begin{cases}\ln\left( x\right) +9 &\ ,\ \ x\,>0\\\\\\ \frac{x}{x^^2-7} &\ ,\ \ x\leq 0\end{cases}$ Пример вывода при значении аргумента x = 0 Значение функции f(x) = 0 при x = 0 0

	29.06.2014, 14:17

Опции темы

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

Решение