Найти частичную сумму ряда

03.11.2012, 19:52. **Показов** 1267. **Ответов** 3

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

очень прошу, помогите решить частичную сумму ряда 1-1/2+1/4-1/8... ряд сходится к значению 2/3, просто в школе информатике вообще не было, а в институте задали решить, буду очень благодарна)

@VSI · 03.11.2012, 21:26

Сообщение от Маra

...сумму ряда 1-1/2+1/4-1/8... ряд сходится к значению 2/3...

В Паскале ABC это будет так...

Pascal

{Pascal ABC}
uses crt;
var k,n:integer;
    sum:real;
BEGIN
  write('Input k = '); readln(k);
  sum:=1;
  for n:=1 to k do
    sum:=sum + Power((-1),n)/Power(2,n);
  writeln('Summa = ',sum:8:7);
readln
END.

@Leshak · 04.11.2012, 03:01

Ну не совсем так, в трубо паскале функцию pow надо бы какбэ задать

. Да и смысл тут с функций если выражение можно вывести рекуррентно( толкаясь от примера выше ). Но это для затравки, а по сути не совсем правильный ответ ТСу дан.

Pascal

sum:=0;c:=1;z:=1;
for i:=1 to n do begin
     sum:=sum+(c/z);
     c:=c*(-1);
     z:=z*2;
     writeln(sum:3:2);
end;

Но думаю более правильное направление будет приблизительно таким ( не гарантирую на все 100 % )

Pascal

Uses crt;
var
 i: integer;
 z, c, sum, e: real;
begin
clrscr;
repeat 
 write('Enter e ( e > 0 ):');readln(e);
until e > 0;
sum:=0;
c:=1;
z:=1;
i:=1;
while abc(c/z) > e do begin
    sum:=sum+(c/z);
    c:=c*(-1);
    z:=z*2;
    i:=i+1;
    writeln(sum:3:2);
end;
readln;
end.

@Puporev · 04.11.2012, 10:00

Я бы еще поправил так.

Pascal

Uses crt;
var i: integer;
    c, sum, e: real;
begin
clrscr;
repeat
 write('Enter e ( e > 0 ):');readln(e);
until e > 0;
if e>=1 then sum:=1
else
 begin
  sum:=1;
  c:=1;
  i:=1;
  while abs(c) > e do
   begin
    i:=i+1;
    c:=-c/2;
    sum:=sum+c;
   end;
 end;
writeln('sum=',sum:0:5);
writeln('2/3=',2/3:0:5);
readln;
end.

Найти частичную сумму ряда

Решение

Решение

Маra
		1
	Найти частичную сумму ряда 03.11.2012, 19:52. Показов 1267. Ответов 3 Метки нет (Все метки) очень прошу, помогите решить частичную сумму ряда 1-1/2+1/4-1/8... ряд сходится к значению 2/3, просто в школе информатике вообще не было, а в институте задали решить, буду очень благодарна)

	04.11.2012, 10:00