Delphi 7. задача - Вычислить a(a-n)(a-n)(a-2n)...(a-n^2)

[Phill]

Уважаемые знатоки Delphi, прошу вас обьяснить как решается задача типа: Даны действительное число а, натуральное число n. Вычислить a(a-n)(a-n)(a-2n)...(a-n^2)
Просто я в математики не силен и не имею представления как решить, помогите плз.

[Stilet]

Чет малопонятная задача... Поясни ка формулу.

[Phill]

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

Чет малопонятная задача... Поясни ка формулу.

В этом и проблема, я сам формулу не знаю, из-за этого и решить не могу

[Serge_Bliznykov]

Фил, поймите, что формула в том виде, в каком Вы её привели - не последовательна!!!
что скрывается за тремя точками?...
ещё раз ВНИМАТЕЛЬНО! перечитайте условие задачи... или переспросите у преподавателя...
Кстати, если выкинуть вторые скобки, тогда становится лучше (понятнее):
a*(a-n)*(a-2*n)*(a-3*n)*...*(a-n^2)

[Phill]

за тремя точками скрывается типа (и т.д.), условие задачи точ в точ как я описал. И вы правильно поставили * (умножение), оно там и должно стоять.

[evg_m]

иткак формула определена

(a-0*n) (a-1*n) (a-2*n) .. (a-(n-1)*n) (a-n*n)

поэтому result:=result * (a-k*n) , где k мнняется от 0 до n.
оформляем в виде цикла и ...

[Phill]

Поговорил в преподавателем, он обьяснил формулу к этой задаче:
n=1 S1 a(a-n)
n=2 S2 a(a-n)(a-2n)
n=3 S2*(a-3n)
n=4 S3*(a-4n)

S=S*(a-i*n)

Вот только не могу это применить в Delphi 7
Обьясните пожалйста как.

[Plague]

так устроит?

s:=a;
for i:=1 to n do
s:=s*(a-i*n);

[Phill]

Чет ни как не могу найти ошибку, что я не учел?

procedure TForm1.Button1Click(Sender: TObject);
var i,s,a:real;n:integer;
begin
a:=strtoint(edit1.Text);
n:=strtoint(edit2.Text);
s:=a;
for i:=1 to n do
begin
s:=s*(a-i*n);
end;
label1.Caption:=floattostr(s)
end;

end.

Выделеное красным: На это он ругается

[Airou]

var i:real;

А зачем луповую переменную делать real? Ставь integer.