Programme de traitement de tableau

**feynman** · 19/09/2007, 17h36

Bonjour ,
J'ai devant moi à écrire un programme lisant un tableau de nombres jusqu'à M; ensuite, écrire un tableau indiquant combien de nombres ainsi que leurs numéros de case se trouvent entre 0 et 10, 10 et 20, 20 et 30 etc jusqu'à 90 et 100.
J'ai essayé d'écrire ce type de programme mais ça n'a pas marché, pouvez- vous m'aider ? Merci
Voilà mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
            program case
            real A(20)
            integer i
            integer M
            print*, entrer le nombre M
            read*,M
            read*,(A(i),i=1,10)
            do i=1,M
               if(A(i).LT.10 & A(i).GT.0)then
                  print*,'A('i ') est entre 0 et 10'
               else if(A(i).LT.20 & A(i).GT.10)then
                  print*,'A('i ') est entre 10 et 20'
               else
                  print*,'error'
               endif
            enddo
            end

**afrancisco** · 19/09/2007, 19h58

salut,

mais ca n a pas marché

? à l'exécution ? si oui, avec quelle valeurs ?
... mais tu peux déjà remplacer GT par GE pour être sûr de traiter tous les cas sur [0,20[

**feynman** · 19/09/2007, 22h04

en d autres termes, je ne sais pas comment continuer
merci

**phy4me** · 20/09/2007, 04h50

Salut,

je te laisse avec ce petit programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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