программа с циклом (DELPHI)

[ангелинна]

Прошу помочь найти ошибку в коде,цикл не идет,программа делает первый шаг и все..
Задание:таблицу значений функции Y(x) и ее разложения в ряд S(x) для значений x от xn до xk с шагом h= (xk-xn)/n

решение(основной код)

procedure TForm1.Button1Click(Sender: TObject);
 var
 xn,xk,x,h,c,s,y,al,del:Extended;
 n,k:Integer;

begin
 n:=StrToInt(SpinEdit1.Text);
 xn:=StrToFloat(Edit1.Text);
 xk:=StrToFloat(Edit2.Text);
 if CheckBox1.Checked then
  Memo1.Lines.Add('n='+IntToStr(n)+
  ' Xn='+FloatToStrF(xn,ffFixed,6,1)+
  'Xk='+FloatToStrF(xk,ffFixed,6,1));
  h:=(xk-xn)/10 ; //h
  x:=xn;
 repeat  x:=xk+h;
  c:=x;
 S:=x;
 for k:=1 to n do
 begin
 c:=-c*x*x/(2*k*(2*k+1));
 s:=s+c;
 end;
 y:=Sin(x);

[denisbrain]

Сообщение от ангелинна

Прошу помочь найти ошибку в коде,цикл не идет,программа делает первый шаг и все..
Задание:таблицу значений функции Y(x) и ее разложения в ряд S(x) для значений x от xn до xk с шагом h= (xk-xn)/n

решение(основной код)

[CODE]
procedure TForm1.Button1Click(Sender: TObject);
var
xn,xk,x,h,c,s,y,al,del:Extended;
n,k:Integer;

begin
n:=StrToInt(SpinEdit1.Text);
xn:=StrToFloat(Edit1.Text);
xk:=StrToFloat(Edit2.Text);
if CheckBox1.Checked then
Memo1.Lines.Add('n='+IntToStr(n)+
' Xn='+FloatToStrF(xn,ffFixed,6,1)+
'Xk='+FloatToStrF(xk,ffFixed,6,1));
h:=(xk-xn)/10 ; //h
x:=xn;
repeat x:=xk+h;
c:=x;
S:=x;
for k:=1 to n do
begin
c:=-c*x*x/(2*k*(2*k+1));
s:=s+c;
end;
y:=Sin(x);
[CODE/]

опубликовал решение в своем блоге
Расчет Sin(x) через факториал
Исходник Pascal/Delphi
можно скачать с сайта
http://netsoftware.ucoz.ru/publ/raschet_sin_x_cherez_formuly_faktor iala/1-1-0-8
или вложение

[ангелинна]

спасибо,Денис! если что обращусь