Найти среднее арифметическое элементов матрицы - VB (60216)
Формулировка задачи:
Помогите пожалуста, вот задание: Заданая квадратная матрица А размером N x N (N<=10) из действительных елементов. Знайти среднее арифметическое елементов каждого из парных стопчиков етой матрицы.
Решение задачи: «Найти среднее арифметическое элементов матрицы»
textual
Листинг программы
CLS PRINT "Определение среднее арифметических элементов матрицы," PRINT "лежащих на пересечении строк,номера которых кратны R, " PRINT "и столбцов, номера которых кратны S." PRINT PRINT "Размерность массива:" DO INPUT "Введите высоту:", NX IF NX < 1 OR NX > 10 THEN PRINT "Высота должна быть в диапазоне [1..10]"; LOOP WHILE NX < 1 OR NX > 10 DO INPUT "Введите длину:", NY IF NY < 1 OR NY > 10 THEN PRINT "Длина должна быть в диапазоне [1..10]"; LOOP WHILE NY < 1 OR NY > 10 DIM A(NX, NY) 'массив DO INPUT "Введите R:", R LOOP WHILE R <= 0 DO INPUT "Введите S:", S LOOP WHILE S <= 0 'считываем и выводим массив PRINT "Исходный массив:" Sum = 0: Count = 0 FOR I = 1 TO NX FOR J = 1 TO NY PRINT "A("; I; ","; J; ") = "; INPUT "", A(I, J) IF (I MOD R = 0) AND (J MOD S = 0) THEN Count = Count + 1 Sum = Sum + A(I, J) END IF NEXT J NEXT I IF Sum > 0 AND Count > 0 THEN SA = Sum / Count PRINT "Среднее арифметическое элементов матрицы " PRINT "с пересечений строк кратных"; R; "и столбцов кратных"; S; "="; SA ELSE PRINT "Элементов, обладающих необходимой кратностью не нашлось" END IF
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д