Определить, все ли числа меньше заданного числа k - VB
Формулировка задачи:
В ПРОСТУЮ ПЕРЕМЕННУЮ ПОСЛЕДОВАТЕЛЬНО ВВОДЯТСЯ N ЧИСЕЛ. ВСЕ ЛИ ЧИСЛА МЕНЬШЕ ЗАДАННОГО ЧИСЛА K?
помогите с кодом с использованием циклов
Решение задачи: «Определить, все ли числа меньше заданного числа k»
textual
Листинг программы
Dim sT As String Dim iI As Integer Dim iK As Integer ' Счётчик события - МЕНЬШЕ ЗАДАННОГО ЧИСЛА K Dim iArrayN As Integer ' N - которые ВВОДЯТСЯ N ЧИСЕЛ Dim dK As Double ' то самое K - ВСЕ ЛИ ЧИСЛА МЕНЬШЕ ЗАДАННОГО ЧИСЛА K Dim dArray() As Double ' Массивчик под ПРОСТУЮ ПЕРЕМЕННУЮ ' iArrayN = CInt(Val(InputBox("N=", "ВВОДЯТСЯ N ЧИСЕЛ"))) ReDim dArray(1 To iArrayN) As Double ' Определяем размер массива For iI = 1 To iArrayN Step 1 ' Персональное приглашение для каждой переменной sT = "X(" + Trim$(Str$(iI)) + ")=" ' Вводим элементы массива dArray(iI) = CDbl(Val(InputBox(sT, "ПРОСТАЯ ПЕРЕМЕННАЯ"))) Next iI ' Проверка dK = CDbl(Val(InputBox("K=", "ВСЕ ЛИ ЧИСЛА МЕНЬШЕ ЗАДАННОГО ЧИСЛА K?"))) iK = 0 ' Можно и не делать, но на всякий случай... For iI = 1 To iArrayN Step 1 If dArray(iI) > dK Then iK = iK + 1 End If Next iI If 0 <> iK Then MsgBox "НЕТ, НЕ ВСЕ!", vbInformation Else MsgBox "АГА, ВСЕ!", vbInformation End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д