Итерационные циклы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Math;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    ScrollBar1: TScrollBar;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    ButtonExit: TButton;
    procedure ButtonExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a,k:real;
  i,n,y:variant;
  function ch(a:real):real;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ButtonExitClick(Sender: TObject);
begin
     Form1.Close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
y:=0;
Label3.Caption:=FloatToStr(a);
Label5.Caption:=ComboBox1.Text;
k:=10;
     while k<=10000 do
begin
ComboBox1.Items.Add(FloatToStr(1/k));
k:=k*10;
    end;
 StringGrid1.Cells[0,0]:= 'Аргумент';
 StringGrid1.Cells[1,0]:= 'Сума';
 StringGrid1.Cells[2,0]:= 'Функція';
 StringGrid1.Cells[3,0]:= 'Точність';
 
     end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
label5.Caption:=ComboBox1.Text;
    end;
 
function ch(a:real):real;
begin
Result:=cosh(a);
end;
 
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
a:=ScrollBar1.Position/100;
Label3.Caption:=FloatTostr(a);
 
     end;
 
procedure TForm1.Button1Click(Sender: TObject);
var Sum,u:real;
begin
     k:=StrToFloat(ComboBox1.Text);
     u:=a;
     n:=1;
     Sum:=a;
     repeat
        begin
      u:=u*((sqr(a))/(2*n*(2*n-1)));
      Sum:=(Sum+u);
      n:=n+1;
      end;
until ( u < k);
y:=y+1;
StringGrid1.Cells[0,y]:=FormatFloat('0.000',a);
StringGrid1.Cells[1,y]:=FormatFloat('0.000',Sum);
StringGrid1.Cells[2,y]:=FormatFloat('0.000',ch(a));
StringGrid1.Cells[3,y]:=FormatFloat('0.0000',k);
       end;
 
end.

function ch(a:real):real;
begin
Result:=(exp(a)+exp(-a))/2;//такая функция
end;

procedure TForm1.Button1Click(Sender: TObject);
var Sum,u:real;
    n:integer;
begin
k:=StrToFloat(ComboBox1.Text);
n:=0; //нулевой член ряда
u:=1;
Sum:=u;
repeat
n:=n+1;
u:=u*sqr(a)/(2*n*(2*n-1)));
Sum:=(Sum+u);
until abs(u)<=k;
y:=y+1;
StringGrid1.Cells[0,y]:=FormatFloat('0.000',ch(a));
StringGrid1.Cells[1,y]:=FormatFloat('0.000',Sum);
StringGrid1.Cells[2,y]:=FormatFloat('0.000',ch(a));
StringGrid1.Cells[3,y]:=FormatFloat('0.0000',k);
end;