Составьте программу вычисления значения функции y по формуле y=cos (12x) + |x|, для которой значение аргумента x введите с клавиатуры.

Var

x, y: real;

begin

Write ('Введите значение аргумента х: ') ;

Readln (x) ;

y : = cos (12 * x) + abs (x) ;

Writeln ('Значение функции cos (12x) + |x| равно ', y)

end.

Тестовое решение:

Введите значение аргумента х: 2.152

Значение функции cos (12x) + |x| равно 2.92244414946246