информатика1ё / wesna / labor1 / 11в
.docЗадание 11
Вычислить величину
используя подпрограмму вычисления минимального элемента массива. Значения n, m и элементов массива ввести в процессе выполнения программы.
Подпрограмма типа GOSUB
INPUT “N<M”; N,M
DIM A(M), B(N), C(N), K(M)
FOR I=1 TO M
INPUT A (I)
K(I)=A(I)
NEXT I
T=M
GOSUB M1
MIN A=MIN
FOR I=1 TO N
INPUT B(I)
K(I)=B(I)
NEXT I
T=N
GOSUB M1
MIN B=MIN
FOR I=1 TO N
INPUT C(I)
K(I)=C(I)
NEXT I
T=N
GOSUB M1
MIN C=MIN
IF ABS(MIN A)<10 THEN
L=MIN B+ MIN C
ELSE
L=MIN B
ENFIF
PRINT “L=”; L
END
M1: MIN=K(1)
FOR I=1 TO N
IF K(I)<MIN THEN MIN=K(I)
NEXT I
RETURN
Подпрограмма типа SUB
DECLARE SUB MIN (X( ),K, S)
INPUT “N<M”; N, M
DIM A(M), B(N), C(N), X(M)
FOR I=1 TO M
INPUT A (I)
NEXT I
CALL MIN (A ( ),M, S1)
FOR I=1 TO N
INPUT B (I), C (I)
NEXT I
CALL MIN (B ( ), N, S2)
CALL MIN (C ( ),N, S3)
IF ABS (S1)<10 THEN L=S2+S3 ELSE L=S2
PRINT “L=”; L
END
SUB MIN (X ( ),K,S)
S=X (1)
FOR I=2 TO K
IF X (I)<S THEN S=X (I)
NEXT I
END SUB
Подпрограмма типа FUNCTION
DECLARE FUNCTION MIN (X( ), K)
INPUT “N<M”; N, M
DIM A(M), B(N), C(N), X(M)
FOR I=1 TO M
INPUT A (I)
NEXT I
S1=MIN (A ( ), M)
FOR I=1 TO N
INPUT B(I), C(I)
NEXT I
S2=MIN (B ( ),N)
S3=MIN (C ( ),N)
IF ABS (S1)<10 THEN L=S2+S3 ELSE L=S2
PRINT “L=”; L
END
FUNCTION MIN (X( ), K)
S=X(1)
FOR I=2 TO K
IF X(I)<S THEN S=X(I)
NEXT I
MIN = S
END FUNCTION