30 Read X( I ) : next I

40 DATA 0.25 , -3.41 , 2 , -1.14 , -1.53

50 FOR J = 1 TO 4

60 READ Y( J ) : NEXT I

65 DATA 1.25 , 0.1 , -0.25 , 1

70 FOR I = 1 TO 5

80 FOR J = 1 TO 4

90 Z( I , J ) = X( I ) * Y( J ) / SQR( X( I )^2 + Y( J )^2 )

100 PRINT USING “ ###.##” ; Z( I , J ) ;

110 NEXT J : PRINT : NEXT I

Результаты расчета:

0.25 0.09 0.18 0.24

-1.17 -0.10 0.25 -0.96

1.06 0.10 -0.25 0.89

-0.84 -0. 10 0.24 -0.75

-0.97 -0.10 0.25 -0.84

При вводе одномерных массивов Х и У применена в строках 30-65 блочная структура ввода данных, а в строках 100-110 используется форматированный вывод элементов матрицы Z, при этом комбинация ###.## задает формат вывода чисел с плавающей запятой - три символа до запятой и два после . В конце 100 строки после Z(I,J) ставится “;”с целью печати всех элементов матрицы Z_ij в одну строку ,но в строке 110 после оператора завершения цикла по j (NEXT J) имеется

“пустой” оператор PRINT, позволяющий после формирования очередной строки матрицы Z_ij переводить курсор в начало следующей строки экрана ПЭВМ и тем самым формировать двумерный массив Z_ij в виде структуры матрицы.

9.3.2. Вычислим количество отрицательных элементов в каждой строке матрицы Z_{ij .}Так как индекс i ( см. 70 строку) является номером строки матрицы Z_ij ,то необходимо для каждого значения индекса i “обнулять” начальное значение числа отрицательных элементов L, тогда блок программы вычисления количества отрицательных элементов в каждой строке имеет вид:

120 FOR I = 1 TO 5

130 L = 0 : FOR J = 1 TO 4

140 IF Z( I, J )< 0 THEN L = L + 1

150 NEXT J: PRINT “Колич. отриц. эл-тов=“;L;”в строке-”;I

160 Next I

Результаты расчета:

Колич. отриц. эл-тов = 0 в строке - 1

Колич. отриц. эл-тов = 3 в строке - 2

Колич. отриц. эл-тов = 1 в строке - 3

Колич. отриц. эл-тов = 3 в строке - 4

Колич. отриц. эл-тов = 3 в строке - 5

Для вычисления количества отрицательных элементов в каждом столбце матрицы Z_ij необходимо циклы по i и j поменять местами, т.е. цикл по j сделать внешнем, а по i - внутренним:

120 FOR J = 1 TO 4

130 L = 0 : FOR I = 1 TO 5

140 IF Z( I, J )< 0 THEN L = L + 1

150 NEXT I : PRINT “Колич. отриц. эл-тов =“;L;”в ст-це -”;J

160 Next j

Результаты расчета:

Колич. отриц. эл-тов = 3 в столбце - 1

Колич. отриц. эл-тов = 3 в столбце - 2

Колич. отриц. эл-тов = 1 в столбце - 3

Колич. отриц. эл-тов = 3 в столбце - 4

9.3.3. При вычислении произведения положительных элементов главной диагонали матрицы Z_ij учитывается условие нахождения элемента на главной диагонали I = J и БЭЙСИК - программа вычислений этого произведения может иметь вид:

120 P = 1

130 FOR J = 1 TO 4

140 IF Z( I, J )> 0 THEN P = P *Z( I, J )