VLAD_EKZ2

PROGRAM VLAD_EKZ
REAL X, STEP, X_ARRAY(15), Y_ARRAY(12), Z_ARRAY(15)
1 FORMAT(A2, 15F7.3)
STEP = 0.45
X = -3.5 - STEP
DO I = 1, 15
X = X + STEP
X_ARRAY(I) = X
IF (I <= 12) Y_ARRAY(I) = Y(X)
Z_ARRAY(I) = Z(X)
END DO
OPEN(1, FILE='OUTPUT.TXT')
WRITE (1, *) (Y_ARRAY(I), I = 1, 12)
WRITE (1, *) (Z_ARRAY(I), I = 1, 15)
PRINT 1, 'X:', (X_ARRAY(I), I = 1, 15)
PRINT 1, 'Y:', (Y_ARRAY(I), I = 1, 12)
PRINT 1, 'Z:', (Z_ARRAY(I), I = 1, 15)
END PROGRAM

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

REAL FUNCTION Z(X)
Z = SIN(X) / (X+3.2)
RETURN
END