Essayons de calculer sin(x) par
|
Ecrire un programme qui
X = ALPHA * PI / 180.
DO N=3,7,2
-1., X*X, 1/N, 1/(N-1)(attention aux types de variables!);
PROGRAM MAIN IMPLICIT NONE REAL ALPHA,SUM,SINUS,TERM,X,PI INTEGER N WRITE(6,*) ' donner un angle ' READ(5,*) ALPHA PI=2.*ACOS(0.) X=ALPHA*PI/180. TERM=X SINUS=TERM DO N=3,7,2 TERM=-TERM*X/REAL(N-1)*X/REAL(N) SINUS=SINUS+TERM END DO IF (ABS(TERM).GT.1.E-4) THEN WRITE(6,*) ' dernier terme : ',TERM,'; nous continuons' DO N=9,13,2 TERM=-TERM*X/REAL(N-1)*X/REAL(N) SINUS=SINUS+TERM END DO END IF WRITE(6,*) ' notre sinus vaut : ',SINUS WRITE(6,*) ' nous aurons du trouver : ',SIN(X) WRITE(6,*) ' la difference est de ',SINUS-SIN(X) END