Занятие
20
Нахождение
min и max в строках и
столбцах
1. Задана матрица A(N,N) в диапазоне [-23,25].
Вместо элементов главной диагонали записать сумму элементов соответствующей
строки за исключением элементов главной диагонали.
CLS
RANDOMIZE
TIMER
INPUT
“N=”;N
DIM
A(N,N), S(N)
FOR
I=1 TO N
FOR
J=1 TO N
A(I,J)=INT(RDN*48-23)
PRINT
USING “####”; A(I,J);
NEXT J
PRINT
NEXT I
FOR I=1 TO N
S(I)=0
FOR J=1 TO N
IF I<>J THEN S(I)=S(I)+A(I,J)
NEXT J
A(I,I) = S(I)
NEXT I
Вывод матрицы.
Для побочной диагонали IF
I+J<>N+1 THEN S(I)=S(I)+A(I,J)
2. Задана матрица A(N,N) в диапазоне [-13,17].
В каждой строке найти min элемент, среди min найти max и указать его адрес.
Ввод матрицы
max= - 1000
FOR I= 1 TO
n
min= 1000
FOR J=1 TO n
IF A(I,J)<min THEN min=A(I,J): M(I)=I : Jmin=J
NEXT J
IF m(I)>max
THEN max=M(I): Imax=I : Jmax=Jmin
NEXT I
PRINT
“A(“; Imax; “,”; Jmax; “)=”; max
2. Задана матрица A(N,N) в диапазоне [-13,17].
В каждом столбце найти max элемент, среди max найти min и указать его адрес.
Ввод матрицы
max= - 1000
FOR J= 1 TO
n
min= 1000
FOR I=1 TO n
IF A(I,J)<min THEN min=A(I,J): M(J)=J : Imin=I
NEXT I
IF m(J)>max
THEN max=M(J): Jmax=J : Imax=Imin
NEXT I
PRINT
“A(“; Imax; “,”; Jmax; “)=”; max
Домашнее задание
1. Задана матрица A(N,N) в диапазоне [-18,17].
Найти среднее арифметическое элементов каждой строки и вывести их на экран.
FOR I=1 TO N
S=0
FOR J=1 TO N
S=S+A(I,J)
NEXT J
SR(I)=S/N
NEXT
I
FOR I=1 TO N
PRINT
SR(I);
NEXT I
2. Задана матрица A(N,N) в диапазоне [-18,27].
Найти отдельно сумму элементов большего и меньшего среднего арифметического
матрицы.
S=0
FOR I=1 TO N
FOR J=1 TO N
S=S+A(I,J)
NEXT J
NEXT
I
SR=S/N/N
PRINT
“SR=”;SR
Smax = 0 : Smin = 0
FOR I=1 TO N
FOR J=1 TO N
IF A(I,J)>SR THEN Smax = Smax +A(I,J)
IF A(I,J)<SR THEN Smin = Smin +A(I,J)
NEXT J,I
PRINT “Smax
= “; Smax; “Smin =”; Smin
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.