из кода в алгоритм

[NSvirus]

Из небольшой программки по Паскалю, можете помочь составить алгоритм?

[Sm1Le]

Дай подумать .....ну .... наверно ....А ты как думаешь ? (Код выложи ...)

[NSvirus]

PROGRAM Laba1;

uses crt;
const e=0.0001;

var n, s, i, sign: integer;
f, sk, x, fa, m:real;
st, y, p, z:real;

begin
clrscr; writeln;
f:=0; x:=1; p:=0; m:=0;

REPEAT
fa:=1; sk:=0; s:=1; st:=1; sign:=1;

Repeat
p:=m;
m:=sign*st/fa;
sk:=sk+m;
sign:=-sign;
fa:=fa*(s+1)*(s+2);
s:=s+2;

Until abs(m-p)<e;

y:=1; z:=x*x+10;
repeat
y:=0.2*(z/(y*y*y*y)-y)+y;
until abs((y*y*y*y*y)-z)<e;

f:=sk*y;

WRITELN(' x=',x:3:1,' , y=',f:8:4,' ');
x:=x+0.2;
UNTIL x>2.1;
readln;
end.