Заполнить массив натуральными числами от 1 до n

@Mileniya · Регистрация: 11.02.2014

Студворк — интернет-сервис помощи студентам

Помогите реализовать программу. В массивах полный ноль):
Заполнить массив натуральными числами от 1 до n. Вывести их на экран. Так же вывести сумму всех простых чисел данного массива, среднее арифметическое и медиану.
Примечание: Медиана – возможное значение признака, которое делит диапазон на две равные части.

@Казанский · 17.03.2014, 21:16

Сообщение от Mileniya

В массивах полный ноль)

Вам сюда: Массивы. Обьявление массивов. Сортировка массивов

@Mileniya · 17.03.2014, 22:42 **[ТС]**

Вот что получилось по этому заданию.

Visual Basic

Option Explicit
Dim OldMassive() As Long
Dim NewMassive() As Long
 
Private Sub Command2_Click()
Dim x As Long
For x = 0 To 9 'ïðîñòî çàïîëíåíèå ìàññèâà öèôðàìè
ReDim Preserve OldMassive(x)
OldMassive(x) = x
Next x
NewMassive = OldMassive 'ïðèñîåíèå ìàññèâîâ
For x = 0 To UBound(NewMassive) ' ñ÷èòûâàíèå íîâîãî ìàññèâà â Text1
Text1.Text = Text1.Text & NewMassive(x) & vbCrLf
Next x
End Sub
 
Private Sub Command3_Click()
Dim Sum As Long
Sum = 0
For x = 0 To 9
Sum = Sum + NewMassive(x)
Next x
Text2.Text = Sum
End Sub
 
Private Sub Command4_Click()
Dim Sum As Integer, Srednee As Integer
Sum = 0
For i = 1 To n
Sum = Sum + NewMassive(x)
Next x
Srednee = Sum / 10
Text2.Text = Srednee
End Sub
 
Private Sub Command5_Click()
Text2.Text = NewMassive(n / 2)
End Sub

Добавлено через 4 минуты
Но проблема в следующем: Вывод массива работает, а вот начиная с Private Sub Command3 до Private Sub Command5 выдает ошибки.
Не могли бы вы помочь с этим. Пожалуйста.

Private Sub Command3_Click() - выполняет нахождения суммы простых чисел
Private Sub Command4_Click() - выполняет нахождения среднее арифметическое
Private Sub Command5_Click() - выполняет нахождения медианы.

@Mileniya 0 / 0 / 1 Регистрация: 11.02.2014 Сообщений: 51
		1
	Заполнить массив натуральными числами от 1 до n 17.03.2014, 20:34. Показов 2556. Ответов 2 Метки нет (Все метки) Помогите реализовать программу. В массивах полный ноль): Заполнить массив натуральными числами от 1 до n. Вывести их на экран. Так же вывести сумму всех простых чисел данного массива, среднее арифметическое и медиану. Примечание: Медиана – возможное значение признака, которое делит диапазон на две равные части. 0

@Казанский 15139 / 6413 / 1730 Регистрация: 24.09.2011 Сообщений: 9,999
	17.03.2014, 21:16	2
	Сообщение от Mileniya В массивах полный ноль) Вам сюда: Массивы. Обьявление массивов. Сортировка массивов 0

Опции темы

Заполнить массив натуральными числами от 1 до n

Решение