PROGRAM CUBIC
INTEGER J
REAL K
COMMON / X / Y
CHARACTER*36 Z,ALPHA,Y
REAL X,BETA,ALPHA,ALPHA,K,ALPHA,J,K,Z,K
ALPHA = (COS(4))-J
IF (K.EQ.BETA) THEN
Y = 19
ELSE
BETA = X/ALPHA
END IF
IF (X.LE.BETA) THEN
J = 4
ELSE
Y = 4
END IF
J = 1
ALPHA = 13
BETA = TAN(SIN(K/J))
K = X
END
|
|
|