Question

Как составить программу для высчитывания синуса и косинуса в pascalabc.net

Answer 1

Ответ

var

 x: real;

 

begin

 Write('Введите X: ');

 Readln(x);

 if (x < -2) or (x = 2) then

   Writeln('Нет решений')

 else

   Writeln(Cos(Power(4, x) + Power(2, x + 1) - 8 * x) + Sin(2 / (Sqrt(x + 2) - x)));

end.

Объяснение:

Answer 2

Для вычисления синуса и косинуса в PascalABC.NET можно воспользоваться встроенными функциями Sin и Cos из модуля Math. Вот пример программы:

pascalCopy code
program SinCosCalculator;

uses
  Math; // Подключаем модуль Math для использования функций Sin и Cos

var
  angle_degrees: Real;
  angle_radians: Real;
  sin_value: Real;
  cos_value: Real;

begin
  Write('Введите угол в градусах: ');
  ReadLn(angle_degrees);

  // Переводим угол из градусов в радианы, так как функции Sin и Cos работают с радианами
  angle_radians := DegToRad(angle_degrees);

  // Вычисляем синус и косинус
  sin_value := Sin(angle_radians);
  cos_value := Cos(angle_radians);

  // Выводим результаты
  WriteLn('Синус угла ', angle_degrees:0:2, ' градусов = ', sin_value:0:4);
  WriteLn('Косинус угла ', angle_degrees:0:2, ' градусов = ', cos_value:0:4);
end.

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

Обратите внимание, что функции Sin и Cos из модуля Math ожидают углы в радианах, поэтому мы используем функцию DegToRad для преобразования угла из градусов в радианы перед вызовом этих функций.