Задание 3. Вычисление значения функции

Составьте программу, вычисляющую значение функции при заданном значении .

1. Запустите Turbo Pascal

2. В окне редактирования наберите текст программы:

Program Primer_3;

var x, y: real;

begin

Writeln(' Введите значение x');

Read(x);

y:=(x+ln(x))/abs(sqr(x)+3*x-2);

Writeln('y=', y:6:2);

end.

3. Откомпилируйте программу и запустите ее на выполнение

4. Протестируйте правильность выполнения программы, введя значение х=1 (при этом должно получиться значение у = 0.5)

5. Сохраните программу на диске под именем Primer3.