Найти среднее арифметическое элементов матрицы - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы