Задача:

Создайте функцию, которая принимает список и возвращает элемент с максимальным значением и его индекс. Visual Basic.

План:

• Алгоритм решения
• Код программы
• Примеры входных данных и ожидаемых результатов
• Объяснение кода программы
• Блок-схема

Алгоритм решения:

1. Проверка входных данных:

   • Если список пустой или равен Nothing, вернуть Nothing.

2. Инициализация переменных:

   • Установить maxValue равным первому элементу списка.
   • Установить maxIndex равным 0.

3. Итерация по списку:

   • Начать с индекса 1 до последнего элемента списка.
   • Для каждого элемента:
     • Если текущий элемент больше maxValue:
     • Обновить maxValue текущим элементом.
     • Обновить maxIndex текущим индексом.

4. Возврат результата:

   • Создать и вернуть кортеж с maxValue и maxIndex.

5. Использование функции:

   • Создать список чисел.
   • Вызвать функцию FindMaxAndIndex с этим списком.
   • Проверить результат на Nothing.
   • Вывести максимальное значение и его индекс, если результат не Nothing.
   • Вывести сообщение об ошибке, если результат Nothing.

Код программы на языке Visual Basic:

Function FindMaxAndIndex(ByVal numbers As List(Of Integer)) As Tuple(Of Integer, Integer)
    If numbers Is Nothing OrElse numbers.Count = 0 Then
        Return Nothing
    End If

    Dim maxValue As Integer = numbers(0)
    Dim maxIndex As Integer = 0

    For i As Integer = 1 To numbers.Count - 1
        If numbers(i) > maxValue Then
            maxValue = numbers(i)
            maxIndex = i
        End If
    Next

    Return New Tuple(Of Integer, Integer)(maxValue, maxIndex)
End Function

Sub Main()
    Dim numberList As New List(Of Integer) From {5, 2, 9, 1, 7, 3}
    Dim result As Tuple(Of Integer, Integer) = FindMaxAndIndex(numberList)

    If result IsNot Nothing Then
        Console.WriteLine("Maximum value: " & result.Item1)
        Console.WriteLine("Index of maximum value: " & result.Item2)
    Else
        Console.WriteLine("The list is empty or null.")
    End If
End Sub

Примеры входных данных и ожидаемых результатов:

Пример 1:
Входные данные: {5, 2, 9, 1, 7, 3}
Ожидаемый результат:
Maximum value: 9
Index of maximum value: 2

Пример 2:
Входные данные: {1, 2, 3, 4, 5}
Ожидаемый результат:
Maximum value: 5
Index of maximum value: 4

Пример 3:
Входные данные: {10}
Ожидаемый результат:
Maximum value: 10
Index of maximum value: 0

Пример 4:
Входные данные: {-5, -2, -9, -1}
Ожидаемый результат:
Maximum value: -1
Index of maximum value: 3

Пример 5:
Входные данные: {}
Ожидаемый результат:
The list is empty or null.

Пример 6:
Входные данные: null
Ожидаемый результат:
The list is empty or null.

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

1. Объявление функции:

   Function FindMaxAndIndex(ByVal numbers As List(Of Integer)) As Tuple(Of Integer, Integer)

   Объявляется функция FindMaxAndIndex, которая принимает список целых чисел и возвращает кортеж с двумя целыми числами.

2. Проверка входных данных:

   If numbers Is Nothing OrElse numbers.Count = 0 Then
       Return Nothing
   End If

   Проверяется, не является ли список пустым или null. Если да, функция возвращает Nothing.

3. Инициализация переменных:

   Dim maxValue As Integer = numbers(0)
   Dim maxIndex As Integer = 0

   Инициализируются переменные для хранения максимального значения и его индекса. Изначально они устанавливаются на первый элемент списка.

4. Поиск максимального значения:

   For i As Integer = 1 To numbers.Count - 1
       If numbers(i) > maxValue Then
           maxValue = numbers(i)
           maxIndex = i
       End If
   Next

   Цикл проходит по всем элементам списка, начиная со второго. Если текущий элемент больше maxValue, обновляются maxValue и maxIndex.

5. Возврат результата:

   Return New Tuple(Of Integer, Integer)(maxValue, maxIndex)

   Функция возвращает кортеж с максимальным значением и его индексом.

6. Объявление основной процедуры:

   Sub Main()

   Начало основной процедуры программы.

7. Создание тестового списка:

   Dim numberList As New List(Of Integer) From {5, 2, 9, 1, 7, 3}

   Создается список целых чисел для тестирования функции.

8. Вызов функции:

   Dim result As Tuple(Of Integer, Integer) = FindMaxAndIndex(numberList)

   Вызывается функция FindMaxAndIndex с тестовым списком, результат сохраняется в переменную result.

9. Вывод результата:

   If result IsNot Nothing Then
       Console.WriteLine("Maximum value: " & result.Item1)
       Console.WriteLine("Index of maximum value: " & result.Item2)
   Else
       Console.WriteLine("The list is empty or null.")
   End If

   Проверяется, не равен ли результат Nothing. Если результат существует, выводятся максимальное значение и его индекс. В противном случае выводится сообщение о пустом или null списке.

Блок-схема:

Нажмите на изображение, чтобы увеличить

Блок-схема к задаче: Создайте функцию, которая принимает список и возвращает элемент с максимальным значением и его индекс.