PROGRAM QDEX
INTEGER :: X
DO X=38,100
N=4*X**3-108*X**2-108*X-27
M=X**3-36*X**2-54*X-27
Q=float(N)/float(M)
PRINT *, X,Q
END DO
END PROGRAM QDEX

Embed on website

To embed this project on your website, copy the following code and paste it into your website's HTML: