Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.11.2011, 23:02   #1
lowskill
Новичок
Джуниор
 
Регистрация: 21.11.2011
Сообщений: 2
Вопрос VB одномерный массив

ребят срочно нужно решить задачку, мой мозг уже закипает..

Определить среднее арифметическое элементов с нечетными индексами одномерного массива D размерности К.
lowskill вне форума Ответить с цитированием
Старый 22.11.2011, 00:24   #2
lowskill
Новичок
Джуниор
 
Регистрация: 21.11.2011
Сообщений: 2
По умолчанию

есть набросок

Option Base 1
Private Sub Command1_Click()
Dim i, k As Integer
Dim D(), s As Single
k = InputBox("введите количество элементов массива")
ReDim D(k)
Print "матрица D"
For i = 1 To k
B(i) = InputBox("B(i)", "ввод значений элементов массива")
Print B(i)
Next i
s = 0
For i = 1 To k
If i Mod 2 <> 0 Then
s = s + D(i)
i = i + 1
Else
i = i + 1
End If
Next i
s = s / k
Print "ср арифм:", s
End Sub
lowskill вне форума Ответить с цитированием
Старый 22.11.2011, 12:00   #3
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Option Explicit в начале модуля помогло бы найти ошибку.
А она в том, что объявлен назначен размер массива "D" а заполняется "B"
И при нахождении среднего делить надо на количество нечётных элементов, а не на общее количество элементов в массиве.

Код:
Option Explicit
Option Base 1
 Private Sub Command1_Click()
 Dim i, k, n As Integer
 Dim D(), s As Single
 k = InputBox("введите количество элементов массива")
 ReDim D(k)
 Print "матрица D"
 
 For i = 1 To k
 D(i) = InputBox("B(i)", "ввод значений элементов массива")
 Print D(i)
 Next i
 s = 0
 
 For i = 1 To k Step 2
 s = s + D(i)
 n = n + 1
 Next i
 
 s = s / n
 Print "ср арифм:", s
 End Sub
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерный массив и Двумерный массив eugene1437 Общие вопросы C/C++ 15 25.05.2011 19:17
Одномерный массив , двухмерный массив Woxx Паскаль, Turbo Pascal, PascalABC.NET 0 10.09.2010 09:28
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P. Marishkaa Помощь студентам 2 12.01.2010 16:54
Двумерный массив, одномерный массив. Branbal Помощь студентам 14 18.11.2009 12:40
Одномерный массив. medic357 Общие вопросы C/C++ 1 23.03.2009 19:39