Факториал. Написать программу, вычисляющую для заданных x и n сумму...

@tvoimarik · Регистрация: 05.03.2019

Author24 — интернет-сервис помощи студентам

Написать программу, вычисляющую для заданных x и n сумму $https://www.cyberforum.ru/cgi-bin/latex.cgi?1-x^2/2!+x^4/4!+...+An$ (считая с первого по порядку).
Максимально просто, если можно, то без процедур и функций.

@JuriiMW · 27.03.2019, 09:10

Pascal

begin
  var(x,n,s,p,d):=(ReadReal,ReadInteger,0.0,1.0,2);
  loop n do (s,p,d):=(s+p,-p*x*x/d/(d-1),d+2);
  s.Print;
end.

Формула для An какая?

@tvoimarik · 28.03.2019, 15:43 **[ТС]**

Могу лишь сказать, что формула выглядит, как на картинке...
И ещё, можно, пожалуйста, решение попроще? Я не знаю, что такое "loop", "readreal" и "readinteger"

@JuriiMW · 28.03.2019, 15:53

Сообщение от tvoimarik

можно, пожалуйста, решение попроще

Куда ещё проще? Всего три строки…

Сообщение от tvoimarik

Я не знаю, что такое

Ну, дык, учитесь!
Для сведения!

@tvoimarik 0 / 0 / 0 Регистрация: 05.03.2019 Сообщений: 7
		1
	Факториал. Написать программу, вычисляющую для заданных x и n сумму... 27.03.2019, 08:56. Показов 1662. Ответов 3 Метки для начинающих (Все метки) Написать программу, вычисляющую для заданных x и n сумму $https://www.cyberforum.ru/cgi-bin/latex.cgi?1-x^2/2!+x^4/4!+...+An$ (считая с первого по порядку). Максимально просто, если можно, то без процедур и функций. 0

@tvoimarik 0 / 0 / 0 Регистрация: 05.03.2019 Сообщений: 7
	28.03.2019, 15:43 [ТС]	3
	Могу лишь сказать, что формула выглядит, как на картинке... И ещё, можно, пожалуйста, решение попроще? Я не знаю, что такое "loop", "readreal" и "readinteger" Изображения 0

@JuriiMW 5079 / 2651 / 2349 Регистрация: 10.12.2014 Сообщений: 10,028
	28.03.2019, 15:53	4
	Сообщение от tvoimarik можно, пожалуйста, решение попроще Куда ещё проще? Всего три строки… Сообщение от tvoimarik Я не знаю, что такое Ну, дык, учитесь! Для сведения! 1

Факториал. Написать программу, вычисляющую для заданных x и n сумму...

Решение