Question

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

Answer 1

Var a:real;
tg:real;
begin
readln(a);
tg:=sin(a)/cos(a);
writeln(tg);
end.

Answer 2

var
  r: real;

begin
  readln(r);
  writeln(System.Math.tan(r * Pi / 180));
end.

Прости, не сразу догадался посмотреть в документация Excel (.NET тоже мелкомягкие разработали), оттого задержался с ответом

Answer 3

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

goCopy code
program tangent;

var
  angle_degrees: real;  // угол в градусах
  angle_radians: real;  // угол в радианах
  tangent_value: real;  // значение тангенса угла

begin
  // Запрашиваем у пользователя угол в градусах
  write('Введите угол в градусах: ');
  readln(angle_degrees);

  // Переводим угол в радианы
  angle_radians := angle_degrees * pi / 180;

  // Вычисляем значение тангенса угла
  tangent_value := sin(angle_radians) / cos(angle_radians);

  // Выводим результат на экран
  writeln('Тангенс угла ', angle_degrees, ' градусов равен ', tangent_value);
end.

В этой программе мы сначала запрашиваем у пользователя угол в градусах, затем переводим его в радианы, вычисляем значение тангенса угла и выводим результат на экран. Обратите внимание на использование функций sin и cos из стандартной библиотеки языка Pascal для вычисления синуса и косинуса угла в радианах.