Массивы на VB Visual Studio 2010.
Подсчет количества минимальных элементов в массиве в процессе ввода.
Задание:
Задайте массив В() из N целых чисел.
Составьте (Visual Studio 2010 консольное приложение VB) алгоритм подсчета встречаемости минимального числа в массиве (значение минимального элемента и сколько раз).
Решение:
Будем в цикле вводить элементы массива и каждый раз сравнивать вводимое значение с (уже имеющимся) минимальным.
Код будет выглядеть так:
Dim N As Integer
Console.Write("Задайте размерность массива (целым числом) N=")
N = Val(Console.ReadLine()) ’ читаем значение из потока консоли
Dim B(N) , i, c, Min As Integer ’ описываем массив и локальные переменные
Min = 1 ’ инициализируем индекс минимального элемента
‘(изначально минимальным будем считать первый элемент)
For i = Min To N
Console.Write("Задайте {0} элемент массива (целое число) B({0})=", i)
B(i) = Val(Console.ReadLine()) ’ читаем значение элемента из потока консоли
If B(i) < B(Min) Then ’ сравниваем введенный элемент с минимальным
Min = i ’ сохраняем индекс нового минимального элемента
c = 1 ’ (счетчик) начинаем подсчет заново
ElseIf B(i) = B(Min) Then ‘ если повторно встретилось минимальное число
c = c + 1 ’ увеличиваем счетчик
End If
Next
Console.WriteLine(" Ответ: Минимальное число {0} встретилось в массиве {1} раз!", B(Min), c)
Console.ReadLine() 'для ожидания нажатия Enter
Если и осталось что-то не ясное в этом коде, то, наверное, это вывод строки ответа…
Console.WriteLine(" Ответ: Минимальное число {0} встретилось в массиве {1} раз!", B(Min), c)
Первый параметр этой функции это строка со вставками элементов массива последующих параметров.
Поэтому вставка {0} будет заменена в строке на значение B(Min), т.е. нулевой элемент массива.
А вставка {1} будет заменена в строке на значение с, т.е. первый элемент массива параметров.
Скачать проект одним архивом (бесплатно)!
Скачать exe-файл (всегда бесплатно)!
Другие примеры на языке «Visual Basic»
Удачи!
Поделиться в соц сетях:
