Нужно исправить в 14 строке формулу чтобы ответ получился -2,341 при x=5 n=4

@33Anton11 · Регистрация: 30.11.2013

1.program summa;
2.var
3. q,x,y,s:real;
4. n,i,p,t:integer;
5.begin
6. writeln('x');
7. readln(x);
8. writeln('n');
9. readln(n);
10. t:=-1;p:=1;y:=1;s:=1;
11. for i:=1 to n do
12.begin
13. s:=s+y;
14. p:=i*p*(i+1)*(i+2);
15. y:=power(t,i)*power(x,2*i)/p;writeln(y);
16.end;
17. write('s=',s);
18.end.
Вот есть формула $https://www.cyberforum.ru/cgi-bin/latex.cgi?\huge S=\sum_{0}^{n}\frac{(-1)^i*(x^2)^i}{(3i)!}$

@volvo · 24.12.2013, 19:24

Pascal

program summa;
var
  x, s, p: real;
  n, i: integer;
begin
  writeln('x');
  readln(x);
  writeln('n');
  readln(n);
  p := 1; s := p;
  for i := 1 to n do
  begin
    p := -p * sqr(x) / (3 * i - 2) / (3 * i - 1) / (3 * i);
    s := s + p;
  end;
  write('s=', s);
end.

@33Anton11 0 / 0 / 0 Регистрация: 30.11.2013 Сообщений: 4
		1
	Нужно исправить в 14 строке формулу чтобы ответ получился -2,341 при x=5 n=4 24.12.2013, 18:49. Просмотров 982. Ответов 1 Метки нет (Все метки) 1.program summa; 2.var 3. q,x,y,s:real; 4. n,i,p,t:integer; 5.begin 6. writeln('x'); 7. readln(x); 8. writeln('n'); 9. readln(n); 10. t:=-1;p:=1;y:=1;s:=1; 11. for i:=1 to n do 12.begin 13. s:=s+y; 14. p:=ip(i+1)(i+2); 15. y:=power(t,i)power(x,2i)/p;writeln(y); 16.end; 17. write('s=',s); 18.end. Вот есть формула $https://www.cyberforum.ru/cgi-bin/latex.cgi?\huge S=\sum_{0}^{n}\frac{(-1)^i(x^2)^i}{(3i)!}$ 0

Опции темы

Нужно исправить в 14 строке формулу чтобы ответ получился -2,341 при x=5 n=4

Решение