Паскаль вывод суммы кубов

[gennadii]

Здравствуйте уважаемые форумчане! У меня возник вопрос, что-то никак не догоню, как сделать так, чтобы сумма кубов в этой программе, выводилась один раз в самом конце? Похоже конкретно туплю, но всё же, в условии конкретно сказано, найти сумму кубов чисел от 25 до 55? вот программа:

Program kubi;
Uses crt;
Var
  x,sum:real;
  i:longint;
Begin
  clrscr;
  sum:=0;
  for i:=25 to 55 do begin
    x:=(exp(3*ln(i)));
    Writeln('kub ',i,' = ',x:8:2);
    Writeln;
    sum:=sum+x;
    Writeln('summa kubov = ',sum:8:2);
    end;
    Readkey;
End.

[Serge_Bliznykov]

всё что нужно выполнять в цикле, пишем внутри цикла, всё, что нужно выполнять после цикла - выносим из цикла за его окончание.

сравните со своим кодом:

  for i:=25 to 55 do begin
    x:=(exp(3*ln(i)));
    Writeln('kub ',i,' = ',x:8:2);
    Writeln;
    sum:=sum+x;
  end;
  Writeln('summa kubov = ',sum:8:2);  
  Readkey;
end.

это раз. второе.

Вам не кажется, что куб целого числа будет ЦЕЛЫМ числом?
Зачем Вы используете для него вещественный тип данных, да ещё и выводите два знака после запятой?
Ну и последнее. не понимаю, зачем в данном случае использовать теорему логарифмов?
разве так не проще?
x := i * i * i;

[gennadii]

Program kubi;
Uses crt;
Var
  x,sum,i:longint;
Begin
  clrscr;
  sum:=0;
  for i:=25 to 55 do begin
    x:=sqr(i)*i;
    Writeln('kub ',i,' = ',x);
    sum:=sum+x;
    end;
    Writeln('summa kubov = ',sum);
    Readkey;
End.

Согласен, так лучше, но там в задание (exp(n*ln(x))) нужна, изгаляются! Но вам спасибо большое, я все время путаюсь в закрытии цикла.

[Serge_Bliznykov]

Но вам спасибо большое, я все время путаюсь в закрытии цикла.

тогда ещё совет. Обратите внимание на то, как отформатирован мой код.
"лесенку" видите?
то, что внутри цикла сдвигается на несколько позиций вправо. end сдвинут ровно так, как и тот оператор, где цикл начинается.
Сразу по отступу видно, что внутри цикла, а что - вне его.
особенно удобно, когда вложенность циклов (и других операторов) больше 2-х...
Рекомендую.