Question

Помогите пожалуйста, очень прошу написать это на языке паскаль cos^2 x^2

Answer 1

Program sqrcos;
  var x:real;
begin;
  read(x);
  write(sqr(cos(sqr(x))));
end.

Answer 2

Конечно, вот код на языке Паскаль для вычисления значения выражения cos^2(x^2):

pascalCopy code
program CosSquaredX;
uses math;

function CosSquaredX(x: Real): Real;
begin
    CosSquaredX := Power(Cos(x * x), 2);
end;

var
    x, result: Real;
begin
    Write('Введите значение x: ');
    ReadLn(x);

    result := CosSquaredX(x);
    WriteLn('Значение выражения cos^2(x^2) равно: ', result:0:4);
end.

Программа предоставляет функцию CosSquaredX, которая принимает значение x и возвращает результат вычисления cos^2(x^2). В основном блоке кода пользователь может ввести значение x, а программа вычислит и выведет значение cos^2(x^2) на экран с точностью до 4 знаков после запятой.