Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.05.2017 12:59
- Информатика
- remove_red_eye 19975
- thumb_up 38
Ответы и объяснения 1
Внешний цикл образует накопление "внешней" суммы, внутренний - накопление "внутренней", т.е. суммы sin(nx).
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s1:=0.0;
var fact:=1.0;
for var k:=1 to 10 do begin
fact:=fact*k;
var s2:=0.0;
for var n:=1 to k do s2:=s2+sin(n*k);
s1:=s1+s2/fact
end;
Writeln('S=',s1)
end.
Результат
S=0.932015550043079
Можно еще дать на первый взгляд менее наглядное, но более короткое современное решение в стиле функционального программирования (примерно так пишут на языке Python, но у нас все же Паскаль)
begin
var fact:integer->real; begin fact:=n->n=1?1.0:n*fact(n-1) end;
Writeln('S=',Range(1,10).Select(k->Range(1,k).Select(n->sin(n*k))
.Sum/fact(k)).Sum)
end.
- 09.05.2017 11:00
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.