Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Serzhantiko
04.06.2020 00:18 •
Информатика
Вычислить через for и repeat в паскале (1+sin0,1 )(1+sin0,2 )…(1+sin10)
Показать ответ
Ответ:
Scvetocheek1
08.10.2020 20:55
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!
Цикл for
begin
var p:=1.0;
for var i:=1 to 100 do p*=(1+Sin(i/10));
Writeln(p)
end.
Результат
1.72984094681772E-14
Цикл repeat
begin
var (p,i):=(1.0,0.1);
repeat
p*=(1+Sin(i));
i+=0.1
until i>10;
Writeln(p)
end.
Результат
1.72984094681773E-14
Контрольное решение с точностью 20 цифр приведено во вложении. В соответствии с ним верные цифры в результатах подчеркнуты.
0,0
(0 оценок)
Популярные вопросы: Информатика
Tamalova5
29.05.2021 22:32
По таблице 8 рассчитайте сумму оплаты электроэнергии за каждый месяц. стоимость 1 квт/ч равна 16,65 тенге. оцените счёт при изменении стоимости 1 квт/ч...
nnatasha0981
09.08.2021 07:38
1. Заполнение столбца Mi можно выполнить автозаполнением (протяжкой маркера). 2. Значения столбцов Vi и Oі вычисляются по формулам: Vi=Fi / Рі; oi = Fi – Pi 3. Переименуйте ЛИСТ1...
dinaumralieva
17.08.2021 10:50
По блок схеме составить программуОстальное на рисунке...
DimaZnanie
08.09.2020 08:31
Что лишнее: зрительная, текстовая, графическая, числовая?...
877171402501
09.04.2021 21:46
Врач-стоматолог принимает пациентов с 8 утра до 2 часов дня. на каж¬дого пациента отводится по 30 минут. какое количество информации со¬держит сообщение о том, что петя записался...
40523
09.04.2021 21:46
Даны 4 целых числа ,записанные в двоичной системе: 11000000,11000011,11011001,11011111.запишите их в порядке убывания. желательно сфотографировать....
Пирожочек07
01.11.2022 13:47
Может ли данный исполнитель нарисовать: прямоугольник, треугольник, пятиконечную звезду, буквы н , х , р , м ?...
Lobaneckste
26.04.2022 02:38
Сочинение о чём бы мог рассказать мой кот Быстрее ...
mariaponomarev1
14.12.2020 11:59
5 предложения в настоящем совершённом продолженном времени...
HELPLIZA1
12.03.2020 12:37
Здрасте, напишите все решения и в столбик, а не написать действия без столбика умоляю!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
Цикл for
begin
var p:=1.0;
for var i:=1 to 100 do p*=(1+Sin(i/10));
Writeln(p)
end.
Результат
1.72984094681772E-14
Цикл repeat
begin
var (p,i):=(1.0,0.1);
repeat
p*=(1+Sin(i));
i+=0.1
until i>10;
Writeln(p)
end.
Результат
1.72984094681773E-14
Контрольное решение с точностью 20 цифр приведено во вложении. В соответствии с ним верные цифры в результатах подчеркнуты.