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

Ответы 5

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

      lil mama
    • 6 лет назад
    • 0
  • ОК, fpc вернул ошибку компиляции. Работаю.
  • Вот поэтому я тестовое решение всегда и прикладываю.
  • // PascalABC.Net 3.0, сборка 1052var  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)  endend.Тестовое решение:Введите значение x: 0.634Значение функции равно -0.246679689801614
    • Автор:

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

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years