Delphi 7: формула суммы

[Guest]

Добрый вечер!
У меня совершенно детсадовский вопрос
Вот эта формула суммы

в Дельфи будет высчитываться как:

for n:=1 to M do begin
S:=M/(sqr(n));
Label6.Caption:=FloatToStr(S);
end;

или как-то по-другому? В школе я делала сумму натуральных чисел от 1 до n, а вот по формуле ни разу не делала...

 

[Guest]

S:=M/(sqr(n));
for n:=1 to M do begin
S:=S+(M/(sqr(n)));
Label6.Caption:=FloatToStr(S);
end;

А так?

 

[Dock1100]

Так, только правильней писать так

S:=0; // S:=M/(sqr(n)); єто не совсем правильно, поскольку значение n может быть какое угодно, а n с значением 1 вы находите в цикле
for n:=1 to M do begin
S:=S+(M/(sqr(n)));
Label6.Caption:=FloatToStr(S);
end;

 

[Guest]

Спасибо

 

[Dock1100]

Dock1100 Не все поправили.

М - задается программно и не меняется
а Label6.Caption:=FloatToStr(S); каждый раз можно и не менять а вывести только конечный S, просто если прога заглучить будет видно где примерно произошла ошыбка, хотя если учитывать скорость то вы правы.

S:=0;
for n:=1 to M do begin
S:=S+(M/(sqr(n)));
end;
Label6.Caption:=FloatToStr(S);