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

@Monsans · Регистрация: 06.02.2018

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

Помогите написать полный код на Pascal, пожалуйста:
Дано вещественное число $https://www.cyberforum.ru/cgi-bin/latex.cgi?x$ . Вычислить $https://www.cyberforum.ru/cgi-bin/latex.cgi?f(x)$ , если:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?f = \begin{cases} & \text{ if } 0,2\leq x\leq 0,9 \text{ then } sin(x) \\ & \text{ else } 1\end{cases}$

Комментарий модератора

Из правил форума:
5.18 Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.

@Cyborg Drone · 11.02.2018, 19:46

Pascal

var
  x: real;
 
begin
  write('x = ');
  readln(x);
  write('f(x) = ');
  if abs(x - 5.5) <= 3.5
    then write(sin(x))
    else write(1.0)
end.

	11.02.2018, 19:46

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

Решение