Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- PROGRAM KR_1
- REAL Y_VALUES(13), Z_VALUES(15), X
- INTEGER I
- 1 FORMAT (A1, 15F7.3)
- 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 1, 'Y', (Y_VALUES(I), I = 1, 13)
- PRINT 1, 'Z', (Z_VALUES(I), I = 1, 15)
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement