KR_1_VER_1.F90

PROGRAM KR_1
REAL Y_VALUES(13), Z_VALUES(15), X
INTEGER I
1 FORMAT (A1, 16('|', F7.3))
2 FORMAT (A1, 13('--------'), A1)
3 FORMAT (A1, 15('+-------'), A1)
4 FORMAT (A1, 15('--------'), A1)
X = -3.495
DO I = 1, 15
X = X + 0.475
IF (I <= 13) Y_VALUES(I) = Y(X)
Z_VALUES(I) = Z(X)
END DO
PRINT 2, '-', '-'
PRINT 1, 'Y', (Y_VALUES(I), I = 1, 13)
PRINT 3, '-', '+'
PRINT 1, 'Z', (Z_VALUES(I), I = 1, 15)
PRINT 4, '-', '-'
OPEN(1, FILE='VIVOD.TXT')
WRITE (1, *) (Y_VALUES(I), I = 1, 13)
WRITE (1, *) (Z_VALUES(I), I = 1, 15)
CLOSE(1)
END PROGRAM

REAL FUNCTION Y(X)
REAL X
Y = (6 * X + 2) * COS( 13 * X) / (X + 3.2)
END

REAL FUNCTION Z(X)
REAL X
Z = SIN(5 * X) / (9 * X + 3.26)
END