Цикл: Исчисление суммы элементов заданного ряда...

var
Form1:TForm1;
a,k:real;
i,n,y:variant;
function exp(a) (a:real):real;
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.(tems.Add(FloatToStr(1/k));
k:=k*10;
end;
StringGrid1.Cells[0,0]:='Аргумент';
StringGrid1.Cells[1,0]:='Cума';
StringGrid1.Cells[2,0]:='Функция';
StringGrid1.Cells[3,0]:='Точность';
end;
procedure TForm1.ComboBox1Change(Sender:TObject);
begin
Label5.Caption:=ComboBox1.Text;
end;
function exp(a)(a:real):real;
begin
Result:=cos(a)+sin(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;
n: integer;
begin
k:=StrToFloat(ComboBox1.Text);
n:=0;
u:=1:
Sum:=u;
repeat
n:=n+1;
u:=(u*a)/n;
Sum:=(Sum+u);
until abs(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',exp(a));
StringGrid1.Cells[3,y]:=FormatFloat('0.000',k);
end;
end.

function exp(a)(a:real):real;
begin
  Result:=cos(a)+sin(a);
end;