Завдання з програмування на Visual Basic (стр. 2 из 2)
If Abs(z!(j)) > Abs(z!(k)) Then
k = j: v! = z!(i): z!(i) = z!(k): z!(k) = v!
End If
Next
WordBasic.Insert Str(z!(i)): WordBasic.InsertPara
Next
End Sub
Після виклику програми Завдання6 на виконання отримаємо такi результати:
Масив Х:
-30
-24.16667
-18.33333
-12.5
-6.666665
-.8333311
5.000002
10.83334
16.66667
22.5
28.33334
34.16667
40
Масив Y:
-24.16667
-12.5
-.8333311
10.83334
22.5
34.16667
Масив Z:
34.16667
-24.16667
22.5
-12.5
10.83334
-.8333311
Завдання 7
Скласти блок-схему та програму.Задано масив Y = {yi}, i = 1÷ n, n = 8. Обчислити середнє арифметичне елементів цього масиву, менших заданого числа А.Розв'язок
Оскільки в завданні не вказані числа уi та А, візьмемо їх довільно:
Y = {-2; 15; 3; -9; 7; -6; 14; -13},А = 6
 |
Програма буде складатися з алгоритму вибору з масиву Y елементів yk, менших А, i обчислення їх середнього арифметичного С за формулою:
С = Σ yk / n, k = 1÷ n,
де n — кiлькiсть елементів масиву Y, менших А.
Блок-схема програми Завдання7 наведена на рисунку вище.
Текст програми Завдання7 наведено нижче.
Attribute VB_Name = "Модуль7"
'Iгор Каплик - жовтень, 2006 р.
Sub Завдання7()
Dim y!(8), a!, c!, i, j, k
y!(1) = -2: y!(2) = 15: y!(3) = 3: y!(4) = -9
y!(5) = 7: y!(6) = -6: y!(7) = 14: y!(8) = -13
n = 8: a! = 5
k = 0: c! = 0
For i = 1 To n
If y!(i) < a! Thenc! = c! + y!(i): k = k + 1
End If
Nextc! = c! / k
WordBasic.Insert "Середнє арифметичне С = " & Str(c!)
WordBasic.Insert ", k =" & Str(k)
End Sub
Після виклику програми на виконання отримаємо такий результат:
Середнє арифметичне С = -5.4, k = 5