Вычислить и вывести на экран значение функции Y=Y (x) для всех x из диапазона (XL, XR) с шагом k (k< XR-XL). Для всех значений x, в которых функция Y (x) не существует вывести сообщение "Функция не существует". Числа XL, XR, k пользователь вводит с клавиатуры. Значение функции выводить с точностью до 2 цифр после десятичной точки

Функция: Y=|sinx|+cos|x|

Var

xl, xr, h, x:real;

i:integer;

begin

Write ('Введите левую и правую границы изменения х, затем шаг: ') ;

Read (xl, xr, h) ;

for i:=1 to Trunc ((xr-xl) / h) + 1 do begin

x:=xl + (i-1) * h;

Writeln (x:0:4,' ', abs (sin (x)) + cos (abs (x)))

end

end.

Пример

Введите левую и правую границы изменения х, затем шаг: 1.2 3 0.18

1.2000 1.2943968404439

1.3800 1.17149436167019

1.5600 1.01073783728823

1.7400 0.817321730886476

1.9200 0.597495822534427

2.1000 0.358363262049017

2.2800 0.107651047653376

2.4600 - 0.146539653537401

2.6400 - 0.395995275405633

2.8200 - 0.632655254626053

3.0000 - 0.848872488540578