[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]

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

[Sky.NET]

Ну это уже как автор знает математику

[Shiza]

если верить интернету и руководству по Делфи, то в степень на языке делфи возводится через логарифм.

[v1s2222]

Вообще в делфи есть процедурка возведения в степень - Power из модуля Math. То бишь: 2^3: Math.Power(2, 3).
А вообще: a^b=e^(b*ln(a))=exp(b*ln(a)).
А вообще почитай статейку: http://ru.wikipedia.org/wiki/%D0%92%...%D 0%BD%D1%8C

[Shiza]

Благодарю!

[Shiza]

эх.. видимо мне не дано это сделать.

[Shiza]

подправила непосредственно уравнение руководствуясь

Сообщение от v1s2222

a^b=e^(b*ln(a))=exp(b*ln(a))

z:=(exp(i*ln((-1))))*((x*exp(i*ln(i)))/i);

но где-то намудрила, выдает ошибку: "invalid floating point operation" (нетрудоспособное действие плавающей точки)

[woc131]

Попробуй поменять типы переменных в Var.
Думаю ругается т.к. какое-то из действий нельзя производить с типом extended, или из-за несовместимости типов и тп.

[Sky.NET]

Сообщение от Shiza

z:=(exp(i*ln((-1))))*((x*exp(i*ln(i)))/i);

Зачем так много скобок?
z := z + exp(i * ln(-1)) * (exp(i * ln(x * i))/i); // если (xi)^i
или
z := z + exp(i * ln(-1)) * (x * exp(i * ln(i))/i); // если x* i^i

И ln(-1) калькуляторы не посчитают. Это комплексный логарифм. Поэтому и ошибка.
Подробнее в Википедии.