Discussion :

[feynman]

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]

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]

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

[phy4me]

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

[phy4me]

Remarque >>> programme en format fixée

[DaZumba]

Remarque >>> programme en format fixée

Edite ton message et encadre le code source avec les balises codes, ce sera plus propre.

[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

[phy4me]

alors la tu change la taille des tableau,
et merci de nous signalé si ta une autre méthode

[genteur slayer]

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!!!!