Delphi7. Циклы

[Tony Hudson]

Добрый вечер.Необходимо вычислить пример:


160x32(2.44 kB)
Фотохостинг

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

implementation

{$R *.dfm}

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;

end.

На калькуляторы подсчитал и ответ не сходиться, в чем может быть ошибка?

[challengerr]

зачем x в кубе домножаете на i? Это вроде бы не требуется, так как i это на картинке индекс

[type_Oleg]

.. и кроме того:
1) Вам надо посчитать произведение, а зачем вы суммируете ... +s;?
2) Если произведение, то начинать надо S:=1;
3) Зачем 15 раз выводить промежуточные результаты? Выньте вывод из цикла.

[Tony Hudson]

Все спасибо разобрался!)

[type_Oleg]

Но все же

Label1.Caption:=FloatToStr(s);

перенесите из цикла. Хоть это и не влияет на результат и внешне ничего не меняет, но дело принципа. Преподу может не понравиться, что лишние бесполезные действия.
Между end; и end; это поставьте.