Составить программу вычисления значения функции при любых Х y ;= sin*(3.2+...

Question

Составить программу вычисления значения функции при любых Х
y ;= sin*(3.2+ (sqrt(1-x))/abs(5*x))

Comments

При любых нельзя, только при ненулевом х и не большим 1 )))

---

И к тому же, что у Вас означаетет sin * (....) ?

---

в задании, которое дал учитель дана функция у=sin*((3,2+квадратный корень из 1-х)/ модуль 5х

---

Учитель-гуманитарий.

---

Звездочка там явно лишняя

Answer 1

//sin* - это что-то новое, так что обойдёмся без умножения.
var x,y:real;
begin;
readln(x);
if (x=0) or (x>1) then
begin;
writeln('Ошибка');
exit;
end;
y:=sin(3.2+(sqrt(1-x))/abs(5*x));
writeln(y);
end.

Comments

NaN вернет только если это Паскаль АВС

---

ОК, fpc вернул ошибку компиляции. Работаю.

---

Вот поэтому я тестовое решение всегда и прикладываю.

Answer 2

// PascalABC.Net 3.0, сборка 1052
var
  x,y:real;
begin
  Writeln('Введите значение x: '); Read(x);
  if (x=0) or (x>1) then Writeln('Значение функции не определено')
  else begin
    y:=sin(3.2+sqrt(1-x)/abs(5*x));
    Writeln('Значение функции равно ',y)
  end
end.

Тестовое решение:
Введите значение x: 0.634
Значение функции равно -0.246679689801614