информатика1ё / wesna / labor1 / 7в
.docЗадание 7
Дана матрица
,
где I
= 1,2,…, n;
J
= 1,2,…. Вычислить
где
-наибольший элемент в строке с номером
k
матрицы
.
В программе использовать подпрограмму
нахождения наибольшего элемента в
строке матрицы. Значения n
и элементов матрицы ввести в процессе
выполнения программы.
Подпрограмма типа GOSUB
CLS
INPUT N
DIM A (N,N), X (N), Z (N)
FOR I=1 TO N
FOR J=1 TO N
INPUT A (I,J)
NEXT J
NEXT I
FOR I=1 TO N
GOSUB M1
Z (I) = X (I)
NEXT I
Y=0: I=1
K=N: P=1
M2: P = X (K) + X (I)
Y=Y+P
I=I+1
K=K-1
IF K>1 THEN GOTO M2
PRINT “Y=”; Y
END
M1: X(I) = A(I,1)
FOR J=1 TO N
IF X(I)>A(I,J) THEN X(I)=A(I,J)
NEXT J
RETURN
Подпрограмма типа SUB
DECLARE SUB MAX (A ( ), N, X ( ))
INPUT N
DIM A (N,N), X (N), Z (N)
FOR I=1 TO N
FOR J=1 TO N
INPUT A (I,J)
NEXT J
NEXT I
FOR I=1 TO N
CALL MAX (A ( ), I, X ( ))
Z(I) = A(I)
NEXT I
Y=0: I=1
K=N: P=1
M1: P = X(K) * X(I)
Y=Y+P
I=I+1
K=K-1
IF K>1 THEN GOTO M1
PRINT “Y=”; Y
END
SUB MAX (A ( ), N, X ( ))
X(I)=A(I,1)
FOR J=1 TO N
IF X (I) > A(I, J) THEN X (I) = A (I, J)
NEXT J
END SUB
Подпрограмма типа FUNCTION
DECLARE FUNCTION MAX (A ), N, (X))
INPUT N
DIM A (N, N), X (N), Z (N)
FOR I=1 TO N
FOR J=1 TO N
INPUT A (I, J)
NEXT J
NEXT I
FOR I=1 TO N
Z (I)=MAX (A ( ), N, X ( ))
NEXT I
Y=0: I=1
K=N: P=1
M1: P=X (K) * X (I)
Y=Y+P
I=I+1
K=K-1
IF K > 1 THEN GOTO M1
PRINT “Y=”; Y
END
FUNCTION MAX (A ( ), N, X ( ))
X(I) = A(I, 1)
FOR J=1 TO N
IF X (I) > A (I, J) THEN X (I) = A (I, J)
NEXT J
MAX = X (I)
END FUNCTION