Delphi7. Циклы

[Tony Hudson]

Добрый день. Нужно вычислить выражение с помощью операторов цикла while и for. При вычислении у меня результаты не сходятся, в чем может быть ошибка, и в общее я правильно вычисляю данное выражение?

var
  Form1: TForm1;
  x,S:real;
  i:integer;


procedure TForm1.Button1Click(Sender: TObject);
begin
 S:=1; x:=1;
for i := 1 to 15 do
 begin
   S:=x*x*x*s;
   x:=x+0.2;
  Label1.Caption:=FloatToStr(s);
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
 S:=1; x:=1;
while x<15 do

 begin
   S:=x*x*x*s;
   x:=x+0.2;
  Label2.Caption:=FloatToStr(s);
 end;
end;


end.

[type_Oleg]

Сообщение от Tony Hudson

... не сходятся, ...

 while x<15 do

Не сходятся, потому что < . Надо <=

[Tony Hudson]

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

Не сходятся, потому что < . Надо <=

Да так тоже не сходится. Вот что выдает

[type_Oleg]

Я сам только заметил

while x<=15 do

- при чем здесь x?
Надо же 15 раз, а не x<=15...

PS И 2 вопроса.
- почему Label2.Caption:=FloatToStr(s); - в цикле? Зачем его выполнять 15 раз? Все равно же ничего не разглядите.
- зачем результат выводить в Caption? Неудобно же, например скопировать невозможно. Лучше в Edit

[Tony Hudson]

[QUOTE=type_Oleg;1480458]Я сам только заметил

while x<=15 do

- при чем здесь x?
Надо же 15 раз, а не x<=15...

Так как исправить?

[Artsiom]

var 
 i : integer;
begin
 .......
 i := 1;
 while i<=15 do
   begin
    ....
   
    ....
    inc(i);
   end;
end;

Так?

[Tony Hudson]

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

var 
 i : integer;
begin
 .......
 i := 1;
 while i<=15 do
   begin
    ....
   
    ....
    inc(i);
   end;
end;

Так?

Да, спасибо тебе БОЛЬШОЕ!!)