• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

Guest

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

Guest

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

А так? :)
 
D

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;
 
D

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);
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!