Вычислить сумму ряда

@GreenFoxer · Регистрация: 26.04.2015

Найти значение выражения s=x^2+x^6+x^10 ...x34. Степень вычислять при помощи подпрограммы функции.

@Puporev · 04.05.2015, 20:26

Pascal

function step(x:real;n:integer):real;
var i:integer;
begin
result:=1;
for i:=1 to n do
result:=result*x;
end;
var x,s:real;
    i:integer;
begin
write('x=');
readln(x);
//можно так
i:=2;
s:=0;
while i<=34 do
 begin
  s:=s+step(x,i);
  i:=i+4;
 end;
writeln('S=',s);
//или так
s:=0;
for i:=1 to 9 do
s:=s+step(x,4*i-2);
writeln('S=',s);
end.

@GreenFoxer · 04.05.2015, 20:38 **[ТС]**

спасибо

@GreenFoxer 1 / 1 / 1 Регистрация: 26.04.2015 Сообщений: 56
		1
	Вычислить сумму ряда 04.05.2015, 19:56. Показов 976. Ответов 2 Метки нет (Все метки) Найти значение выражения s=x^2+x^6+x^10 ...x34. Степень вычислять при помощи подпрограммы функции. 0

@GreenFoxer 1 / 1 / 1 Регистрация: 26.04.2015 Сообщений: 56
	04.05.2015, 20:38 [ТС]	3
	спасибо 0

Опции темы

Вычислить сумму ряда

Решение