Question

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

Answer 1

var a:real;
begin
read(a);
b:=sin(a);
c:=cos(a);
write(b,' ',c);
end.

Answer 2

Переменные b,c надо описать.

Answer 3

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=DegToRad(ReadReal);
  Writeln('Cинус равен ',Sin(a):0:13,', косинус равен ',Cos(a):0:13)
end.

Пример
38.4
Cинус равен 0.6211477802783, косинус равен 0.7836934573258

Answer 4

var a:=DegToRad(ReadReal); это он считывает переменную в диапазоне real

Answer 5

понятно, спасибо

Answer 6

В радианах. Функция DegToRad (Degrees To Radians) как раз и переводит градусную меру угла в радианную. Достаточно стать мышкой на непонятное слово в программе и появится подсказка на русском языке.

Answer 7

большое спасибо!

Answer 8

Пожалуйста. А вообще для "Спасибо" тут просто щелкают "сердечко".