Вычисление суммы ряда

@zombu600 · Регистрация: 29.05.2015

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

Помогите написать программу Y = 1 - 3 + 3^2 - 3^3 + . . . + 3^10

@kot96 · 29.05.2015, 19:24

Pascal

program ex;
var i,n,b:integer;
    s,a:real;
 
function stepen(a:real;b:integer):real;
var p:real;
    i:integer;
begin
p:=1;
for i:=1 to b do
p:=p*a;
stepen:=p;
end;
 
begin
for i:=0 to 10 do
s:=s+stepen(3,i);
writeln(s);
end.

@zombu600 · 29.05.2015, 20:31 **[ТС]**

вроде,что то не то,там же должна быть степень SQR(X)...препод увидит,что не я писал...но все равно большое спасибо

@Puporev · 30.05.2015, 08:51

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

там же должна быть степень SQR(X)

С какого угару?
И вообще это решается проще.

Pascal

const n=10;
var i,y,t:integer;
begin
y:=1;
t:=1;
for i:=1 to n do
 begin
  t:=-t*3;
  y:=y+t
 end;
write('y=',y)
end.

Добавлено через 37 секунд
Кстати ряд знакопеременный.

@Cyborg Drone · 31.05.2015, 10:40

Вариант через сумму геометрической прогрессии:

Pascal

var i, y: integer;
begin
y := 1;
for i := 0 to 10 do y := -3 * y;
y := (y - 1) div (-3 - 1);
write('y = ', y);
readln
end.

Вычисление суммы ряда

Решение

Решение

Решение

@zombu600 0 / 0 / 0 Регистрация: 29.05.2015 Сообщений: 2
		1
	Вычисление суммы ряда 29.05.2015, 17:19. Показов 1001. Ответов 4 Метки нет (Все метки) Помогите написать программу Y = 1 - 3 + 3^2 - 3^3 + . . . + 3^10 0

@zombu600 0 / 0 / 0 Регистрация: 29.05.2015 Сообщений: 2
	29.05.2015, 20:31 [ТС]	3
	вроде,что то не то,там же должна быть степень SQR(X)...препод увидит,что не я писал...но все равно большое спасибо 0

Опции темы