Bonjour à tous,
Voilà,je viens d'écrire mon premier exercice de programmation en FORTRAN, pour résoudre une équation du second degré ax[/EXP]2 +bx+ c=o, mais il réfuse de compiler. Je vous singale que je ne suis qu'un débutant dans cette matière. Le voici
Quelqu'un pourait-il me guider s'il-vous-plait?Code:PROGRAM TRINOM IMPLICIT NONE REAL, PARAMETER :: EPSILON = 1E-6 REAL a,b,c REAL delta, r_delta, x1, x2 !VALORISATION DES COEFFICIENTS. A = 3.; B = 7.; C = -11. ! A DOIT ETRE NON NUL. IF ( A > -EPSILON .AND. A < EPSILON )& STOP "A DOIT ETRE NON NUL. " !CALCUL DU DETERMINANT. DELTA = B*B - 4*A*C !CAS DU DETERMINANT NAGATIF. IF ( DELTA < -EPSILON) STOP "PAS DE RACINE REELLE." !CAS DU DETERMINANT NUL. IF ( DELTA > -EPSILON .AND. DELTA < EPSILON ) THEN X1 = -B/(2*A); X2=X1 ELSE !CAS DU DETERMINANT POSITIF; R_DELTA = SQRT(DELTA) X1 = (-B -R_DELTA)/(2*A); X2 = (B +R_DELTA)/(2*A) END IF !IMPRESSION DES RACINES; PRINT *, "X1= ", X1, ", X2= ", X2 END PROGRAM TRINOM
Merci
-----