Question

Составьте программу на языке Паскаль: Вводится величина угла в градусах. Найти его sin и cos. (Напомним, что в Паскале аргумент тригонометрических функций задается в радианах).

Answer 1

program n_5;
var
  a, b: real;
begin
  write('Введите значение угла в градусах - ');read(a);
  b := (a / 57.295779513);
  writeln('Значение угла в радианах - ', b);
  writeln('Синус угла = ', sin(b));
  writeln('Косинус угла = ', cos(b));
end.

Answer 2

Если не будет работать, то сотрите пробелы перед каждым оператором

Answer 3

мне учитель сказал что косинус подсчитан не верно

Answer 4

Всё верно. Результаты моей программы сходятся с таблицей
Вводим угол, допустим, 30 градусов
sin = 0.5
cos = 0.866025... (то есть корень из 3, делённый на 2)

Введем угол 60 градусов
sin = 0.866025... (то есть корень из 3 делённый на 2)
cos = 0.5

Введём угол 45 градусов
sin = cos