Найти сумму элементов массива, значения которых по модулю меньше 10 - VB

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

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

Напишите плисс легкую программку, я просто изучал паскаль, а не basic. 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,40]. Найти сумму элементов, значения которых по модулю меньше 10. 2. Вывести индексы тех элементов, значения которых больше значения последующего элемента. 3. Определить, есть ли две пары соседних элементов с разными знаками

Решение задачи: «Найти сумму элементов массива, значения которых по модулю меньше 10»

textual
Листинг программы
  1. Dim arr1(9) As Integer
  2. Dim i, iSum As Integer
  3. Dim strBuf1 As String
  4. Dim strBuf2 As String
  5.  
  6. Dim dblVal As Double
  7.  
  8. iSum = 0
  9.  
  10. ' Инициализация тестового массива
  11. For i = 0 To 9
  12.     dblVal = Rnd()
  13.     arr1(i) = (dblVal * 80) Mod 40
  14.     If Rnd() > 0.5 Then arr1(i) = arr1(i) * (-1)
  15. Next
  16.  
  17. ' Обработка данных массива
  18. For i = 0 To UBound(arr1)
  19.     ' Сумма элементом меньших 10 по модулю
  20.    If arr1(i) > -10 And arr1(i) < 10 Then
  21.         iSum = iSum + arr1(i)
  22.     End If
  23.  
  24.     If i > 0 Then
  25.  
  26.     ' п.2 задачи
  27.        If arr1(i) > arr1(i - 1) Then
  28.             If strBuf1 = "" Then
  29.                 strBuf1 = CStr(i)
  30.             Else
  31.                 strBuf1 = strBuf1 & ", " & CStr(i)
  32.             End If
  33.         End If
  34.  
  35.     ' п.3 задачи
  36.        If ((arr1(i) > 0 And arr1(i - 1) < 0) Or (arr1(i) < 0 And arr1(i - 1) > 0)) Then
  37.             If strBuf2 = "" Then
  38.                 strBuf2 = CStr(i - 1) & " ГЁ " & CStr(i)
  39.             Else
  40.                 strBuf2 = strBuf2 & ", " & CStr(i - 1) & " ГЁ " & CStr(i)
  41.             End If
  42.         End If
  43.     End If
  44. Next
  45.  
  46. MsgBox "Сумма: " & CStr(iSum) & vbCrLf & _
  47.         "Индексы п.2: " & strBuf1 & vbCrLf & _
  48.         "Индексы п.3: " & strBuf2 & vbCrLf

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


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

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

10   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы