1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97
|
C---------------------------------------------------------*
IMPLICIT NONE
DOUBLE PRECISION A(1000),AA(1000)
INTEGER I,M
WRITE(*,*)'Entrer le nombre M (M=<100 !!!)'
read(*,*) M
WRITE (*,*)'Entrer les valeurs du Tableau A'
READ (*,*) (A(I), I=1,M)
DO I=1,M
IF((A(I).LE.20.0D0) .AND.(A(I).GT.0.0D0)) AA(I)=1
IF((A(I).LE.40.0D0) .AND.(A(I).GT.20.0D0)) AA(I)=2
IF((A(I).LE.60.0D0) .AND.(A(I).GT.40.0D0)) AA(I)=3
IF((A(I).LE.80.0D0) .AND.(A(I).GT.60.0D0)) AA(I)=4
IF((A(I).LE.100.0D0).AND.(A(I).GT.80.0D0)) AA(I)=5
END DO
C>>>>> Affichage sur l'ecran ---> long un petit peut ::))
C ///// Les valeurs entre ]0,20]
WRITE(*,101)
WRITE(*,98)'I', 'A(I)'
WRITE(*,100)
DO I=1,M
IF(AA(I).EQ.1)THEN
WRITE(*,99) I,A(I)
ENDIF
ENDDO
Write(*,*)
C ///// Les valeurs entre ]20,40]
WRITE(*,102)
WRITE(*,98)'I', 'A(I)'
WRITE(*,100)
DO I=1,M
IF(AA(I).EQ.2)THEN
WRITE(*,99) I,A(I)
ENDIF
ENDDO
Write(*,*)
C ///// Les valeurs entre ]40,60]
WRITE(*,103)
WRITE(*,98)'I', 'A(I)'
WRITE(*,100)
DO I=1,M
IF(AA(I).EQ.3)THEN
WRITE(*,99) I,A(I)
ENDIF
ENDDO
Write(*,*)
C ///// Les valeurs entre ]60,80]
WRITE(*,104)
WRITE(*,98)'I', 'A(I)'
WRITE(*,100)
DO I=1,M
IF(AA(I).EQ.4)THEN
WRITE(*,99) I,A(I)
ENDIF
ENDDO
Write(*,*)
C ///// Les valeurs entre ]80,100]
WRITE(*,105)
WRITE(*,98)'I', 'A(I)'
WRITE(*,100)
DO I=1,M
IF(AA(I).EQ.5)THEN
WRITE(*,99) I,A(I)
ENDIF
ENDDO
Write(*,*)
C---------------------------------------------------------*
101 FORMAT(///,'Valeurs entre 0 et 20',/ )
102 FORMAT(///'Valeurs entre 20 et 40',/ )
103 FORMAT(///'Valeurs entre 40 et 60',/ )
104 FORMAT(///'Valeurs entre 60 et 80',/ )
105 FORMAT(///'Valeurs entre 80 et 100',/)
99 FORMAT(I3,2X,F8.3)
98 FORMAT(2X,A,5X,A)
100 FORMAT ('===============')
C---------------------------------------------------------*
END PROGRAM |
Partager