DANIIL_LABA3

PROGRAM DANIIL_LABA3
REAL A_START, A_END, A_STEP, B_START, B_END, B_STEP, MATRIX(100, 100), N_ARRAY(100), M_ARRAY(100)
INTEGER N, M
CHARACTER(LEN=9) PRINT_ARRAY(100)
1 FORMAT (A9, A3, 100F9.3)
2 FORMAT (F9.3, A3, 100F9.3)
3 FORMAT (A12, 100(A9))
MATRIX = 0
PRINT_ARRAY = '---------'
READ *, A_START, A_END, A_STEP
N = INT((A_END - A_START) / A_STEP)
DO I = 1, N
N_ARRAY(I) = A_START + A_STEP * I
END DO
READ *, B_START, B_END, B_STEP
M = INT((B_END - B_START) / B_STEP)
DO J = 1, M
M_ARRAY(J) = B_START + B_STEP * J
END DO
CALL MATRIX_FILL(MATRIX, N_ARRAY, M_ARRAY, N, M, 100)
PRINT 1, '  A / B  ', ' | ', (N_ARRAY(K), K = 1, N)
PRINT 3, '----------+-', (PRINT_ARRAY(J), J = 1, N)
DO I = 1, M
PRINT 2, M_ARRAY(I), ' | ', (MATRIX(I, J), J = 1, N)
END DO
END PROGRAM


SUBROUTINE MATRIX_FILL(MATRIX, N_ARRAY, M_ARRAY, N, M, ABS_MAX)
INTEGER N, M, ABS_MAX
REAL MATRIX(ABS_MAX, ABS_MAX), N_ARRAY(N), M_ARRAY(M)
DO I = 1, M
DO J = 1, N
MATRIX(I, J) = N_ARRAY(J) * M_ARRAY(I)
END DO
END DO
RETURN
END SUBROUTINE