Массивы на 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} будет заменена в строке на значение с, т.е. первый элемент массива параметров.

Массивы VB консольное приложение. Подсчет в массиве

Скачать проект одним архивом (бесплатно)!

Скачать exe-файл (всегда бесплатно)!

Другие примеры на языке «Visual Basic»

Удачи!





Если на этой странице не нашлось того, что Вы так искали...

         Не расстраивайтесь, не все потеряно... Смело щелкайте...

исходный код на заказ. orenstudent.ru исходный код на заказ. orenstudent.ru Помогите найти и устранить ошибку в исходном коде программы. orenstudent.ru Skype-консультирование по программированию
Скайп-консультации

Акция !!!
Весь код по 49 руб


требуются
школьники!


и СТУДЕНТЫ!
Кому не плевать
на деньги!
Сайт помощи студентам по программированию и информатике

Program code