Найти минимальный элемент массива Z и заменить его числом 999 - VBA

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

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

Помогите пожалуйста,срочно нужно 9. Получить массивы X, Y и Z, элементы которых равны соответственно x =2.5+i, y =2x , z =y -2x ; 1 i 10. Найти минимальный элемент массива Z и заменить его числом 999. Вывести элементы массива Z до и после этой замены.

Решение задачи: «Найти минимальный элемент массива Z и заменить его числом 999»

textual
Листинг программы
Option Explicit     'указание интерпретатору BASIC проверять, что все данные объявлены
 
Sub МинимумПрячься()
Dim i As Long       'счётчик цикла
Dim m As Long       'счётчик минимумов (минимум здесь будет не один)
Dim X(1 To 10), Y(1 To 10), Z(1 To 10), Z1(1 To 10) 'массивы
Dim minZ                                            'минимум для Z
    'заполняем массивы
    For i = 1 To 10
        X(i) = 2.5 + i
        Y(i) = 2 * X(i)
        Z(i) = Y(i) - 2 * X(i) 'все Z(i) = 0 (в этой задаче)
'        Z(i) = Y(i) - X(i)  'все Z(i) = X(i) (в какой-либо другой, аналогичной, задаче)
        Z1(i) = Z(i) 'копия массива Z (у меня команда Z1 = Z не проходит: стоит VBA5)
        
        If i = 1 Then
            minZ = Z(1): Z(i) = 999: k = i: m = m + 1
            'сначала предполагаем, что Z(1) - минимум
        Else
            If Z(i) <= minZ Then minZ = Z(i): Z(i) = 999: m = m + 1 'считаем минимумы
        End If
    Next
    
MsgBox "Число минимальных элементов массива Z: " & m, vbExclamation, "Школьный вариант"
MsgBox "Массив Z до замены минимумов: " & vbTab & Join(Z1, "; ") & vbCr & vbCr & _
    "Массив Z после замены минимумов: " & vbTab & Join(Z, "; ")
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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