Предмет: Информатика,
автор: KseniaDikul
Составьте программу на языке Паскаль: Вводится величина угла в градусах. Найти его sin и cos.
KseniaDikul:
Напомним, что в Паскале аргумент тригонометрических функций задается в радианах
Ответы
Автор ответа:
0
var a:real;
begin
read(a);
b:=sin(a);
c:=cos(a);
write(b,' ',c);
end.
begin
read(a);
b:=sin(a);
c:=cos(a);
write(b,' ',c);
end.
Автор ответа:
1
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
Внимание! Если программа не работает, обновите версию!
begin
var a:=DegToRad(ReadReal);
Writeln('Cинус равен ',Sin(a):0:13,', косинус равен ',Cos(a):0:13)
end.
Пример
38.4
Cинус равен 0.6211477802783, косинус равен 0.7836934573258
Похожие вопросы
Предмет: Химия,
автор: dastanblo123
Предмет: Қазақ тiлi,
автор: soyoona
Предмет: Алгебра,
автор: urazkuldusenbaeva
Предмет: Геометрия,
автор: golubovanastya2
Предмет: Математика,
автор: Dianageroeva6