Найти сумму ряда S с точностью до члена ряда, по абсолютной величине меньшего eps

@Vlad26 · Регистрация: 07.12.2010

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

найти сумму ряда S с точностью до члена ряда, по абсолютной величине меньшего eps = 0.0001.
в чем ошибка почему не работает? (способ с постусловием)

Pascal

uses crt;       
const x=-0.4;   
var n:integer;  
a,s,y:real;     
begin           
    repeat a:= exp((2*n-1)*ln(x))/(2*n-1);
    s:=s+a;     
    writeln(‘pri n=’,n,’ a=’,a:8:6,’ s=’,s:8:6);
    n:=n+1; 
    until a<0.0001; 
    writeln(‘cherez n-1 shaga a=’,a:8:6,’<0.0001’); 
    writeln;
    writeln(‘y=’,y:8:6,’s=’,s:8:6);
writeln(‘abs(y-s)=’, abs(y-s):8:6);
if y>s then 
writeln(‘y>s’)  
if y<s then 
writeln(‘y<s’)  
else writeln(‘y=s’);
readkey;
end.

@versa4e · 08.12.2010, 19:09

s,n не имеют начальных значений.

@Vlad26 · 08.12.2010, 19:11 **[ТС]**

а какие?

@versa4e · 08.12.2010, 19:18

сумму обнулить, а n:=1.

@Vlad26 · 08.12.2010, 19:19 **[ТС]**

почему?

@versa4e · 08.12.2010, 19:22

сумму обнулять, чтобы не влияло на результат, а n=1 значит 1 член ряда.

@Vlad26 · 08.12.2010, 19:24 **[ТС]**

Pascal

n:=1;   
s:=0;   
a:=exp(2*n-1);  
while abs(a)<0.0001 do

то есть еще вот так добавить да?

@versa4e · 08.12.2010, 19:27

а:= не нужно, та же ее инициализируешь присваиванием в цикле.

@Vlad26 · 08.12.2010, 20:52 **[ТС]**

Pascal

uses crt; 
const x=-0.4; 
var n:integer; 
a,s,y:real; 
begin 
n:=1;
s:=0;
begin
repeat a:= exp((2*n-1)*ln(x))/(2*n-1);
s:=s+a; 
writeln(‘pri n=’,n,’ a=’,a:8:6,’ s=’,s:8:6);
n:=n+1; 
until a<0.0001; 
writeln(‘cherez n-1 shaga a=’,a:8:6,’<0.0001’); 
writeln;
writeln(‘y=’,y:8:6,’s=’,s:8:6);
writeln(‘abs(y-s)=’, abs(y-s):8:6);
if y>s then 
writeln(‘y>s’) 
if y<s then 
writeln(‘y<s’) 
else writeln(‘y=s’);
readkey;
end.

все равно выдает ошибку 207!

Добавлено через 9 минут
а где вставить начальные значения?

Добавлено через 1 час 11 минут
?????

@~~pavelr~~ · 08.12.2010, 20:59

Ну и бред...рекуррентную формулу надо использовать

@Vlad26 · 08.12.2010, 21:02 **[ТС]**

как????

@versa4e trainspotting 1086 / 486 / 384 Регистрация: 11.11.2010 Сообщений: 773
	08.12.2010, 19:09	2
	s,n не имеют начальных значений. 0

@Vlad26 2 / 2 / 0 Регистрация: 07.12.2010 Сообщений: 31
	08.12.2010, 19:11 [ТС]	3
	а какие? 0

@versa4e trainspotting 1086 / 486 / 384 Регистрация: 11.11.2010 Сообщений: 773
	08.12.2010, 19:18	4
	сумму обнулить, а n:=1. 0

@Vlad26 2 / 2 / 0 Регистрация: 07.12.2010 Сообщений: 31
	08.12.2010, 19:19 [ТС]	5
	почему? 0

@versa4e trainspotting 1086 / 486 / 384 Регистрация: 11.11.2010 Сообщений: 773
	08.12.2010, 19:22	6
	сумму обнулять, чтобы не влияло на результат, а n=1 значит 1 член ряда. 0

@versa4e trainspotting 1086 / 486 / 384 Регистрация: 11.11.2010 Сообщений: 773
	08.12.2010, 19:27	8
	а:= не нужно, та же ее инициализируешь присваиванием в цикле. 0

@~~pavelr~~ Заблокирован
	08.12.2010, 20:59	10
	Ну и бред...рекуррентную формулу надо использовать 0

@Vlad26 2 / 2 / 0 Регистрация: 07.12.2010 Сообщений: 31
	08.12.2010, 21:02 [ТС]	11
	как???? 0

Опции темы