O:=D^N

[nadyaH]

т.е. d в степени N. как записать эту фразу в делфи?

O:=D^N

[SaLoKiN]

O:=Power(D,N)

или

O:= exp(ln(D) * N)

кстати уже обсуждалось тут

[Serge_Bliznykov]

например, так.
в uses добавляем библиотеку Math

и в коде используем фукнцию Power():

O := Power(D, N);

SaLoKiN, опередил...

[SaLoKiN]

Serge_Bliznykov скучно на работе, вот и сижу тут))

[nadyaH]

VAR
D:integer;
O,p:extended;
N:integer;
i:INTEGER;
begin
N:=STRTOint(EDIT1.Text);
D:=0;
D:=D+1;
IF N>0 THEN O:= exp(ln(D) * N);
            P:=0+O;
FOR I:=N TO N>=2 DO D:=D+1;
                    N:=N-1;
                    O:= exp(ln(D) * N);
                    P:=O;
end;
EDIT2.TEXT:=INTTOSTR(P);

end.

[Serge_Bliznykov]

запуталась

сочувствую.

во-первых. Какую задачу решаем в этот раз?

во-вторых, чем функция Power() Вас не устроила?

в-третьих,

D:=0;
D:=D+1;

бессмыслено, пишите сразу

D:=1;

в четвёртых,

FOR I:=N TO N>=2

это что за ужас?!!

[nadyaH]

Дано целое число N (>0). Найти сумму 1^N + 2^(N−1) + ... + N^1. Чтобы избежать целочисленного переполнения, вычислять слагаемые этой суммы с помощью вещественной переменной и выводить результат как вещественное число.

[Serge_Bliznykov]

я же не спец в прграмировании =(

заметно...

var
  Sum : extended;
  N : integer;
  i : integer;
begin
  N := StrToInt(Edit1.Text);
  if N<=0 then begin
    ShowMessage('Недопустимое значение N (должно быть натуральное число, N > 0)!');
    Exit;
  end;
  Sum := 1;
  for i:=2 to N do
     Sum := Sum + Power(i,N+1-i);
  Edit2.Text := FloatToStr(sum);
end;

[nadyaH]

Sum : extended;
ShowMessage
 Sum := Sum + Power(i,N+1-i)

объясните пожалуйста что значить выше написанное.

[Stilet]

Sum : extended; - описание переменной Sum, вещественной. Размер ее 80 бит. Самое максимальное для сегодняшних процессоров 32-х разрядных.
ShowMessage - функция, которая сообщение на экран выводит.
Sum := Sum + Power(i,N+1-i) - выражение. которое увеличивает сумму на i в степени N+1-i