Циклические алгоритмы

const n=20;//количество членов ряда
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function S(x:real):real;
var i:integer;
    t:real;
begin
result:=1; //начальное значение
t:=1;//нулевой член ряда
for i:=1 to n do //остальные
 begin
  t:=t*2*x/i;//домножаем на 2х и делим на I
  result:=result+t;//и прибавляем
 end;
end;
 
function Y(x:real):real;
begin
result:=exp(2*x);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var xn,xk,h,x:real;
    i:integer;
begin
xn:=0.1;
xk:=1;
h:=(xk-xn)/10;
StringGrid1.Cells[0,0]:='  X  ';
StringGrid1.Cells[1,0]:='  S(x)';
StringGrid1.Cells[2,0]:='  Y(x)';
StringGrid1.RowCount:=1;
x:=xn;
i:=0;
while x<=xk+h do
 begin
  i:=i+1;
  StringGrid1.RowCount:=i;
  StringGrid1.Cells[0,i]:=FloatToStrF(x,fffixed,5,2);
  StringGrid1.Cells[1,i]:=FloatToStrF(S(x),fffixed,6,3);
  StringGrid1.Cells[2,i]:=FloatToStrF(Y(x),fffixed,6,3);
  x:=x+h;
 end;
 
end;