Циклы в Pascal

[Кара]

Прошу помощи!Я новичок в этом деле!

Вычислить сумму членов бесконечного ряда с точностью до члена ряда, меньшего ε=0,001 при заданных значениях Х.
Y=X-(x^3)/3!+(X^5)/5!-(X^7)/7!+...-...+...до бесконечности.
При Х изменяющемся от 0,2 до 1 с шагом 0,1

Как это решить? Помогите!

[ОДИНОЧЕСТВО В СЕТИ]

писалось в блокноте!!!

var arg,res:real;
function Fac(n: Word): LongInt; 
begin 
if n > 1 then 
 Fac := n * Fac(n-1) 
else 
 Fac := 1; 
end; 
function stepen(f:real;n:integer): real;
begin
if n=0
then stepen:=1
else
stepen:=f*stepen(n-1,f);
end;
function ryad(x:real):real;
var k:integer;
    ch:real;
begin
ryad:=0;
ch:=1;
k:=0;
while ch>0.001 do 
begin
ch:=stepen(-1,k)*stepen(x,2*k+1)/fac(2*k+1);
ryad:=ryad+ch;
inc(k);
end;
end;
begin
arg:=0.2;
repeat 
res:=ryad(arg);
writeln(res:6:3,'     ',arg:6:3);
arg:=arg+0.1;
until arg>1
readln;
end.

[bpystep]

Вот твой вариант в графической энтерпритации.

uses graph,crt;

function y(x:real):real;
var rez,a,eps:real;
k:integer;
begin
a:=x;
k:=1;
rez:=0;
while a>=eps do
 begin
 rez:=rez + a;
 inc(k,2);
 a:=(a^(2*k-1)/((2*k-1)*(2k+1));
 end;
y:=rez;
end;

var
 graphdriver,
 graphmode:integer;
 ix2,b,eps:real;
 ix,iy,ix1,iy2,xk,xn,i:integer;
 ErrorCode:integer;

procedure MyGraphInit;
begin
write(' x íà÷àëüíîå       = ');readln(xn);
write(' x êîíå÷íîå        = ');readln(xk);
write(' Ââåäèòå åïñèëîí   = ');readln(eps);
 GraphDriver:=Detect;
 InitGraph(GraphDriver,GraphMode, '');
 ErrorCode:=GraphResult;
 if ErrorCode <> grOk then
 begin
  writeln('InitGraph Error: ',GraphErrorMsg(ErrorCode));
  Writeln('Program is aborted!');
  Halt(1);
 end;
end;

begin
 clrscr;
 MyGraphInit;
{--------Âûâîä êîîðäèíàòíûõ îñåé----------}
 setlinestyle (solidln, 0, normwidth);
 line(100,450,100,50);
 line(50,400,600,400);
 line(100,50,95,65);
 line(100,50,105,65);
 line(600,400,580,395);
 line(600,400,580,405);

 outtextxy(90,410,'0');
 outtextxy(87,375,'1');
 outtextxy(87,275,'5');
 outtextxy(80,150,'10');
 outtextxy(80,60,'Y');

 line(95,375,105,375);
 line(95,350,105,350);
 line(95,325,105,325);
 line(95,300,105,300);
 line(95,275,105,275);
 line(95,250,105,250);
 line(95,225,105,225);
 line(95,200,105,200);
 line(95,175,105,175);
 line(95,150,105,150);

 outtextxy(150,405,'1');
 line(150,395,150,405);
 outtextxy(200,405,'2');
 line(200,395,200,405);
 outtextxy(250,405,'3');
 line(250,395,250,405);
 outtextxy(300,405,'4');
 line(300,395,300,405);
 outtextxy(350,405,'5');
 line(350,395,350,405);
 outtextxy(400,405,'6');
 line(400,395,400,405);
 outtextxy(450,405,'7');
 line(450,395,450,405);
 outtextxy(500,405,'8');
 line(500,395,500,405);
 outtextxy(550,405,'9');
 line(550,395,550,405);
 outtextxy(590,415,'X');

 ix :=0;
 iy :=0;
 iy2:=0;
{-------Âûâîä ãðàôèêà y ------------}
 for i:=0 to 640 do
  begin
  ix2:=i/20-2;
  if (abs(ix2)>1)and(ix2>xn)and(ix2<xk) then
   begin
   iy := round(400 - 25*y(ix2));
   putpixel(round(100 + 50*ix2),iy,20);
   end;
  end;
readln;
closegraph;
end.