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

  • Автор темы -
  • Дата начала
Статус
Закрыто для дальнейших ответов.

Гость
#1
Добрый вечер!
У меня совершенно детсадовский вопрос :oops:
Вот эта формула суммы
F.png
в Дельфи будет высчитываться как:
Код:
for n:=1 to M do begin
S:=M/(sqr(n));
Label6.Caption:=FloatToStr(S);
end;
или как-то по-другому? В школе я делала сумму натуральных чисел от 1 до n, а вот по формуле ни разу не делала... :)
 

Гость
#2
Код:
S:=M/(sqr(n));
for n:=1 to M do begin
S:=S+(M/(sqr(n)));
Label6.Caption:=FloatToStr(S);
end;
А так? :)
 
09.11.2009
665
1
#3
Так, только правильней писать так
Код:
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;
 
09.11.2009
665
1
#5
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);
 
Статус
Закрыто для дальнейших ответов.