vuoi
o PayPal
tutte le volte che vuoi
WRITE(8,10) alpha,ris(1),ris(2),ris(3),ris(4),ris(5)
10 FORMAT(F4.1,2X,F10.6,2X,F10.6,2X,F10.6,2X,F10.6,2X,F10.6)
END DO
WRITE(*,12)"Non e' possibile calcolare l'integrale per alfa>",sqrt(pi/4)
WRITE(8,12)"Non e' possibile calcolare l'integrale per alfa>",sqrt(pi/4)
12 FORMAT(A48,F8.6)
CLOSE(8)
END PROGRAM integrale_alpha
REAL FUNCTION f(x)
IMPLICIT NONE
REAL::pi=3.14
REAL,INTENT (IN):: x
f=1/sqrt((pi/4)-x**2)