Лабораторный практикум по информатике. Гурьяшова Р.Н - 90 стр.

    8. Листинг Basic-программы «Формирование массива»
CLS
DIM A(3, 3), B(3)
' Задание матрицы A по строкам
DATA 1,-2,-3, 2, 6,-4,-1, 3, 2
PRINT TAB(10); " Матрица A(3,3)"
P = 1 : N = 3
FOR I = 1 TO N ' Внешний цикл по I (по строкам)
 K = 0
 FOR J = 1 TO N ' Внутренний цикл по J (по столбцам)
    READ A(I, J)
    PRINT USING " ### "; A(I, J);
    IF A(I, J) < 0 THEN K = K + 1
 NEXT J ' Конец цикла по J
 B(I) = A(I, I) - K
 IF B(I) > 0 THEN P = P * B(I)
 PRINT ' Пропуск строки
NEXT I ' Конец цикла по I
PRINT TAB(10); " Массив B(3)"
' Цикл вывода массива B
FOR I = 1 TO N
 PRINT USING " ## "; B(I);
NEXT I
PRINT ' Пропуск строки
PRINT USING "    P = ## "; P ' Вывод P
END
   Результаты представлены в макете печати (п.6).
  Контрольное задание для проверки знаний
              Тема. Двумерные массивы (матрицы)
    Дана матрица A (nxn), n = 6. В матрице можно выделить три
совокупности элементов Aij: главной диагонали (при i = j), верхне-
го и нижнего треугольника (при i < j и i > j). Обход верхнего тре-
угольника удобнее осуществлять по строкам, а нижнего – по
столбцам. В этом случае для верхнего треугольника параметр
внешнего цикла, номер строки i, изменяется в интервале [1; n − 1],
а параметр внутреннего цикла, номер столбца j, − в интервале
[i+1;n]. Для нижнего треугольника параметр внешнего цикла, но-
мер столбца j, изменяется в интервале [1; n − 1], а параметр внут-
реннего цикла, номер строки i, − в интервале [j + 1; n]. Матрица
задаётся самостоятельно в соответствии с условием задачи.

                               90