Среднеквадратическое отклонение элементов 1-го и 3-го массивов, соответствующих положительным элементам 2-го - QBasic

Формулировка задачи:

Даны три массива с числом элементов не более чем 50 в каждом. Определить среднеквадратическое отклонение элементов первого и третьего массивов, соответвующих положительным элементам второго массива d= \sum_{i=1}^{n} (a*i - c*i)^2/(n-1); SKO= \sqrt{d} d-дисперсия, SKO-среднеквадратическое отклонение. В третьем массиве найти минимальный элемент и его индекс.

Решение задачи: «Среднеквадратическое отклонение элементов 1-го и 3-го массивов, соответствующих положительным элементам 2-го»

Листинг программы

DECLARE SUB ini (x() AS INTEGER)
CLS
RANDOMIZE TIMER
CONST n = 50
DIM x(1 TO n) AS INTEGER
DIM y(1 TO n) AS INTEGER
DIM z(1 TO n) AS INTEGER
 
CALL ini(x())
CALL ini(y())
CALL ini(z())
 
FOR i = 1 TO n
   IF y(i) > 0 THEN
      d = d + (x(i) - z(i)) ^ 2
      m = m + 1
   END IF
NEXT
 
SKO = SQR(d / (m - 1))
PRINT "SKO ="; SKO
 
min = z(1)
imin = 1
 
FOR i = 1 TO n
   IF min > z(i) THEN
      min = z(i)
      imin = i
   END IF
NEXT
 
PRINT "MIN Z() ="; min
PRINT "Imin ="; imin
END
 
SUB ini (x() AS INTEGER)
   FOR i = 1 TO n
      x(i) = 40 * RND - 20
      PRINT x(i);
   NEXT
   PRINT : PRINT
END SUB

Объяснение кода листинга программы

В этом коде реализуется вычисление среднеквадратического отклонения (СКО) элементов 1-го и 3-го массивов, которые соответствуют положительным элементам 2-го массива. СКО вычисляется по формуле: СКО = √((сумма ((x_i - z_i)^2) за i от 1 до n) / (m - 1)) где:

x_i - элементы 1-го массива
z_i - элементы 3-го массива
m - количество положительных элементов 2-го массива В начале кода определяются три массива x, y и z, инициализированные случайными значениями от -20 до 20. Затем подпрограммой ini инициализируются значения первого массива x. Далее в основном цикле программы проверяется каждый элемент второго массива на положительность. Если элемент положительный, то вычисляется разность между соответствующими элементами первого и третьего массивов, и эта разность возводится в квадрат. Затем эта разность добавляется к общей сумме разностей квадратов (d), а также увеличивается счетчик положительных элементов (m). После завершения цикла, вычисляется СКО по формуле, приведенной выше, и сохраняется в переменной SKO. Далее в коде вычисляется минимальное значение в третьем массиве и сохраняется в переменной min, а также находится индекс этого минимального значения, который сохраняется в переменной imin. В конце кода выводятся значения переменных min и imin.