Задача с циклом

[POPOV]

Есть задача (точнее её часть):

y=x^1+x^2+x^3+x^4+...x^n

Вообщем проблема в том, что не понимаю какой цикл использовать... или как им пользоваться.

Вроде бы for должен использоваться. Подскажите хоть алгоритм пожалуйста.

[B_N]

var
i : integer;
x, y, tmp : double;
..........
..........
y := 0;
x := 12345; { или нужное значение }
tmp := 1;
for i:= 1 to n do begin
tmp := tmp * x;
y := y + tmp;
end;
.............
.............

[Domovoy]

хммм предложу ка свой вариант

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  x,sum:real;
begin
  x:=2;
  sum:=0;
  for i:=1 to 10 do
  begin
    sum:=sum+Power(x,i);
  end;
  ShowMessageFmt('%f',[sum])

и не забываем про uses ... math;

[WOLFak]

ВОПРОСИК НАВЕРНО НЕ ПО ТЕМЕ x^3 - ЗНАЧИТ СТЕПЕНЬ? ЕСЛИ ДА ТО ТОГДА Я ЭТО СМОГУ СДЕЛАТЬ )

[POPOV]

Да, это степень.

Первый вариант не прокатывает, во втором вообще программного кода не понимаю.. Блин задача не сложна, а всю голову сломал уже.

[Yurk@]

Если я верно понял, то

var
i,x,y,a:integer;
begin
y:=0;
x:=1;
for i:=1 to 3 do
begin
  for a:=1 to i do
  x:=x*i;
y:=y+x;
end;

[POPOV]

Количество повторений (n) задаётся с клавиатуры. Переменная X тоже задаётся с клавиатуры.

[Карась]

Во втором посте нормальный дан пример..
Покажите, что вы состряпали... Задача то ерундовая...

[POPOV]

Всё, пример действительно правильный, это я выводил в конце значение не из той переменной )

Всем спасибо !

[POPOV]

Ребят, помогите пожалуйста теперь на примере вот этой задачи разобраться как работает этот цикл. Вот скока учусь, не понимаю как работают эти циклы хоть убейте. Вот например как тут меняются значения в переменных внутри цикла в каждом такте ?