Помогите, пожалуйста, составить программу на VBA.
задание -
Сформируйте массив чисел и вычислите среднее арифметическоежелательно до 8.11 сделать..
моя попыткаЧестно говоря, в циклах совсем не разбираюсь, кое-как по аналогии с заданием одногруппницы составила горе-программу, но где-то ошибка, мое ср. арифметическое постоянно = 0
Sub Lab_4()
Dim a(1 To 30) As Integer, P As Integer, i As Integer, N As Integer, y As Integer
Dim S As String
'>ввод данных
N = InputBox("Введите длину массива от 10 до 30" )
Do While (N < 10) Or (N > 30)
N = InputBox("Будте внимательны! Число от 10 до 30." )
Loop
x = InputBox("Введите диапазон чисел в пределах 100" )
Do While (Abs(x) < 1) Or (Abs(x) > 100)
x = InputBox("Будте внимательны! Число от 1 до 100." )
Loop
Randomize
For i = 1 To N
a(i) = Int(Rnd * 2 * x - x)
Next i
P = 1
For i = 1 To N
P = P + a(i)
Next i
у = P / N
MsgBox ("sr.arifm. ravno " & Str(y))
For i = 1 To N
S = S & Str(a(i)) & " " 'Формируем строку из массива
Next i
MsgBox ("Массив: " & S) 'Выводим массив в окно вывода
End Sub
@темы:
Visual Basic,
Информатика
-
-
02.11.2008 в 02:30Среднее арифметическое у тебя всегда 0 из-за принципа формирования массива чисел. Там же всегда в сумме 0 выходит.
Вообще, почему ты формируешь числа именно так Int(Rnd * 2 * x - x)? На распределение похоже. В задании это было оговорено? По тому, что приведено здесь, я этого не вижу. Или это осталось от задания одногруппницы?))
По мне, все можно сделать намного проще. Если актуально, можем сделать.
-
-
02.11.2008 в 02:45эхехех, потому что совсем не понимаю, что от меня требуется и тупо слизала из примера в лабе и (о,да) задания одногруппницы =))
Если актуально, можем сделать.
ну, если не затурднит, буду весьма признательна!!
и еще..
-
-
02.11.2008 в 05:14Вот весь проект + отдельно там же код выложен в файл .doc.
Комментарии мне лень в этот раз было делать - спать охота)), поэтому если не понятно будет что-то, спрашивай.
Ср. геометрическое я тоже посчитала.
-
-
27.10.2011 в 08:06