Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сумма с действительным и натуральным числом через For Next - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сумма с действительным и натуральным числом через For Next (Макросы/Sub)
Сумма с действительным и натуральным числом через For Next
Irina3011 Дата: Понедельник, 29.06.2015, 16:36 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Дано натуральное число N. Вычислить:
1/2+3/4+5/6+⋯+(n-1)/n^2

[vba]
Код
Sub zd_2()
Dim n As Integer, s As Single, i As Integer
n = InputBox("Ввод натурального числа N")
s = 0
'находим сумму ряда
For i = 1 To n
s = s + (n - 1) / n ^ 2
Next i
MsgBox "s = " & s
End Sub
[/vba]
Вроде правильно. А как теперь решить Вот это?
Даны действительное число а, натуральное число N. Вычислить:
a(a+1)(a+2)(a+3)…(a+N-1)


Сообщение отредактировал Irina3011 - Понедельник, 29.06.2015, 16:47
 
Ответить
СообщениеДано натуральное число N. Вычислить:
1/2+3/4+5/6+⋯+(n-1)/n^2

[vba]
Код
Sub zd_2()
Dim n As Integer, s As Single, i As Integer
n = InputBox("Ввод натурального числа N")
s = 0
'находим сумму ряда
For i = 1 To n
s = s + (n - 1) / n ^ 2
Next i
MsgBox "s = " & s
End Sub
[/vba]
Вроде правильно. А как теперь решить Вот это?
Даны действительное число а, натуральное число N. Вычислить:
a(a+1)(a+2)(a+3)…(a+N-1)
Автор - Irina3011
Дата добавления - 29.06.2015 в 16:36
Manyasha Дата: Понедельник, 29.06.2015, 17:09 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Irina3011, а что именно не получается?
n и a вводите также, через inputbox (дробные числа вводятся через запятую)
а потом
[vba]
Код
    For i = 0 To n - 1
         p = p * (a + i)
     Next i
     MsgBox "p = " & p
[/vba]
Кстати, не забудьте, что перед циклом p НЕ обнуляется (иначе p всегда будет равно 0) а приравнивается "1"

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеIrina3011, а что именно не получается?
n и a вводите также, через inputbox (дробные числа вводятся через запятую)
а потом
[vba]
Код
    For i = 0 To n - 1
         p = p * (a + i)
     Next i
     MsgBox "p = " & p
[/vba]
Кстати, не забудьте, что перед циклом p НЕ обнуляется (иначе p всегда будет равно 0) а приравнивается "1"
Автор - Manyasha
Дата добавления - 29.06.2015 в 17:09
_Boroda_ Дата: Понедельник, 29.06.2015, 17:25 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код

     n = InputBox("Ввод натурального числа N")
     a = InputBox("Ввод действительного числа a")
     s = a
     For i = 1 To n - 1
         s = s * (a + i)
     Next i
     MsgBox "s = " & s
[/vba]
Ну там еще проверка на натуральность и действительность пригодилась бы

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код

     n = InputBox("Ввод натурального числа N")
     a = InputBox("Ввод действительного числа a")
     s = a
     For i = 1 To n - 1
         s = s * (a + i)
     Next i
     MsgBox "s = " & s
[/vba]
Ну там еще проверка на натуральность и действительность пригодилась бы
Автор - _Boroda_
Дата добавления - 29.06.2015 в 17:25
Irina3011 Дата: Понедельник, 29.06.2015, 17:28 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Цитата Manyasha, 29.06.2015 в 17:09, в сообщении № 2
Кстати, не забудьте, что перед циклом p НЕ обнуляется (иначе p всегда будет равно 0) а приравнивается "1"


Вот именно об этом и забыли!!!! А точней даже не подумали. Все получилось. Спасибо огромное.
 
Ответить
Сообщение
Цитата Manyasha, 29.06.2015 в 17:09, в сообщении № 2
Кстати, не забудьте, что перед циклом p НЕ обнуляется (иначе p всегда будет равно 0) а приравнивается "1"


Вот именно об этом и забыли!!!! А точней даже не подумали. Все получилось. Спасибо огромное.
Автор - Irina3011
Дата добавления - 29.06.2015 в 17:28
Irina3011 Дата: Понедельник, 29.06.2015, 17:30 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Цитата _Boroda_, 29.06.2015 в 17:25, в сообщении № 3
s = a
    For i = 1 To n - 1
        s = s * (a + i)

А почему S=a ???
 
Ответить
Сообщение
Цитата _Boroda_, 29.06.2015 в 17:25, в сообщении № 3
s = a
    For i = 1 To n - 1
        s = s * (a + i)

А почему S=a ???
Автор - Irina3011
Дата добавления - 29.06.2015 в 17:30
_Boroda_ Дата: Понедельник, 29.06.2015, 17:39 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Цитата Irina3011, 29.06.2015 в 17:30, в сообщении № 5
А почему S=a ???

А почему нет? При i=0 (в коде сообщения 2) р как раз и будет равно а, таким образом мы делаем цикл не с 0 до N-1, а с 1 до N-1 - экономим один шаг цикла

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата Irina3011, 29.06.2015 в 17:30, в сообщении № 5
А почему S=a ???

А почему нет? При i=0 (в коде сообщения 2) р как раз и будет равно а, таким образом мы делаем цикл не с 0 до N-1, а с 1 до N-1 - экономим один шаг цикла
Автор - _Boroda_
Дата добавления - 29.06.2015 в 17:39
KSV Дата: Понедельник, 29.06.2015, 18:16 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Irina3011, и в zd_2 у вас ошибка.
нужно либо так:
[vba]
Код
Sub zd_2()
     Dim n As Integer, s As Single, i As Integer
     n = InputBox("Ввод натурального числа N")
     s = 0
     'находим сумму ряда
     For i = 1 To n
         s = s + (i - 1) / i ^ 2
     Next i
     MsgBox "s = " & s
End Sub
[/vba]

либо так:
[vba]
Код
Sub zd_2()
     Dim n As Integer, s As Single
     n = InputBox("Ввод натурального числа N")
     s = 0
     'находим сумму ряда
     For n = 1 To n
         s = s + (n - 1) / n ^ 2
     Next n
     MsgBox "s = " & s
End Sub
[/vba]

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
СообщениеIrina3011, и в zd_2 у вас ошибка.
нужно либо так:
[vba]
Код
Sub zd_2()
     Dim n As Integer, s As Single, i As Integer
     n = InputBox("Ввод натурального числа N")
     s = 0
     'находим сумму ряда
     For i = 1 To n
         s = s + (i - 1) / i ^ 2
     Next i
     MsgBox "s = " & s
End Sub
[/vba]

либо так:
[vba]
Код
Sub zd_2()
     Dim n As Integer, s As Single
     n = InputBox("Ввод натурального числа N")
     s = 0
     'находим сумму ряда
     For n = 1 To n
         s = s + (n - 1) / n ^ 2
     Next n
     MsgBox "s = " & s
End Sub
[/vba]
Автор - KSV
Дата добавления - 29.06.2015 в 18:16
Макрописец Дата: Понедельник, 29.06.2015, 19:21 | Сообщение № 8
Группа: Заблокированные
Ранг: Форумчанин
Сообщений: 128
Репутация: 7 ±
Замечаний: 100% ±

Excel 2010
_Boroda_,
Извините, а Вам не кажется, что название темы не очень информативное (я бы даже сказал слишком общее, конкретной проблематики нет)? Ибо задач даже по теме «Цикл For» наверняка есть много, а название должно как-то охарактеризовывать КОНКРЕТНУЮ задачу.
[moder]Теоретически да, согласен, а вот практически - в голову ничего не приходит. Предложите свой вариант.
Кстати, а почему обращение только ко мне? Я не один здесь модератор.

ТЕРПЕНИЕ И ТРУД - ВСЁ ПЕРЕТРУТ!

Сообщение отредактировал _Boroda_ - Понедельник, 29.06.2015, 19:47
 
Ответить
Сообщение_Boroda_,
Извините, а Вам не кажется, что название темы не очень информативное (я бы даже сказал слишком общее, конкретной проблематики нет)? Ибо задач даже по теме «Цикл For» наверняка есть много, а название должно как-то охарактеризовывать КОНКРЕТНУЮ задачу.
[moder]Теоретически да, согласен, а вот практически - в голову ничего не приходит. Предложите свой вариант.
Кстати, а почему обращение только ко мне? Я не один здесь модератор.
Автор - Макрописец
Дата добавления - 29.06.2015 в 19:21
ikki Дата: Понедельник, 29.06.2015, 20:44 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
Цитата Модератор, 29.06.2015 в 19:21, в сообщении № 8
Предложите свой вариант
"сделайте задание ленивому студенту-балбесу"
и пусть разгребают получившуюся свалку в стопицсот страниц

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение
Цитата Модератор, 29.06.2015 в 19:21, в сообщении № 8
Предложите свой вариант
"сделайте задание ленивому студенту-балбесу"
и пусть разгребают получившуюся свалку в стопицсот страниц
Автор - ikki
Дата добавления - 29.06.2015 в 20:44
Макрописец Дата: Понедельник, 29.06.2015, 20:53 | Сообщение № 10
Группа: Заблокированные
Ранг: Форумчанин
Сообщений: 128
Репутация: 7 ±
Замечаний: 100% ±

Excel 2010
Цитата Макрописец, 29.06.2015 в 19:21, в сообщении № 8
Кстати, а почему обращение только ко мне? Я не один здесь модератор.

Потому что тогда только Вы были онлайн.
Название, например: "Как вычислить суммы с действительным и натуральным числом через цикл For". так более информативно.
[moder]Да не вопрос. Переименовал.
Irina3011, имейте в виду - в следующий раз будем ругаться. Прочитайте Правила форума.

ТЕРПЕНИЕ И ТРУД - ВСЁ ПЕРЕТРУТ!

Сообщение отредактировал _Boroda_ - Понедельник, 29.06.2015, 20:58
 
Ответить
Сообщение
Цитата Макрописец, 29.06.2015 в 19:21, в сообщении № 8
Кстати, а почему обращение только ко мне? Я не один здесь модератор.

Потому что тогда только Вы были онлайн.
Название, например: "Как вычислить суммы с действительным и натуральным числом через цикл For". так более информативно.
[moder]Да не вопрос. Переименовал.
Irina3011, имейте в виду - в следующий раз будем ругаться. Прочитайте Правила форума.
Автор - Макрописец
Дата добавления - 29.06.2015 в 20:53
Макрописец Дата: Понедельник, 29.06.2015, 20:59 | Сообщение № 11
Группа: Заблокированные
Ранг: Форумчанин
Сообщений: 128
Репутация: 7 ±
Замечаний: 100% ±

Excel 2010
Цитата Макрописец, 29.06.2015 в 20:53, в сообщении № 10
Да не вопрос. Переименовал.

И всё же лучше так: "Как вычислить суммы с действительным и натуральным числом через цикл For"
[moder]Вот в следующий раз и попробуйте так написать. А когда не влезет по количеству символов, то подумайте, как укоротить.

ТЕРПЕНИЕ И ТРУД - ВСЁ ПЕРЕТРУТ!
 
Ответить
Сообщение
Цитата Макрописец, 29.06.2015 в 20:53, в сообщении № 10
Да не вопрос. Переименовал.

И всё же лучше так: "Как вычислить суммы с действительным и натуральным числом через цикл For"
[moder]Вот в следующий раз и попробуйте так написать. А когда не влезет по количеству символов, то подумайте, как укоротить.
Автор - Макрописец
Дата добавления - 29.06.2015 в 20:59
Макрописец Дата: Понедельник, 29.06.2015, 21:09 | Сообщение № 12
Группа: Заблокированные
Ранг: Форумчанин
Сообщений: 128
Репутация: 7 ±
Замечаний: 100% ±

Excel 2010
Цитата Макрописец, 29.06.2015 в 20:59, в сообщении № 11
А когда не влезет по количеству символов

Упс, я не посмотрел. Ссори

ТЕРПЕНИЕ И ТРУД - ВСЁ ПЕРЕТРУТ!
 
Ответить
Сообщение
Цитата Макрописец, 29.06.2015 в 20:59, в сообщении № 11
А когда не влезет по количеству символов

Упс, я не посмотрел. Ссори
Автор - Макрописец
Дата добавления - 29.06.2015 в 21:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сумма с действительным и натуральным числом через For Next (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!