Изучаем язык BASIC. Занятие 20 Нахождение min и max в строках и столбцах

Занятие 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)

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)

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)

NEXT J,I

PRINT "Smax = "; Smax; "Smin ="; Smin