Question

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

Answer 1

// 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

Answer 2

//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.

Answer 3

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

Answer 4

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

Answer 5

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