Найти наиболее часто повторяющуюся цифру в числе - QBasic

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Найти наиболее часто повторяющуюся цифру в числе»

textual
Листинг программы
input "vvedite chislo ",n&
m&=n&
dim a(10)
do
k=m& mod 10
a(k)=a(k)+1
m&=m&\10
loop until m&=0
max=0
for i=0 to 9
if a(i)>max then max=a(i):c=i
next
print" iskomaya cifra=";c
print"pozicii:"
do
k=n& mod 10
t=t+1
if k=c then print t;
n&=n&\10
loop until n&=0

Объяснение кода листинга программы

В этом коде задача заключается в поиске цифры, которая чаще всего встречается в числе, которое вводит пользователь. Вот список шагов, описывающих работу программы:

  1. Пользователю предлагается ввести число.
  2. Число сохраняется в переменной n.
  3. Десятичная система числа сохраняется в переменной m.
  4. Создается массив a размером 10 для подсчета количества повторений каждой цифры.
  5. Запускается цикл, который выполняется до тех пор, пока m не станет равным нулю. В каждой итерации цикла k устанавливается в остаток от деления m на 10, а затем увеличивается счетчик в массиве a для k-й цифры.
  6. После окончания цикла, ищется максимальное значение в массиве a и сохраняется в переменной max. Также находится индекс этого значения в массиве a и сохраняется в переменной c.
  7. Выводится сообщение, указывающее наиболее частую цифру.
  8. Запускается цикл, который выводит позиции всех цифр в числе, которые совпадают с c. Следует отметить, что в этом коде есть некоторые недочеты, такие как отсутствие проверки на ввод пользователя и обработка ошибок.

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы