Задача Функция 4

Задача

Составить программу вычисления значений функции и выполнить её в среде системы программирования Turbo Pascal 6.0.

$y={\frac {x}{1-x^{2}}}$

Решение

Программа

uses Crt;

function y(x:real):real;
begin
  y:=x/(1-sqr(x));
end;

var x:real;
begin
  clrscr;
  write('Введите X:');
  readln(x);
  if ((1-sqr(x)) = 0) then
      writeln('x=',x:7:3,'   y(x) - функция неопределенна')
  else writeln('x=',x:7:3,'   y(x)=',y(x):7:3);
  readln;
end.

Примеры работы

Пример №1

Введите X:3
x=  3.000   y(x)= -0.375

Пример №2

Введите X:-1
x= -1.000   y(x) - функция неопределенна