Определить, все ли числа меньше заданного числа 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

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


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

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

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