С использованием цикла REPEAT.

[Ken_Watanabe]

Общая часть должна быть к примеру ak=1/(k2+3) , найти первый шаг часть n и найти их суммы (k=1, 2, …, n).
с использованием цикла REPEAT. нужен код в делфи решить на форме и блок схемму.

[Stilet]

Код может выглядеть так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
const n=10;
  var k:integer;
    x,sum:double;
begin
  k:=0;
  repeat
   x:=1/(k*2+3); sum:=sum+x;
   Memo1.Lines.Append(format('%5.2f',[x]));
   inc(k);
  until k=n;
  Memo1.Lines.Append(#13#10+format('%5.2f',[sum]));
end;

end.

Только не копипасти, предупреждаю - всю малину испортишь. Лучше изучи его и примени в своей программе.

[Ken_Watanabe]

Здраствуйте нужен код в делфи на форме и если можно блок схемму.

Вот само задание http://fotohost.kz/image/TX решит в делфи с использованием Repeat на форме


в 1-ом цикле http://fotohost.kz/image/TE примерно так как я понял... В общем помогите написать код в делфи на форме. Спасибо за ранее