Написать процедуру вычисления суммы трех последовательно расположенных элементов массива с номерами от k до m - VB

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

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

7. Задан массив D из 6 элементов. Определить следующие суммы: D[1] + D[2] + D[3]; D[3] + D[4] + D[5]; D[4] + D[5] + D[6]. Написать процедуру вычисления суммы трех последовательно расположенных элементов массива с номерами от k до m . Если можно с панелем и окном:*(. а то я делаю выдает ошибку

Решение задачи: «Написать процедуру вычисления суммы трех последовательно расположенных элементов массива с номерами от k до m»

textual
Листинг программы
Option Explicit
Dim D(1 To 6) As Single
Private Sub Command1_Click()
   Dim i As Integer, k As Integer, m As Integer, sum As Integer
   Print "Массив "
   For i = 1 To 6
     D(i) = InputBox("D(" & i & ") = ", "", Int(Rnd * 10))
     sum = sum + D(i)
     Print D(i);
   Next i
   Print
   Print "Сумма всех элементов массива равна  " & sum
   k = InputBox("k = ", "", 2)
   m = InputBox("m = ", "", 4)
   Call Summa(1, 3)
   Call Summa(3, 5)
   Call Summa(4, 6)
   Call Summa(k, m)
End Sub
Private Sub Summa(nach As Integer, konez As Integer)
   Dim sum As Integer, i As Integer
   For i = nach To konez
    sum = sum + D(i)
   Next i
   Print "Сумма элементов массива с " & nach & "-го  по " & konez & "-й  равна  "; sum
End Sub

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


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

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

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