Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Рекурсия (Ряд)

Автор: DarkNort 13.4.2006, 12:27

В общем не могу понять как сделать програмку на паскале, ну знаю как просщитать
вот вроде намутил а вробе не так...

Код


program fiveDouble;
uses crt;
var
z,a,x,s,eps:real;
i:integer;
begin
clrscr;
write ('x=');       readln(x);
write ('epsilon='); readln(eps);
a:=1;
s:=0;                  {summa ryada = 0    }
i:=0;                  {}
while abs (a)>eps do   {poka modul' a>eps }
begin                  {budem delat'       }
s:=s+a;                {}
i:=i+2;                {}
z:=z*(z-1);            {}
a:=a*x/z               {}
end;
writeln ('Ccyma PyaDa= ', s:10:4);
end.

Я прикрепляю как должно быть...

Спасибо заранее!

Автор: nikitao 13.4.2006, 20:26

DarkNort, Вот программа реализующая очень схожую задачу:

Код


VAR
X,Y,S:REAL;
I:INTEGER;
BEGIN
 WRITE('Введите x ');
 READLN(X);
 S:=X;
 Y:=X;
 I:=2;
 WHILE (Y>0.000001) DO
 BEGIN
  Y:=-1*Y*X*X/(I*(I+1));
  S:=S+Y;
  I:=I+2;
 END;
 WRITELN('ЂҐ§Г«МВ В: ',S);
 READLN;
END.

Думаю,что дальше ты сам справешься smile