Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
LinkolnPark1
31.03.2020 05:04 •
Информатика
Вычислить через for и repeat в паскале (1+sin0,1 )(1+sin0,2 )…(1+sin10)
Показать ответ
Ответ:
V1ctoriaF0X
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 оценок)
Популярные вопросы: Информатика
MrLED
18.11.2021 01:07
Определите, о каком программном обеспечении идет речь.1) Программное обеспечениеВключает:программы диагностики состоянияКомпьютера, антивирусные средства,• программы для работы снакопителями...
Sasha808621
27.01.2022 06:11
Составить программу на языке программирования паскаль, которая бы в ходе работы заданного цикла периодически меняла бы цвет выведенного на экран текстового псевдорисунка или любой...
Alisherjon1985
17.05.2020 07:06
(можно использовать только одномерные массивы, циклы, условия и строки) Билет считается счастливым, если в его n-значном номере сумма первых [n/2] цифр равна сумме [n/2] последних...
veronichka1414
02.05.2021 03:47
На каком ЯП написана программа?...
SashaD02
31.03.2023 06:09
A) (-6а2 + 4): (2а); б)(-7х3 + 14х2 – 21х): (-7х); в) (9а3с – 6а2с2): 3а2с2;...
Nastya348624
24.02.2023 23:34
Тилши болган рахат,Деп айтады тилши Ахат.Жазып жауап хат,Алдым жаксы ат....
dimidrol7331
24.02.2023 23:34
Реши уравнение.16-X =7...
ксюш4
24.02.2023 23:34
X(7x – 6) + 4(7x – 6) = 0 теңдеуінің түбірлерін тауып, бос орындарды толтыр....
Elina558548
24.02.2023 23:34
Гелиостың алып мүсіні туралы энциклопедиялар мен газет-жур-налдардан мәлімет жинап, сілтемесін көрсетіңдер....
Валоронтеа
18.03.2023 23:19
Какие ткани используются для изготовления летней одежды? шерстяные шёлковые льняные синтетические...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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 цифр приведено во вложении. В соответствии с ним верные цифры в результатах подчеркнуты.