tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу на языке
Составьте программу на языке паскаль: вводится величина угла в градусах. найти его sin и cos.
полина2027
3 23.09.2019 18:50
0
Ответы
Саша77777777
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
ПОКАЗАТЬ ОТВЕТЫ
elvira125
08.10.2020 13:05
Var a:real;
begin
read(a);
b:=sin(a);
c:=cos(a);
write(b,' ',c);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
KittyClab
25.11.2021 17:43
Заполни таблицу истинности. (Перетащи правильные значения в окошки.) Логическое выражение: F = M∨B∧(M∧C)¯¯¯¯¯¯¯¯¯¯¯. M B C M∧C M∧C¯¯¯¯¯¯¯¯¯¯ B∧(M∧C)¯¯¯¯¯¯¯¯¯¯¯¯ F 0 0 0 0 0 1 0 1...
voytyukk
25.11.2021 17:43
Составить программу для нахождения всех натуральных решений уравнения i2 + j2 = k2 в интервале [1, 10]. Решения, которые получаются перестановкой n и m, считать совпадающими....
egoroff1271
25.11.2021 17:44
Вычислить десятичный эквивалент числа 243 (16)...
Was1231
25.11.2021 17:44
Известны оценки по физике каждого из учеников класса. Определить минимальную и максимальную оценки. (Оценки и количество учеников получаем случайным образом)...
olivcad
23.12.2020 23:06
Вводим количество чисел в массиве N. Затем вводятся эти числа с клавиатуры. Найти количество чисел, кратных M и оканчивающиеся на 4 C++...
alinamalina37544
23.12.2020 23:04
Решите Начертить логические схемы и заполнить таблицы истинности для следующих логических операций...
DashaV19022001
23.12.2020 22:59
РЕБЯТ СДЕЛАИТЕ нада Ибо получу Колл Табличные процессоры: основные понятия (электронная таблица, рабочий лист, книга), классы решаемых задач, набор встроенных функций, принципы организации...
СлаваКпсс11
23.12.2020 22:59
Решить задачу в эксель/калк оформить таблицу и через поиск решения главное чтоб я смог ввести их сам со скринами или фото диапазонов.(номер 3)...
zverok21rus
23.07.2019 06:20
Var x,y,p,i: integer; begin readln(x,y); for i: =1 to abs(y) do p: =p+x; if y 0 then p: =-p; writeln(p); end. что такое abc?...
hadika2006
09.02.2022 14:03
Вставь пропущенные слова. 4 класс информатика рабочая ттердь упр 6 2 часть страница 45...
Популярные вопросы
WritingTask 2. Write 50-60 words passage about your favorite film explaining why...
3
Что не относилось к материальным источникам индустриализации? а) продажа хлеба...
1
Сочинение на тему : история жизни актёра из пьесы М. Горького На дне ...
1
Предложите свой план-проект по охране водного фонда в вашем регионе.определите...
3
5. Есептерді шығар.а) Қазақстан халықтарының фестиваліне 76 қатысушы келді.Олардың...
3
Найдите корень уравнениния: а)3х=28-хб)6х-19=-х-10в)5х+12=8х+30г)7-2х=3х-18д)33+8х=-5х+72е)2х+9=2х...
2
Какие пейзажные образы поэту сделать зрительно принимаемыми воспоминания о матери...
3
Зачем дети отправились на блудова болото, почему они разошлись кладовая солнца...
2
На схеме R1=3 Ом, R2=2 Ом, R3=4 Ом. На резисторе R2 выделяется мощность 8 Вт....
2
2475.351229.6313064.4712904.58В столбик на листочке ...
2
Внимание! Если программа не работает, обновите версию!
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.