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

[СвоЕобразнаЯ]

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

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

Код:

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

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

[Sla]

Первокурсница, правильно
только не забудь проинициализировать S перед циклом

[zubr]

Правильно так:

Код:

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

[Sla]

можно и так

Код:

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

ps я почему-то не увидел бегина в цикле

[СвоЕобразнаЯ]

zubr, Sla, Спасибо вам:)