Разобрался с while и repeat. Как оформить вывод строки в Memo этой суммы бесконечного ряда +2 и что сделать что б колличество знаков выводилось согласно eps?
вот код куска программы:
procedure TfrmWhileRepeat.Button2Click(Sender: TObject);
var u,sum,eps:real; i:integer; s:string;
begin
Memo1.Clear;
eps:=strtofloat(edtEps2.Text);
u:=1/2;
sum:=1/2;
i:=1;
while u>eps do
begin
i:=i+1;
u:=u/(i+1);
sum:=sum+u;
if CheckSteps.Checked then
begin
s:=format('%10.7f %10.7f',[u,sum]);
Memo1.Lines.Add(s);
end;
end;
sum:=2+sum;
edtResult2.Text:=floattostr(sum);
edtControl2.Text:=floattostr(exp(1));
end; Вот картинка в которой наглядно описана просьба о помощи написания вывода в Memo
Добавлено (05.11.2010, 19:13)
---------------------------------------------
Разобрался с этим делом, если надо выложить код, то пишите
