Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Delphi 7: формула суммы  (Прочитано 6372 раз)
0 Пользователей и 1 Гость смотрят эту тему.
СвоЕобразнаЯ
Участник

ru
Offline Offline

« : 25-03-2010 16:24 » new

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

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

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

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

* F.png (2.58 Кб - загружено 937 раз.)
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 25-03-2010 17:33 » 

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

Мы все учились понемногу... Чему-нибудь и как-нибудь.
zubr
Модератор

by
Offline Offline
Пол: Мужской

« Ответ #2 : 25-03-2010 17:44 » 

Правильно так:
Код:
S := 0;
for n:=1 to M do begin
S:=S + M/(sqr(n));
end;
Label6.Caption:=FloatToStr(S);
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 25-03-2010 17:58 » 

можно и так
Код:
S := 0;
for n:=1 to M do S:=S + M/(sqr(n));
Label6.Caption:=FloatToStr(S);

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

Мы все учились понемногу... Чему-нибудь и как-нибудь.
СвоЕобразнаЯ
Участник

ru
Offline Offline

« Ответ #4 : 25-03-2010 19:17 » 

zubr, Sla, Спасибо вам:)
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines