Question

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

Answer 1

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