Мой опыт написания программы для определения количества цифр 1 в десятичной записи числа на MS VBScript
Программирование может показаться сложным делом, но с правильными инструментами и знаниями это становится проще. Недавно я решил написать программу на MS VBScript, которая позволяет определить, сколько раз цифра 1 встречается в десятичной записи натурального числа.
Для начала я открыл редактор кода и создал новый VBScript проект. Я дал ему имя ″CountOnes″.
Далее я объявил переменную n, которая будет использоваться для хранения вводимого пользователем числа. Вот как это выглядело⁚
vbscript
Dim n
n InputBox(″Введите натуральное число⁚″)
Здесь функция InputBox позволяет пользователю ввести натуральное число с клавиатуры.
Далее я создал переменную count и инициализировал ее значением 0. Она будет использоваться для подсчета количества цифр 1 в числе⁚
vbscript
Dim count
count 0
После этого я приступил к основной части программы ⎼ подсчету цифр 1 в числе. Я использовал цикл Do While для перебора каждой цифры числа и проверки, равна ли она 1⁚
vbscript
Do While n > 0
If n Mod 10 1 Then
count count 1
End If
n n \ 10
Loop
В каждой итерации цикла я проверял, равна ли последняя цифра числа 1. Если да٫ то инкрементировал переменную count.
После завершения цикла я вывел результат на экран с помощью функции MsgBox⁚
vbscript
MsgBox ″Количество цифр 1 в числе⁚ ″ n count
Вот и вся программа! Теперь я могу запустить ее и проверить, сколько раз цифра 1 встречается в десятичной записи любого натурального числа.
Вот полный код программы⁚
vbscript
Dim n
Dim count
n InputBox(″Введите натуральное число⁚″)
count 0
Do While n > 0
If n Mod 10 1 Then
count count 1
End If
n n \ 10
Loop
MsgBox ″Количество цифр 1 в числе⁚ ″ n count
Я очень доволен своей программой на MS VBScript для подсчета цифр 1 в десятичной записи числа. Теперь я могу использовать ее для решения различных задач٫ связанных с обработкой числовых данных.