Programme de traitement de tableau

Version imprimable

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:

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

19/09/2007, 19h58
afrancisco

salut,

Citation:

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[
19/09/2007, 22h04
feynman

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

Salut,

je te laisse avec ce petit programme :)

Code:

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

20/09/2007, 04h51
phy4me

Remarque >>> programme en format fixée
20/09/2007, 10h22
DaZumba

Citation:

Envoyé par phy4me

Remarque >>> programme en format fixée

Edite ton message et encadre le code source avec les balises codes, ce sera plus propre.
20/09/2007, 16h18
feynman

suppose que tu as 1000 valeurs, alors ton program ne marche pas ou plutot n a plus de sens, surement il y a une autre version
20/09/2007, 22h36
phy4me

alors la tu change la taille des tableau,
et merci de nous signalé si ta une autre méthode
24/09/2007, 10h56
genteur slayer

Citation:

suppose que tu as 1000 valeurs, alors ton program ne marche pas ou plutot n a plus de sens, surement il y a une autre version

tel qu'il est écris, si....

de plus si tu laisse le F77 derrière toi tu peux utiliser des tableau dynamiques
(ALOCATABLE).

de plus, dans un soucis de clareté et de longueur de code tu peux faire une fonction qui traite le's intervalle genre 'IS_IN_INTERVALL(x,a,b)' où a et b sont les bornes de l'intervalle du coup, tu peux faire un traitement dynamique des valeurs puisqu'il faut juste incrémenter a et b....

Pensez POO même si c dur en Fortran.... isolez les truc répétitif et fouttez les dans des fonctions!!!!