[Débutant] Nombre min, nombre max

Version imprimable

Voir 40 message(s) de cette discussion en une page

22/12/2010, 22h58
krachik

Quand tu as un effet inattendu à l'exécution, il faut revoir ton code et l'analyser pour savoir si tu as codé vraiment ce que tu veux.

Tu as ta variable T_population
1. tu as besoin de connaitre le nombre de personnes N que tu vas gérer (ton tableau est limité a 100 donc ton 0<N<100)
2.On t'a dit déjà dans les posts précédents comment lire dans les records, il suffisait juste de corriger une partie d'un de tes codes précédents
Pourquoi introduis-tu un case ... of ?
3. la suite.... c'est à dire le calcul d'âge moyen puis le min et le max

4.Tu as un peu tout mélangé, refais ton algo avec toutes les informations reçues et ensuite codes !!!
22/12/2010, 22h59
droggo

Joa,

Prends du papier et un crayon, et exécute manuellement ton programme, et note/regarde ce qui se passe.

Il faut le faire en suivant exactement ton code ligne à ligne, et ne pas faire ce que tu penses qu'il fait !!
23/12/2010, 07h55
wiwaxia

Nombre min, nombre max: amorce du programme
Bonjour Woodix,

L’instruction conditionnelle

Code:

while (i<=100) do

n’exécute que

Code:

case i of 1: writeln('Entrez les parametres de la premiere personne');

parce que la délimitation du bloc

Code:

end;

est mal placée, de sorte que le programme ignore toute la suite :
Code:

1 2 3 4 writeln('Nom : '); readln(T_population[i].nom); writeln('Prenom : '); readln(T_population[i].prenom); writeln('Age : '); readln(T_population[i].age); i:=i+1;
entre autres l’incrémentation du compteur (i), ce qui conduit à une boucle infinie
Il faut rejeter

Code:

end;

à la fin du texte, juste avant le

Code:

end.

du programme principal.

A+

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
program population_N_personnes;
Type T_personne=record
            nom : string;
            prenom : string;
            age : integer;
            end;
 
var T_population:Array[1..100] of t_personne;
    i, n: integer;
 
begin
 writeln('Entrez le nombre de personne');
 readln(n);
  i:=1;
  while (i<=n) do
    begin
     case i of
         1: writeln('Entrez les parametres de la premiere personne');
         2: writeln('Entrez les parametres de la deuxieme personnes');
         3..100: writeln('Entrez les parametres de la ', i, 'ieme personne');
     end;
       writeln('Nom : ');
       readln(T_population[i].nom);
       writeln('Prenom : ');
       readln(T_population[i].prenom);
       writeln('Age : ');
       readln(T_population[i].age);
       i:=i+1;
       writeln;
       readln;
    end;
end.

Voila là c'est bon, sa me demande bien de rentrer les coordonnées pour la première personne, deuxième, troisième, etc.. jusqu'à une population de N personne que l'on détermine.
Maintenant, il faut que je calcule la moyenne de tous les ages, et trouver la plus âgée et la plus jeune.

23/12/2010, 12h52
droggo

Joe,

Pour ce qu'il te reste à faire, c'est une simple mise en œuvre de ce que tu ferais à la main.

Comment fais-tu la moyenne d'une série de valeurs ?

Comment trouves-tu un maximum ou un minimum dans une série de données ?

Tu appliques, et tu as le résultat. :)

Code:

1 2 3 4 5 6 7 8 9 begin for i := 1 to n do begin total:=total+T_population[i].age; writeln('La somme des ages est : ',total); moyenne := total / n; writeln('La moyenne est : ',moyenne); readln; end;
J'ai essayé sa pour la somme, mais sa me fais la moyenne que de la première personne que je rentre.
Je ne vois pas comment additionner tous les ages que l'on rentre pour toutes les personnes différentes.. :(

23/12/2010, 15h54
krachik

Tu mets en place un algorithme avant d'écrire le code?

Le calcul de la moyenne doit se situer en dehors de la boucle ;)
ça doit être aussi amusant vu le readln que tu as mis dans la boucle, ça ne t'a pas gêné à l'exécution?
23/12/2010, 15h56
wiwaxia

Age min, age max - suite

Je suppose que tu entames une nouvelle procédure.

1) Tu as intérêt à isoler la valeur de < T_population.age > dont tu te serviras 3 fois, pour le calcul progressif du total cumulé et des extremums;
donc prédéclarer déjà :

Code:

VAR a, total: INTEGER

puis mettre dans le bloc d'instructions < FOR i:= 1 TO n DO ... >

Citation:

a:= T_population[i].age;
total:= total + a;

(ce qui peut être remplacé par la consigne d'incrémentation: Inc(total, a) )

2) Le calcul et l'affichage de la moyenne n'interviennent qu'une fois l'énumération achevée; donc en principe renvoyer après le délimitateur de bloc < end; > les instructions correspondantes; tu peux cependant ne pas les déplacer à condition d'introduire une correction:
< moyenne:= total / i > ; les résultats affichés concernent alors les (i) premières valeurs de la liste, les résultats définitifs apparaissant à la dernière étape.

3) Ne pas oublier d'initialiser la variable somme cumulée < total:= 0 >
avant l'énumération < FOR i ... >, sous peine d'obtenir n'importe quoi.
23/12/2010, 16h08
droggo

Lai,

Apparemment, tu es réticent pour tenir compte des réponses.

1) On écrit un algorithme avant de s'occuper de la moindre ligne de code

2) Cet algorithme écrit, on le teste manuellement, en notant les valeurs entrées (et affichées s'il y en a)

3) Si on n'obtient pas le résultat désiré, l'algorithme est faux, on retourne à 1)

Sinon, on commence à écrire le code, en veillant à bien reproduire l'algorithme, puis on le teste, ...

Vu les codes que tu nous montres, tu ne fais rien de tout ça, et tu donnes l'impression d'écrire du code plus ou moins au hasard, et en tout cas, sans prendre la peine de vérifier toi-même quand ça ne va pas ...

... alors que ce serait plus rapide que de venir demander la solution, et tu apprendrais effectivement à programmer, alors que pour l'instant tu ne fais qu'aligner des lignes de code sans queue ni tête.

Je te parais dur ?

Si tu veux apprendre, il faut faire des efforts.

Si tout ce que tu veux est une bonne note, alors trouve quelqu'un pour faire ton travail, mais ce forum n'est pas le bon endroit pour ça.
23/12/2010, 16h23
woodix

Citation:

Envoyé par droggo

Lai,

Apparemment, tu es réticent pour tenir compte des réponses.

1) On écrit un algorithme avant de s'occuper de la moindre ligne de code

2) Cet algorithme écrit, on le teste manuellement, en notant les valeurs entrées (et affichées s'il y en a)

3) Si on n'obtient pas le résultat désiré, l'algorithme est faux, on retourne à 1)

Sinon, on commence à écrire le code, en veillant à bien reproduire l'algorithme, puis on le teste, ...

Vu les codes que tu nous montres, tu ne fais rien de tout ça, et tu donnes l'impression d'écrire du code plus ou moins au hasard, et en tout cas, sans prendre la peine de vérifier toi-même quand ça ne va pas ...

... alors que ce serait plus rapide que de venir demander la solution, et tu apprendrais effectivement à programmer, alors que pour l'instant tu ne fais qu'aligner des lignes de code sans queue ni tête.

Je te parais dur ?

Si tu veux apprendre, il faut faire des efforts.

Si tout ce que tu veux est une bonne note, alors trouve quelqu'un pour faire ton travail, mais ce forum n'est pas le bon endroit pour ça.

En même temps ce n'est pas le but de ma formation.. je n'ai fais que 3 cours dessus, et je n'ai pas appris de la même manière que vous !
Quand vous me parlez d'algorithme à la main, sur papier, ben je n'ai jamais fais !
Quand vous m'expliquer, je n'en comprends pas la moitié, à cause du vocabulaire.. :oops:
Ensuite, au niveau des structures et tout, on en voyait de nouvelles à chaques cours, donc niveau exos c'était 2 pendant la séance et voila, et encore assez simple.
Mais la j'ai 3 exos à faire, dont celui la, et je ne comprends pas, c'est peu être vraiment simple pour vous, mais pour moi je galère vraiment ! :(
23/12/2010, 17h30
droggo

Kai,

Est-il si dur de vérifier le fonctionnement de ton programme en suivant ligne par ligne ce que tu as écrit ?

Comment penses-tu qu'on a appris ?

En dormant avec un livre de programmation en guise d'oreiller ?
En faisant faire notre travail par d'autres ?

Donc, soit tu veux apprendre, et tu fais des efforts (vocabulaire : dictionnaires ou Google ...) et tu fais des efforts, soit tu cherches seulement une bonne note, et on va te demander d'aller ailleurs, car personne sur ce forum n'est là pour faire ton travail.

+1 pour Droggo.

On a tous appris comme ça. Et je vais même te dire une chose : tu as eu la chance d'avoir 3 cours, moi j'en ai eu aucun, il a fallu que je me débrouille tout seul. Donc, tu es plutôt favorisé :lol:

Mais comme on est sympa, on va quand même encore essayer ... Voici ton code :
Code:

1 2 3 4 5 6 7 8 9 10 begin for i := 1 to n do begin total:=total+T_population[i].age; writeln('La somme des ages est : ',total); moyenne := total / n; writeln('La moyenne est : ',moyenne); readln; end;
Voici quelques (bonnes) questions :

1) La variable 'Total' est-elle initialisée ?
2) Quelle est la valeur qu'atteint 'i' quand 'total' est égal au total des âges de toute la population ? (Ne te contente pas de répondre au jugé, prends un crayon, fais ce que te dis Droggo)
3) Quand 'i' = 3 quelle est la valeur de la moyenne ? Et quand 'i' = 5 est-ce que cette valeur est la même ? Pourquoi ? Quelle est la moyenne que tu veux vraiment calculer ?
4) A quoi sert le "readln" de la fin ? Que se passerait-il si tu le supprimais ?

En programmation, la qualité des réponses qu'on obtient est directement liée à la qualité des questions qu'on SE pose ...

25/12/2010, 10h48
woodix

Citation:

Envoyé par richard

Voici quelques (bonnes) questions :

2) Quelle est la valeur qu'atteint 'i' quand 'total' est égal au total des âges de toute la population ? (Ne te contente pas de répondre au jugé, prends un crayon, fais ce que te dis Droggo)
3) Quand 'i' = 3 quelle est la valeur de la moyenne ? Et quand 'i' = 5 est-ce que cette valeur est la même ? Pourquoi ? Quelle est la moyenne que tu veux vraiment calculer ?
4) A quoi sert le "readln" de la fin ? Que se passerait-il si tu le supprimais ?

Joyeux Noel à vous tous quand même avant ! :)
Donc:
2)'i' doit atteindre la valeur de n que l'on rentre.
3)Quand 'i'=3 la valeur de la moyenne est moyenne=somme des 3 ages/le nombre d'ages (3), et pour 'i'=5 pareil en remplaçant 3 par 5 donc pas la même valeur. La moyenne que je veux vraiment calculée est la moyenne de tous les âges que je rentre (si n=3, la moyenne des 3 âges, si n=5, la moyenne des 5 âges, etc..)
4) Le readln sert à laisser à l'écran le programme, sinon il se ferme tout seul, sans avoir le temps de voir le résultat.
25/12/2010, 11h05
richard
Citation:

Envoyé par woodix

La moyenne que je veux vraiment calculée est la moyenne de tous les âges que je rentre (si n=3, la moyenne des 3 âges, si n=5, la moyenne des 5 âges, etc..)
4) Le readln sert à laisser à l'écran le programme, sinon il se ferme tout seul, sans avoir le temps de voir le résultat.

Joyeux Noël également. :-)

Donc :

Il te faut pour ta moyenne, la somme des âges. C'est le but de ta boucle. On peut dire que l'objectif de cette boucle est atteint quand tu obtiens ces informations (la somme des âges et le nombre de personnes).

Autres questions :
1. Un programme doit-il se confondre automatiquement avec une boucle ?
2. Quel est l'intérêt de calculer la moyenne à l'intérieur de la boucle ?
3. Que se passerait-il si le 'Readln' était réellement à la fin du programme ?
26/12/2010, 21h13
woodix

C'est bon j'ai réussi à finir avec quelqu'un de mon entourage qui m'a expliqué.
Merci encore à tous ! :)
26/12/2010, 22h20
krachik

Comme dans l'autre post, peut on voir ton code final qui marche comme tu veux? :D

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
program population_N_personnes;
Type T_personne=record
            nom : string;
            prenom : string;
            age : integer;
            end;
 
var T_population:Array[1..100] of t_personne;
    i, n, sum, moyenne, min, max : integer;
 
begin
 writeln('Entrez le nombre de personne.');
 readln(n);
  i:=1;
  while (i<=n) do
    begin
       case i of
         1: writeln('Entrez les parametres de la premiere personne.');
         2: writeln('Entrez les parametres de la deuxieme personnes.');
         3..100: writeln('Entrez les parametres de la ', i, 'ieme personne.');
     end;
       writeln('Nom : ');
       readln(T_population[i].nom);
       writeln('Prenom : ');
       readln(T_population[i].prenom);
       writeln('Age : ');
       readln(T_population[i].age);
       i:=i+1;
       writeln;
    end;
      begin
       sum:=0;
       for i:=0 to n do
 
         begin
         sum:=sum+T_population[i].age;
         end;
 
         moyenne:=sum div n;
         writeln('La moyenne des ages est de ',moyenne,' ans.');
      end;
 
        min:=T_population[1].age;
        max:=T_population[1].age;
 
         begin
           for i:=1 to n do
           begin
           if T_population[i].age>max then max:=T_population[i].age;
           if T_population[i].age<min then min:=T_population[i].age;
           end;
         end;
 
           begin
             for i:=1 to n do
             begin
             if T_population[i].age=max then
             writeln('La personne la plus agee est : ',T_population[i].nom,' ',T_population[i].prenom);
             if T_population[i].age=min then
             writeln('La personne la moins agee est : ',T_population[i].nom,' ',T_population[i].prenom);
             end;
           end;
           readln;
end.

Voila.

Alors quelques améliorations ?
-Le case...of je suppose que c'est pour des phrases plus bien faites ? on peut raccourcir ça en "Personne N° "+i, enfin c'est qu'une suggestion ici
-Il y a certains begin...end qui sont pas nécessaires
Code:

1 2 3 4 5 6 7 8 9 10 begin //pas nécessaire for i:=1 to n do begin if T_population[i].age=max then writeln('La personne la plus agee est : ',T_population[i].nom,' ',T_population[i].prenom); if T_population[i].age=min then writeln('La personne la moins agee est : ',T_population[i].nom,' ',T_population[i].prenom); end; end;//pas nécessaire
Ici ta boucle n'est plus nécessaire vu que les max et le min sont déjà dans min et max :P

**N'oublies pas de commenter ton code, ça peut te servir plus tard quand tu reprendra le code, là ça va parce que c'est un petit code

27/12/2010, 20h53
richard

Ce code fonctionne, c'est l'essentiel.
Cependant il est largement optimisable. Le "CASE OF" ne sert pas à grand-chose. Ton emploi de cette instruction de contrôle ne correspond pas à ce pourquoi elle a été créée.
Mais l'important pour l'instant c'est que tu aies compris les boucles, les tableaux et les records.

Voir 40 message(s) de cette discussion en une page