Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
макатернар1
20.01.2023 21:04 •
Информатика
Составьте программу на языке паскаль: вводится величина угла в градусах. найти его sin и cos.
Показать ответ
Ответ:
aleksandragapov
08.10.2020 13:05
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
0,0
(0 оценок)
Ответ:
Max749
08.10.2020 13:05
Var a:real;
begin
read(a);
b:=sin(a);
c:=cos(a);
write(b,' ',c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
pukan03424
16.06.2022 04:50
Информационная ёмкость жёсткого диска...
Holochka
07.09.2020 05:31
Даны коэффициенты прямой y=kx+b и координаты двух точек. верно ли, что эти точки лежат по разные стороны от прямой? язык программирования: паскаль...
Lency
07.09.2020 05:31
Дано натуральное число. проверить, является ли оно четвертой степенью некоторого натурального числа. язык программирования: паскаль...
Dyakgod
29.05.2021 14:47
Окружной этап всероссийской олимпиады школьников по информатике, 2015, i тур россия, самара, 14 ноября 2015 d. трамвайная остановка имя входного файла: стандартный...
аня2942
29.05.2021 14:47
Напишите текст программы паскаль скоростной трамвай был не рассчитан на то, что в час пик пассажиры будут в нем не только сидеть, но и стоять. узкий проход между...
TvoePolusladkoe
29.05.2021 14:47
Нужно написать программу на паскале: дан файл целых чисел f1.создать файл f2 содержащий только отрицательные числа из файла f1...
Bogalexx
29.05.2021 14:47
Программа на вычисления по формуле s: =1,728*a...
gordeevlogain2
29.05.2021 14:47
0,25 гбайт это ? кбайт 2 в 30 степени бит это ? кбайт 2048 байт это ? мбайт 5120 бит это ? кбайт...
dashakostyk
29.04.2022 16:27
Мне задали сделать реферат на тему робот будущего , (пишу в информатику, ведь она связана с робототехникой которой здесь нет (я сделал и запрограммировал робота за...
bagov2001
19.04.2020 05:20
Нужно написать программу, которая подсчитывает сумму и произведение нечетных чисел,в одномерном массиве, размерностью 10...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
var a:=DegToRad(ReadReal);
Writeln('Cинус равен ',Sin(a):0:13,', косинус равен ',Cos(a):0:13)
end.
Пример
38.4
Cинус равен 0.6211477802783, косинус равен 0.7836934573258
begin
read(a);
b:=sin(a);
c:=cos(a);
write(b,' ',c);
end.