Найти среднее геометрическое всех элементов массива и наибольшее отклонение от среднего - VB
Формулировка задачи:
Дан массив с(15). Найти среднее геометрическое всех элементов массива и наибольшее отклонение от среднего, т. е максимум из (с(i) -Cp.арифм.). Если полученное наибольшее кратно двум, то заменить этим значением каждый третий элемент массива, иначе каждый пятый возвести в квадрат. вывести начальный и конечный состав массива в диапазоны красного и синего цветов. увеличить размер шрифта на 2 пт для наибольшего отклонения от среднего, цвет шрифта -зеленый.
Решение задачи: «Найти среднее геометрическое всех элементов массива и наибольшее отклонение от среднего»
textual
Листинг программы
Option Explicit Const N = 15 Private Sub Form_Click() Dim c(N) ' числовой массив c Dim i As Integer, Sr_G As Single, Sr_A As Single, Max As Single, Temp As Single, Shag As Integer Randomize Cls Print "Массив c" ' Печать на Форме1 - Массив c Sr_G = 1: Max = 0 For i = 1 To N c(i) = Int(Rnd * 100 + 1) ' формирование массива случайных чисел в интервале [1,100] по формуле Int(RND*(B-A+1)+A) Sr_G = Sr_G * c(i) 'найти среднее геометрическое Sr_A = Sr_A + c(i) 'найти среднее арифметическое Print c(i); ' вывод массива в строку на форму Next Sr_A = Round(Sr_A / N, 0) 'округлим до целого Print ' перевод строки Print "Cр.геометрическое: " & Sr_G ^ (1 / N) 'вывод среднего геометрического на форму Print "Cр.арифметическое: " & Sr_A 'вывод среднего арифметического на форму For i = 1 To N Temp = Abs(c(i) - Sr_A) If Temp > Max Then Max = Temp ' поиск наибольшего отклонения от среднего Next If Max Mod 2 = 0 Then Shag = 3 Else Shag = 5 'выбираем шаг Print "Наибольшее отклонение от среднего: " & Max 'вывод наибольшего отклонения от среднего на форму For i = Shag To N Step Shag If Shag = 3 Then c(i) = Max Else c(i) = c(i) ^ 2 ' заменяем элементы по условию Next For i = 1 To N Print c(i); ' вывод массива в строку на форму Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д