Algorithme sur les imprimantes les plus sollicitées

Version imprimable

Bonjour à tous, je suis actuellement étudiant et c'est mon premier message.
Je bloque vraiment pour la suite, si quelqu'un pourrait m'aider ça serait super ( pas forcement me pondre l'algo modifié mais me donner des pistes... je sais que c'est simple mais je débute vraiment en algo)
Donc, je réalise un algorithme permettant de faire les statistiques d'un nombre d'imprimantes et du nombre de pages respectivement imprimées par celle ci.

La ou je bloque, c'est que je voudrais maintenant pouvoir afficher le ou les imprimantes les plus sollicitées ( si elles ont le même nombre d'impressions) avec le nombre d'impression respectives juste après, du type:

les imprimantes les plus sollicitées sont: imprimante1(200)
imprimante9(200)

Merci d'avance à ceux qui pourront me filer un coup de main!
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 ALGO: Stat //nom de l'algo CONST nbenreg = 100 //on supose que le fichier contient 100 lignes TYPE UneImprimante = STRUCTURE NomImprimante: CHAINE[30] CodeImprimante: ENTIER CodeUtilisateur: ENTIER date: DATE heure: HEURE nbPages: ENTIER Fin VAR Timp: TABLEAU[nbenreg] DE UneImprimante //on defini la structure du tableau i: ENTIER nbpagesparImprimante: ENTIER nomImprimanteCourante: CHAINE[30] nbpagestotal: ENTIER //Cumul des pages imprimées sur toutes les imprimantes DEBUT nbpagesparImprimante <--- 0 nbpagestotal <--- 0 i <--- 0 //on se positionne sur le 1er enregistrement TANTQUE ( i <= nbenreg ) FAIRE nomImprimanteCourante <--- Timp[i].NomImprimante TANTQUE ( i <= nbenreg ET nomImprimanteCourante = Timp[i].NomImprimante ) FAIRE nbPagesParImprimante <--- nbPagesParImprimante + Timp[i].nbpages i <--- i + 1 FIN TANTQUE nbPagesTotal <--- nbPagesTotal + nbPagesParImprimante Afficher ("Nb pages imprimées sur", nomImprimanteCourange, "=", nbpagesParImprimante) nbPagesParImprimante <--- 0 FIN TANTQUE Afficher ("Le total de pages imprimées est:", nbpagestotal) FIN ALGO

MISE A JOUR - AIDE TJRS DEMANDEE :cry:

J'ai un peu avancé donc je poste le code que j'ai fait, en rouge les modifications.( je suis toujours bloqué )

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

ALGO:		Stat				//nom de l'algo 
CONST		nbenreg = 100			//on supose que le fichier contient 100 lignes
		nbstat = 100 			// on suppose que au maximum il y a 100 imprimantes ( 1 par impression )
TYPE		UneImprimante = STRUCTURE
			NomImprimante:	CHAINE[30]
			CodeImprimante:	ENTIER
			CodeUtilisateur:	ENTIER
			date:			DATE
			heure:			HEURE
			nbPages:		ENTIER
		Fin
TYPE		StatImp = STRUCTURE
			nomImp:		CHAINE[30]
			nbImp:			ENTIER
			RangImp:		ENTIER
		Fin


VAR		Timp: 	TABLEAU[nbenreg] DE UneImprimante	//on defini la structure du tableau
		i:	ENTIER
		Stats: TABLEAU[nbstat] DE StatImp
		j:	ENTIER
		nbpagesparImprimante: 	ENTIER
		nomImprimanteCourante:	CHAINE[30]
		nbpagestotal:			ENTIER		//Cumul des pages imprimées sur toutes les imprimantes

DEBUT
nbpagesparImprimante 		<--- 0
nbpagestotal 		<--- 0
i 		<--- 1					//on se positionne sur le 1er enregistrement
j		<--- 1
TANTQUE ( i <= nbenreg ) FAIRE 
nomImprimanteCourante <--- Timp[i].NomImprimante
	
	TANTQUE ( i <= nbenreg ET nomImprimanteCourante = Timp[i].NomImprimante ) 	FAIRE 
	nbPagesParImprimante <--- nbPagesParImprimante + Timp[i].nbpages
	i <--- i + 1
	FIN TANTQUE
// On sort de la boucle interne car l'imprimante a changé ou on a dépassé nbenreg.
// On affiche le nombre de pages imprimées sur l'imprimante courante et on met à jour le nombre de pages totales et réinitialise le nombre de page par imprimante

Stats[j].nomImp <--- nomImprimanteCourante
Stats[j].nbImp <--- nbPagesParImprimante

Si Stats[j].nbImp >= Stats[j-1].nbImp	ALORS	Stats[j].rangImp <--- 1 
					 	Stats[J-1].rangImp <--- 0
					SINON	Stats[J].rangImp <--- 0
FinSi

j <--- j+1

nbPagesTotal <--- nbPagesTotal + nbPagesParImprimante
Afficher ("Nb pages imprimées sur", nomImprimanteCourante, "=", nbpagesParImprimante)
nbPagesParImprimante <--- 0

FIN TANTQUE

Afficher ("Le total de pages imprimées est:", nbpagestotal)
Afficher ( "la / les imprimantes les plus utilisées sont:",)  	// on affichera ici toutes les imprimantes pour lesquelles Stats[J].rangImp = 1  mais comment ?

FIN ALGO

MISE A JOUR2 - AIDE TJRS DEMANDEE :cry:

J'ai rajouté le bout de code suivant pour remplir la 1ère ligne du tableau Stats.
Code:

1 2 3 4 5 6 7 8 9 10 DEBUT nbpagesparImprimante <--- 0 nbpagestotal <--- 0 i <--- 1 //on se positionne sur le 1er enregistrement j <--- 1 Stats[j].nomImp <--- vide Stats[j].nbImp <--- 0 Stats[j].RangImp <--- 0 j <--- 2

Tu m'as l'air d'avoir un problème de conception plus qu'un problème d'algorithmique au sens propre du terme.

Comme tu t'en es aperçu, tu dois créer une structure qui modélise une imprimante (nom, nombre de page, ..), puis créer autant d'instance de cette structure qu'il y a d'imprimantes. Au final, il faut extraire les imprimantes qui ont imprimés le plus grand nombre de page.
1. Définir les structures
   1.1 Définir la structure Imprimante
   1.2 Définir la liste/tableau  d'imprimantes


2. Parcourir les enregistrements
   2.1 Identifier l'mprimante
   2.2 Trouver ou Creer l'instance correspondante dans la liste/tableau
   2.3 mettre à jour les champs de l'instance
   
   
3. Extraire les imprimantes les plus sollicitées
   3.1 Trier la liste/tableau par nmb de page décroissant
   3.2 Parcourir la liste/tableau et afficher les informations

Merci de la réponse.

Je vais donc ajouter un tableau que je vais nommer "stats" qui contiendra le nom de l'imprimante et le nombre d'impression qu'elle a réalisée. Ce tableau dependra de la nouvelle structure que j'ai crée aussi, nommée "StatImp"

Si je suit tes indications je dois donc faire un tri décroissant dans les valeurs du tableau mais ensuite comment afficher l'imprimante qui possède la plus grande valeur d'impressions réalisées?? ( surtout que si 2 imprimantes ont imprimées le meme nombre il faudra les afficher les 2)

Bref comme je débute (et que je suis surement pas une lumière) j'ai vraiment pas réussi a réaliser le tri du tableau et j'ai pondu ce code désormais:

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
ALGO:		Stat				//nom de l'algo 
CONST		nbenreg = 100			//on suppose que le fichier contient 100 lignes
		TYPE		UneImprimante = STRUCTURE
			NomImprimante:	CHAINE[30]
			CodeImprimante:	ENTIER
			CodeUtilisateur:	ENTIER
			date:			DATE
			heure:			HEURE
			nbPages:		ENTIER
		Fin

		TYPE		StatImp = STRUCTURE
			NomImp:	CHAINE[30]
			nbImp:		ENTIER
			rangImp:	ENTIER
			
		Fin

VAR		Timp: 	TABLEAU[nbenreg] DE UneImprimante	//on defini la structure du tableau
i:	ENTIER
Stats :	TABLEAU[nbenreg] DE StatImp
		j :	ENTIER
		nbpagesparImprimante: 	ENTIER
		nomImprimanteCourante:	CHAINE[30]
		nbpagestotal:			ENTIER		//Cumul des pages imprimées sur toutes les imprimantes

DEBUT
nbpagesparImprimante 		<--- 0
nbpagestotal 		<--- 0
i 		<--- 1          //on se positionne sur le 1er enregistrement
j		<--- 1		
Stats[j].nomImp		<--- Vide
Stats[j].nbImp 		<--- 0
Stats[j].rangImp 		<--- 0

J 		<--- 2

TANTQUE ( i <= nbenreg ) FAIRE 
nomImprimanteCourante <--- Timp[i].NomImprimante
	
	TANTQUE ( i <= nbenreg ET nomImprimanteCourante = Timp[i].NomImprimante ) 	FAIRE 
	nbPagesParImprimante <--- nbPagesParImprimante + Timp[i].nbpages
	i <--- i + 1
	FIN TANTQUE
// On sort de la boucle interne car l'imprimante a changé ou on a dépassé nbenreg.
// On affiche le nombre de pages imprimées sur l'imprimante courante et on met à jour le nombre de pages totales et réinitialise le nombre de page par imprimante

Stats[j].nomImp <--- NomImprimanteCourante
Stats[j].nbImp <--- nbPagesParImprimante

j<--- j+1

nbPagesTotal <--- nbPagesTotal + nbPagesParImprimante
Afficher ("Nb pages imprimées sur", nomImprimanteCourante, "=", nbpagesParImprimante)
nbPagesParImprimante <--- 0

FIN TANTQUE

Afficher ("Le total de pages imprimées est:", nbpagestotal)

POUR j <--- 1 A nbenreg PAS 1 FAIRE

Si 	Stats[j].nbimp < Stats[j+1].nbimp
	
ALORS		stats[j].rangimp <--- 0				//opération de comparaison
			Stats[j+1].rangimp <--- 1			// et attribution du rang
	SINON								
Si	Stats[j].nbimp = Stats[j+1].nbimp
	Stats[j].rangImp <--- 1
	Stats[j+1].rangImp <--- 1
SINON
	Stats[j].rangImp <--- 1
	Stats[J+1].rangImp <--- 0
J <--- J+1 					
		FIN Si
FINSi	

Afficher ("Les imprimantes les plus utilisées sont")

POUR J <--- 1 A nbenreg PAS 1 FAIRE
	SI Stats[j].rangImp = 1 FAIRE afficher(" : ", stats[j].nomImp, "(", stats[j].nbImp, ")") 
	FINSi
FINPOUR

FIN ALGO

Je sait qu'il n'est pas correct mais je vois vraiment pas comment faire....

03/10/2011, 14h17
pseudocode
Citation:

Si je suit tes indications je dois donc faire un tri décroissant dans les valeurs du tableau mais ensuite comment afficher l'imprimante qui possède la plus grande valeur d'impressions réalisées?? ( surtout que si 2 imprimantes ont imprimées le meme nombre il faudra les afficher les 2)

Et bien, il m'apparait comme logique qu'une fois le tableau trié l'imprimante avec la plus grande valeur d'impressions sera la première du tableau. :D

Et en cas d'ex-aequo, les suivantes dans le tableau auront la même valeur que la première.

Ce qu'on peut résoudre algorithmiquement ainsi:
```
// Afficher la première imprimante stats[0]
afficher(stats[0].nomImp, "(", stats[0].nbImp, ")") 
 
// Afficher les eventuels ex-aequo : stats[1], stats[2], ...
j <-- 1
TANTQUE j<NmbImprimantes ET stats[j].nbImp=stats[0].nbImp
  afficher(" ", stats[j].nomImp, "(", stats[j].nbImp, ")") 
FIN TANQUE
```
Citation:

Bref comme je débute (et que je suis surement pas une lumière) j'ai vraiment pas réussi a réaliser le tri du tableau et j'ai pondu ce code désormais

Le tri de tableau est un problème fondamental qui a été longuement étudié. Il existe plein d'algorithmes de tri, du plus simple/lent au plus complexe/rapide. Plutot que d'en inventer un nouveau, il vaut mieux réutiliser l'un de ces algorithmes.

Citation:

Je sait qu'il n'est pas correct mais je vois vraiment pas comment faire....

Première remarque en lisant rapidement le code :
1. Mets des commentaires pour séparer (et expliquer) les différentes étapes. C'est plus simple pour relire le code ;)

2. Il y a peu de chance que le nombre d'imprimantes soir "nbenreg". Comme a priori on ne sait pas combien il y a d'imprimantes, il faudrait faire un premier parcours des enregistrements pour déterminer ce nombre.

Bonsoir, merci pour toutes les indications c'est vraiment sympas.

Alors je pense avoir pas mal avancé, j'ai essayé d'utiliser le tri a bulles.
Voici le code que j'ai désormais je pense pas qu'il soit encore juste mais j'arrive pas à voir d’erreur, ça serait royal si tu pouvais m'aider encore un peu:

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
98
99
100
101
ALGO:		Stat				//nom de l'algo 
CONST		nbenreg = 100			//on supose que le fichier contient 100 lignes
		nbstat = 100 			// on suppose que au maximum il y a 100 imprimantes ( 1 par impression )
TYPE		UneImprimante = STRUCTURE
			NomImprimante:	CHAINE[30]
			CodeImprimante:	ENTIER
			CodeUtilisateur:	ENTIER
			date:			DATE
			heure:			HEURE
			nbPages:		ENTIER
		Fin
TYPE		StatImp = STRUCTURE
			nomImp:		CHAINE[30]
			nbImp:			ENTIER
		Fin


VAR		Timp: 	TABLEAU[nbenreg] DE UneImprimante	//on defini la structure du tableau
		i:	ENTIER
		Stats: TABLEAU[nbstat] DE StatImp
		j:	ENTIER
		k:	ENTIER
		tempNbr:	ENTIER
		tempNom:	CHAINE[30]
		nbpagesparImprimante: 	ENTIER
		nomImprimanteCourante:	CHAINE[30]
		nbpagestotal:			ENTIER		//Cumul des pages imprimées sur toutes les imprimantes
		nbrePagesTemp:		ENTIER
		NomImpTemp:			CHAINE[30]
		arret:				BOOLEEN
		k:				ENTIER
DEBUT
nbpagesparImprimante 		<--- 0
nbpagestotal 		<--- 0
i 		<--- 1					//on se positionne sur le 1er enregistrement
k  		<--- 0				// indice du nombre d'imprimantes  differentes
j  		<--- 0
tempNom 	<--- vide		//tampon pour stocker le nom pendant le tri
tempNbr	<--- 0		//tampon pour stocker le nombre de page pendant le tri
						
TANTQUE ( i <= nbenreg ) FAIRE 
nomImprimanteCourante <--- Timp[i].NomImprimante
	
	TANTQUE ( i <= nbenreg ET nomImprimanteCourante = Timp[i].NomImprimante ) 		FAIRE 
		nbPagesParImprimante <--- nbPagesParImprimante + Timp[i].nbpages
		i <--- i + 1
	FIN TANTQUE
// On sort de la boucle interne car l'imprimante a changé ou on a dépassé nbenreg.
// On affiche le nombre de pages imprimées sur l'imprimante courante et on met à jour le nombre de pages totales et réinitialise le nombre de page par imprimante

k  		<--- k+1				// nombre d'imprimantes différentes
Stats[j].nomImp 	<--- nomImprimanteCourante
Stats[j].nbImp		<--- nbPagesParImprimante

J		<--- j+1	
nbPagesTotal <--- nbPagesTotal + nbPagesParImprimante
Afficher ("Nb pages imprimées sur", nomImprimanteCourante, "=", nbpagesParImprimante)
nbPagesParImprimante <--- 0

FIN TANTQUE

Afficher ("Le total de pages imprimées est:", nbpagestotal)

									

Arret = FAUX				 // début du tri

REPETER
	j <--- 0
	Arret = VRAI
	
	TANTQUE  	j < k-1 	FAIRE

		SI Stats[j].nbpages < Stats[j+1].nbpages ALORS
	tempNbr   <--- Stats[j].nbImp 	      // on stocke la valeur de j dans une variable " tampon"
	tempNom  <--- Stats[j].nomImp     // on stocke la valeur de j dans une variable " tampon"

Stats[j].nbpages <--- Stats[j+1].nbImp        // on permutte les valeurs de j+1 vers j
Stats[j].nomImp <--- Stats[j+1].nomImp    // on permutte les valeurs de j+1 vers j


Stats[j+1].nbImp  <--- tempNbr		// on réatribue les valeurs stockées de j vers j+1
Stats[j+1].nomImp <--- tempNom	// on réatribue les valeurs stockées de j vers j+1

Arret = FAUX
		FinSI
	j <--- j+1
	FIN TANTQUE

TANTQUE Arret = FAUX

// on affichera ici toutes les imprimantes pour lesquelles Stats[J].nbimp = Stats[0].nbimp  

j <--- 1

TANQUE  J < k ET stats[j].nbImp = Stats[0].nbimp
Afficher ("La ou les imprimantes les plus solicitées sont:", Stats[j].nomImp, "(", Stats[j].nbImp, ")" )
FIN TANTQUE

FIN ALGO

Citation:

Envoyé par xeatz

En remettant un peu en forme les choses, et en supprimant les variables superflues j'arrive à cela :

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
ALGO:		Stat				//nom de l'algo 
 
CONST		nbenreg = 100			// on supose que le fichier contient 100 lignes
		maxstat = 100 			// on suppose que au maximum il y a 100 imprimantes ( 1 par impression )
 
		// La structure qui représente une impression
TYPE		SImpression = STRUCTURE
			NomImprimante:		CHAINE[30]
			CodeImprimante:		ENTIER
			CodeUtilisateur:	ENTIER
			date:			DATE
			heure:			HEURE
			nbPages:		ENTIER
		Fin
 
		// La structure qui représente une imprimante
TYPE		SImprimante = STRUCTURE
			nomImp:		CHAINE[30]
			nbImp:		ENTIER
		Fin
 
 
VAR		Timp: 	TABLEAU[nbenreg] DE SImpression		// Table des impressions
		Stats:  TABLEAU[maxstat] DE SImprimante		// Table des imprimantes
		nbpagestotal:		ENTIER			// Cumul des pages imprimées sur toutes les imprimantes
		nbImprimantes:		ENTIER			// Nombre d'imprimantes distinctes
		i:	ENTIER
		j:	ENTIER
 
DEBUT
 
// Etape 1 : Parcours des enregistrements et comptabilisation des statistiques
 
i <--- 1
j <--- 0
TANTQUE ( i <= nbenreg ) FAIRE 
 
	// nouvelle imprimante detectée
	SI (j = 0) OU (Timp[i].NomImprimante <> Stats[j].nomImp) ALORS
		j <--- j+1
		Stats[j].nomImp <--- Timp[i].NomImprimante
		Stats[j].nbImp <--- 0
	FIN SI
 
	// mise a jour des statistiques de l'imprimante courante
	Stats[j].nbImp <--- Stats[j].nbImp + Timp[i].nbpages
 
	// mise a jour des statistiques globales
	nbPagesTotal <--- nbPagesTotal + Timp[i].nbpages
 
	i <--- i + 1
FIN TANTQUE
nbImprimantes <-- j
 
 
// Etape 2 : Tri de la table des imprimantes par nbpages décroissant
 
 
...
 
 
// Etape 3 : Affichage des résultats
 
Afficher ("Le total de pages imprimées est:", nbpagestotal)
 
// affiche l'imprimante la plus utilisée (et des eventuelles ex-aequo)
j <--- 1
TANQUE  (j <= nbImprimantes) ET (stats[j].nbImp = Stats[1].nbimp)
	Afficher ("La ou les imprimantes les plus solicitées sont:", Stats[j].nomImp, "(", Stats[j].nbImp, ")" )
	j <--- j+1
FIN TANTQUE
 
 
FIN ALGO

J'ai un peu modifié la logique de l'étape 1, parce que j'aime bien créer l'instance au plus tot (dés que le changement d'imprimante est détecté). Je te laisse remplir l'étape 2.

MISE A JOUR3

Merci pour ton aide, c'est clair que le code est plus propre et bien plus lisible.
Pour la partie de tri, je la ferais demain dès que possible.
Maintenant il y a une chose que tu ne pouvais pas deviner dans l'exercice, c'est qu'on me demande d'afficher le nom de l'imprimante et le nombre d'impression associés puis seulement ensuite le nombre d'impressions total de toute les imprimantes confondues et enfin la/les imprimantes les plus sollicitées. J'illustre mon propos:
Code:

1 2 3 4 5 6 7 8 nombre de pages imprimées sur: Imprimante1 = xxxxx nombre de pages imprimées sur: Imprimante2 = xxxxx nombre de pages imprimées sur: Imprimante3 = xxxxx TOTAL = XXXX La/les imprimantes les plus sollicitées sont: imprimantex(xxxx)
J'ai donc ajouté une simple ligne dans l'algo que tu as modifié la voici(je ne copie pas tout l'algo juste la partie ou j'ai fait la modif) mais je ne suis pas sur que ce soit correct lors de la première exécution lorsque J=0, par contre dès que J=1 je pense que ça devrait fonctionner:
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 // Etape 1 : Parcours des enregistrements et comptabilisation des statistiques i <--- 1 j <--- 0 TANTQUE ( i <= nbenreg ) FAIRE // nouvelle imprimante detectée SI (j = 0) OU (Timp[i].NomImprimante <> Stats[j].nomImp) ALORS Afficher ("nombre de pages imprimées sur:",Stats[j].nomImp,"=",Stats[j].nbImp)// j'affiche le nom de l'imprimante + le nombre d'impressions de celle ci juste avant l'incrémentation de J j <--- j+1 Stats[j].nomImp <--- Timp[i].NomImprimante Stats[j].nbImp <--- 0 FIN SI // mise a jour des statistiques de l'imprimante courante Stats[j].nbImp <--- Stats[j].nbImp + Timp[i].nbpages // mise a jour des statistiques globales nbPagesTotal <--- nbPagesTotal + Timp[i].nbpages i <--- i + 1 FIN TANTQUE nbImprimantes <-- j
Enfin pour la partie2 ou je vais effectuer le tri, j'aurais forcément besoin de déclarer 2 variables " tampon " pour y stocker le nom + le nombre d'impressions non?

Merci encore et bonne soirée/nuit ;)

MISE A JOUR4

Alors, j'ai remodifier l'algo pour prendre en compte le cas j = 0 tel que:
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 // Etape 1 : Parcours des enregistrements et comptabilisation des statistiques i <--- 1 j <--- 0 TANTQUE ( i <= nbenreg ) FAIRE // nouvelle imprimante detectée SI (j = 0) Stats[j].nomImp <--- Timp[1].NomImprimante Stats[j].nbImp <--- 0 FIN SI SI (Timp[i].NomImprimante <> Stats[j].nomImp) ALORS Afficher ("nombre de pages imprimées sur:",Stats[j].nomImp,"=",Stats[j].nbImp)// j'affiche le nom de l'imprimante + le nombre d'impressions de celle ci juste avant l'incrémentation de J j <--- j+1 Stats[j].nomImp <--- Timp[i].NomImprimante Stats[j].nbImp <--- 0 FIN SI // mise a jour des statistiques de l'imprimante courante Stats[j].nbImp <--- Stats[j].nbImp + Timp[i].nbpages // mise a jour des statistiques globales nbPagesTotal <--- nbPagesTotal + Timp[i].nbpages i <--- i + 1 FIN TANTQUE nbImprimantes <-- j
Je vais m'attaquer maintenant au tri, je ne le répéterai jamais assez merci bcp pour l'aide que tu m'as déjà fourni. J'ai découvert l'algorithmique il y a 1 semaine et c'est vrai que pour l'instant tout n'est pas évident pour moi mais je travaille pour m'améliorer :)

MISE A JOUR4: FINALE ?

Voila le code final que j'ai en ajoutant le tri par bulles:

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
98
99
100
101
102
103
104
105
106
 
ALGO:		Stat				//nom de l'algo 
 
CONST		nbenreg = 100			// on supose que le fichier contient 100 lignes
		maxstat = 100 			// on suppose que au maximum il y a 100 imprimantes ( 1 par impression )
 
		// La structure qui représente une impression
TYPE		SImpression = STRUCTURE
			NomImprimante:		CHAINE[30]
			CodeImprimante:		ENTIER
			CodeUtilisateur:	ENTIER
			date:			DATE
			heure:			HEURE
			nbPages:		ENTIER
		Fin
 
		// La structure qui représente une imprimante
TYPE		SImprimante = STRUCTURE
			nomImp:		CHAINE[30]
			nbImp:		ENTIER
		Fin
 
 
VAR		Timp: 	TABLEAU[nbenreg] DE SImpression		// Table des impressions
		Stats:  TABLEAU[maxstat] DE SImprimante		// Table des imprimantes
		nbpagestotal:		ENTIER			// Cumul des pages imprimées sur toutes les imprimantes
		nbImprimantes:		ENTIER			// Nombre d'imprimantes distinctes
		i:	ENTIER
		j:	ENTIER
		tempNbr: ENTIER
		tempNom: ENTIER
		Arret: BOLEEN
 
DEBUT
 
// Etape 1 : Parcours des enregistrements et comptabilisation des statistiques
 
i <--- 1
j <--- 0
TANTQUE ( i <= nbenreg ) FAIRE 
 
	// nouvelle imprimante detectée
	SI (j = 0) 
	Stats[j].nomImp <--- Timp[1].NomImprimante
	Stats[j].nbImp <--- 0
	FIN SI
 
	SI (Timp[i].NomImprimante <> Stats[j].nomImp) ALORS
		Afficher ("nombre de pages imprimées sur:",Stats[j].nomImp,"=",Stats[j].nbImp)// j'affiche le nom de l'imprimante + le nombre d'impressions de celle ci juste avant l'incrémentation de J
		j <--- j+1
		Stats[j].nomImp <--- Timp[i].NomImprimante
		Stats[j].nbImp <--- 0
	FIN SI
 
	// mise a jour des statistiques de l'imprimante courante
	Stats[j].nbImp <--- Stats[j].nbImp + Timp[i].nbpages
 
	// mise a jour des statistiques globales
	nbPagesTotal <--- nbPagesTotal + Timp[i].nbpages
 
	i <--- i + 1
FIN TANTQUE
nbImprimantes <-- j // le nombre d'imprimante est équivalent au nombre de ligne du tableau Stats
 
 
// Etape 2 : Tri de la table des imprimantes par nbpages décroissant
 
 
REPETER
	j <--- 0
	Arret = VRAI
 
	TANTQUE  	j < nbImprimantes 	FAIRE
 
		SI Stats[j].nbpages < Stats[j+1].nbpages ALORS
	tempNbr   <--- Stats[j].nbImp 	      // on stocke la valeur de j dans une variable " tampon"
	tempNom  <--- Stats[j].nomImp     // on stocke la valeur de j dans une variable " tampon"
 
Stats[j].nbpages <--- Stats[j+1].nbImp        // on permutte la valeur nbImp de j+1 vers j
Stats[j].nomImp <--- Stats[j+1].nomImp    // on permutte la valeur nomImp de j+1 vers j
 
 
Stats[j+1].nbImp  <--- tempNbr		// on réatribue la valeur nbImp stocké de j vers j+1
Stats[j+1].nomImp <--- tempNom	// on réatribue la valeur nomImp stocké de j vers j+1
 
Arret = FAUX
		FinSI
	j <--- j+1
	FIN TANTQUE
 
TANTQUE Arret = FAUX
 
 
// Etape 3 : Affichage des résultats
 
Afficher ("Le total de pages imprimées est:", nbpagestotal)
 
// affiche l'imprimante la plus utilisée (et des eventuelles ex-aequo)
j <--- 1
TANQUE  (j <= nbImprimantes) ET (stats[j].nbImp = Stats[1].nbimp)
	Afficher ("La ou les imprimantes les plus solicitées sont:", Stats[j].nomImp, "(", Stats[j].nbImp, ")" ) 
	j <--- j+1
FIN TANTQUE
 
 
FIN ALGO

J'attends ton retour, et cette fois vraiment bonne nuit :D

04/10/2011, 09h44
Nebulix

Le tri par bulles est considéré comme un très mauvais algorithme.(cf Numerical Recipes)
04/10/2011, 09h47
xeatz

Oui j'ai pu le noté aussi sur différents site. Mais comme je l'ai dit plus haut cela fait 1semaine que je découvre l'algo et c'est celui qui ma paru le plus simple ( je ne suis même pas sur qu'il est bien écrit dans mon code plus haut)
04/10/2011, 10h03
Franck Dernoncourt

Pour bien sentir les algorithmes, dès que tu croises le nom d'un algorithme qui t'intéresse, cherche sur Internet sa visualisation, e.g. pour le tri à bulles :

http://upload.wikimedia.org/wikipedi...mple-300px.gif

Wikipedia présente la visualisation (ou au moins dans des liens) de la plupart des algorithmes classiques.

Bon peut-être que tu le savais déjà, mais juste au cas où :)
04/10/2011, 19h38
pseudocode

Citation:

Envoyé par xeatz

J'ai donc ajouté une simple ligne dans l'algo que tu as modifié la voici(je ne copie pas tout l'algo juste la partie ou j'ai fait la modif) mais je ne suis pas sur que ce soit correct lors de la première exécution lorsque J=0, par contre dès que J=1 je pense que ça devrait fonctionner:

Mélanger les responsabilités, c'est mal. :|

Etape 1 : Je construis mes données
Etape 2 : Je manipule mes données
Etape 3 : J'affiche mes données

Si tu veux afficher des résultats, il vaut mieux le faire dans l'étape 3, celle qui est dédiée à l'affichage (en plus, tu n'auras pas a te préoccuper du problème J=0. Il suffit juste de parcourir la table 'Stats').

Sinon, ca m'a l'air bien.

NB : Effectivement le tri a bulle c'est loin d'être le meilleur (surtout cette version), mais pour un exercice c'est suffisant. Et comme on a bien structuré le programme, on pourra toujours revenir sur l'étape 2 et mettre un meilleur tri.

ALGO RESOLU

Merci pour le conseil de ne pas mélanger les responsabilités.

J'ai corrigés des petites erreurs de nommage dans la boucle de tri ( du style

Code:

stats[j].nbpages < stats[j+1].nbImp

remplacé par

Code:

stats[j].nbImp < stats[j+1].nbImp

)
Pour l'affichage j'ai donc créé cette boucle dans la partie 3 pour afficher les imprimantes et leurs nombres de pages imprimées respectivement:

Code:

1
2
3
4
5
6
 
j <--- 1
TANTQUE (j <= nbimprimantes) FAIRE
	afficher(Stats[j].nomImp, "=", Stats[j].nbImp)
	j <--- j+1
FIN TANTQUE

Soit le code final en entier:

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
98
99
100
101
102
103
104
105
106
107
108
 
ALGO:		Stat				//nom de l'algo 
 
CONST		nbenreg = 100			// on supose que le fichier contient 100 lignes
		maxstat = 100 			// on suppose que au maximum il y a 100 imprimantes ( 1 par impression )
 
		// La structure qui représente une impression
TYPE		SImpression = STRUCTURE
			NomImprimante:		CHAINE[30]
			CodeImprimante:		ENTIER
			CodeUtilisateur:	ENTIER
			date:			DATE
			heure:			HEURE
			nbPages:		ENTIER
		Fin
 
		// La structure qui représente une imprimante
TYPE		SImprimante = STRUCTURE
			nomImp:		CHAINE[30]
			nbImp:		ENTIER
		Fin
 
 
VAR		Timp: 	TABLEAU[nbenreg] DE SImpression		// Table des impressions
		Stats:  TABLEAU[maxstat] DE SImprimante		// Table des imprimantes
		nbpagestotal:		ENTIER			// Cumul des pages imprimées sur toutes les imprimantes
		nbImprimantes:		ENTIER			// Nombre d'imprimantes distinctes
		i:	ENTIER
		j:	ENTIER
		tempNbr: ENTIER
		tempNom: ENTIER
		Arret: BOLEEN
 
DEBUT
 
// Etape 1 : Parcours des enregistrements et comptabilisation des statistiques
 
i <--- 1
j <--- 0
TANTQUE ( i <= nbenreg ) FAIRE 
 
	// nouvelle imprimante detectée
 
	SI (j = 0) ET (Timp[i].NomImprimante <> Stats[j].nomImp) ALORS
		j <--- j+1
		Stats[j].nomImp <--- Timp[i].NomImprimante
		Stats[j].nbImp <--- 0
	FIN SI
 
	// mise a jour des statistiques de l'imprimante courante
	Stats[j].nbImp <--- Stats[j].nbImp + Timp[i].nbpages
 
	// mise a jour des statistiques globales
	nbPagesTotal <--- nbPagesTotal + Timp[i].nbpages
 
	i <--- i + 1
FIN TANTQUE
nbImprimantes <-- j // le nombre d'imprimante est équivalent au nombre de ligne du tableau Stats
 
 
// Etape 2 : Tri de la table des imprimantes par nbpages décroissant
 
 
REPETER
	j <--- 0
	Arret = VRAI
 
	TANTQUE  	(j < nbImprimantes) 	FAIRE
 
		SI (Stats[j].nbImp < Stats[j+1].nbImp) ALORS
	tempNbr   <--- Stats[j].nbImp 	      // on stocke la valeur nbImp de j dans une variable " tampon"
	tempNom  <--- Stats[j].nomImp     // on stocke la valeur nomImp de j dans une variable " tampon"
 
Stats[j].nbImp  <--- Stats[j+1].nbImp        // on permutte la valeur nbImp de j+1 vers j
Stats[j].nomImp <--- Stats[j+1].nomImp    // on permutte la valeur nomImp de j+1 vers j
 
 
Stats[j+1].nbImp  <--- tempNbr		// on réatribue la valeur nbImp stocké de j vers j+1
Stats[j+1].nomImp <--- tempNom	// on réatribue la valeur nomImp stocké de j vers j+1
 
Arret = FAUX
		FinSI
	j <--- j+1
	FIN TANTQUE
 
TANTQUE Arret = FAUX
 
 
// Etape 3 : Affichage des résultats
 
// affiche les imprimantes et leur nombre de pages imprimées 
j <--- 1
TANTQUE (j <= nbimprimantes) FAIRE
	afficher(Stats[j].nomImp, "=", Stats[j].nbImp)
	j <--- j+1
FIN TANTQUE
 
Afficher ("Le total de pages imprimées est:", nbpagestotal)
 
// affiche l'imprimante la plus utilisée (et des eventuelles ex-aequo)
j <--- 1
TANTQUE  (j <= nbImprimantes) ET (stats[j].nbImp = Stats[1].nbimp) FAIRE
	Afficher ("La ou les imprimantes les plus solicitées sont:", Stats[j].nomImp, "(", Stats[j].nbImp, ")" ) 
	j <--- j+1
FIN TANTQUE
 
 
FIN ALGO

Je pense pas qu'il y ai d’erreur dans l'algo maintenant, j'invite donc un modérateur à classer ce post comme résolu

Merci mille fois pour tout ces conseils, et a bientôt sur développez.net :ccool: