[Shiza]

блок-схема.jpg
собственно по этой блок-схеме необходимо решить задачу.

у меня получилось так?

Код:

 var
  Form1: TForm1;

i,n:integer;
 z : extended;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text=''then showMessage ('Error') else
begin
z:=0;
edit1.Text:=inttostr(n);
 for i:=1 to n do
z:=z+((-1)*ln(i))*(((x*i)*ln(i))/i);
  begin
 if  (z>n) then edit2.Text:=inttostr(z)
   else  edit2.Text:=strtoint(n)
   end;
  end;
 end;

Админ: Пользуемся тегами для оформления кода!

неработает

[Shiza]

Уважаемый Админ знать бы как ими пользоваться

[Sky.NET]

Болок-схема точная?

[Shiza]

не факт, но хотелось бы верить.

вероятнее что z=сумма+(-1).....

[Sky.NET]

Немного не точная блок-схема, некоторых элементов не хватает. Но если я правильно понял, то код следующий:

Код:

var
  i, n, x: integer;
  z: extended;
begin
  i := 1;
  z := 0;
  n := StrToInt(Edit1.text);
  x := StrToInt(Edit2.text);
  repeat
    z := z + ((-1) * ln(i)) * (((x * i) * ln(i)) / i);
    inc(i);
  until i > n;
  Edit3.text := FloatToStr(z);
end;

[Shiza]

Большое спасибо! Вполне устраивает

[icWasya]

А причём тут логарифм?