Question

Написать программу в Паскаль: cos (x)^2

Answer 1

Ответ:

var z:integer;

Begin

readln(z);

write((1 + cos(2 * sin(1 / z))) / 2);

End.

Объяснение:

Answer 2

Конечно! Вот пример программы на языке Pascal, которая вычисляет квадрат косинуса x:

pascalCopy code
program CosineSquared;

uses
  Math;

var
  x: Double;
  result: Double;

begin
  Write('Введите значение x: ');
  Readln(x);

  result := Power(Cos(x), 2);

  Writeln('Квадрат косинуса ', x, ' равен ', result);

  Readln;
end.

В этой программе мы используем встроенную функцию Cos из модуля Math, чтобы вычислить косинус x. Затем мы используем функцию Power из того же модуля, чтобы возвести полученный результат в квадрат. Результат выводится на экран с помощью процедуры Writeln.

Программа запрашивает у пользователя значение x и выводит квадрат косинуса этого значения.