Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
oleg1394
0 / 0 / 2
Регистрация: 24.09.2013
Сообщений: 76
#1

Найти знакочередующуюся сумму цифр числа n - VBA

04.06.2015, 10:24. Просмотров 436. Ответов 3
Метки нет (Все метки)

подскажите пожалуйста: Найти знакочередующуюся сумму цифр числа n:
пусть запись n в десятичной системе имеет вид akak-1...а0 , найти S=ak -ak-1 +..+(-1)k a0
и найти S1=а0-а1+...+(-1)^k ak. (k k-1 это нижние индексы(-1)k здесь верхний индекс.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.06.2015, 10:24
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти знакочередующуюся сумму цифр числа n (VBA):

Найти чётные числа, делящиеся без остатка на сумму своих цифр из заданного с клавиатуры диапазона
Private Sub Command1_Click() Dim a As Long, b As Long, c As Long Dim i As...

Дано натуральное число n. Составить программу, подсчитывающую количество цифр числа n, сумму его цифр
не могу понять как посчитать сумму цифр веденного числа

Определить сумму и количество цифр числа
Определить сумму и количество цифр числа ))

На отрезке [2, п] найти все натуральные числа, сумма цифр которых при умножении числа на а не изменится
На отрезке найти все натуральные числа, сумма цифр которых при умножении числа...

Определить сумму старших цифр числа (Free Basic)
Задача 3. Даны натуральные числа т и п. Определить сумму старших т цифр числа...

Пользовательская функция, считающая сумму цифр натурального числа
Здравствуйте, помогите, пожалуйста, написать пользовательскую функцию, которая...

3
shanemac51
Модератор
Эксперт MS Access
7768 / 2986 / 423
Регистрация: 07.08.2010
Сообщений: 8,140
Записей в блоге: 1
04.06.2015, 10:42 #2
такая формула

http://www.cyberforum.ru/cgi-bin/latex.cgi?S1=a_0 - a_1 +...+ (-1)^k * a_k.
0
oleg1394
0 / 0 / 2
Регистрация: 24.09.2013
Сообщений: 76
04.06.2015, 10:44  [ТС] #3
да, подскажите как это сделать в vba
0
shanemac51
Модератор
Эксперт MS Access
7768 / 2986 / 423
Регистрация: 07.08.2010
Сообщений: 8,140
Записей в блоге: 1
04.06.2015, 10:55 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

один из вариантов решения
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub esum150604()
Dim a, k1, k2, summa
summa = 0
a = Array(2, 3, 4, 5)
k1 = LBound(a, 1)
k2 = UBound(a, 1)
 
Debug.Print "знакопеременная сумма"
Debug.Print "шаг", "элемент", "сумма"
Do While k1 <= k2
summa = summa + (-1) ^ k1 * a(k1)
Debug.Print k1, a(k1), summa
 
k1 = k1 + 1
Loop
''знакопеременная сумма
''шаг           элемент       сумма
'' 0             2             2
'' 1             3            -1
'' 2             4             3
'' 3             5            -2
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2015, 10:55
Привет! Вот еще темы с решениями:

Определить сумму двух старших цифр в дробной части числа.
)Дано действительное число х. Определить сумму двух старших цифр в дробной...

Написать программу в VBA, которая выдает сумму цифр многозначного числа
Помогите написать программу в VBA, которая выдает сумму чисел многозначного...

Определить количество, сумму, произведение и среднее арифметическое цифр данного числа, с постусловием
11. Дано натуральное число. Определить: а) количество цифр в нем; б) сумму...

Найти сумму цифр рандомных чисел в массиве
&quot;В заданном одномерном массиве целого типа найти и напечатать сумму цифр всех...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru