algorithme de sondage ( en pascal) Fermé

Question

Bonjour,


j'essaye d'ecrire un programme, qui demande des information:
le niveau d'etude(primaire-secondaire-collegial-universitaire), la residence(ville ou campagne), l'annee de naissance et le revenu,

ensuite le programme dois analyser tout ca et

afficher le niveau d'etude pour les citadin qui gagne 40 000 par an,
afficher la proportion de citadin et de ruraux de plus de 30 ans qui ont finit au moin des etudes collegial
afficher le salaire annuel moyen des citadins qui un un diplome universitaire
afficher le nombre de personne qui ont fait l'universitee et qui gagne plus de 60 000.

J'ai debuter mon programme, mais je suis coincer, alors si quelqu'un peut m'aider en me donnant des indice, se sera apprecier.


Merci




uses
    forms;
    type
    fich = record
    end;


var
      fiche:fich;
      nombres,saisie, diplome, residence, annee, revenu: integer ;
 
begin
  saisie:=1;
  diplome:=0;
  residence:=0;
  while saisie=1 do
     begin

 writeln;
 writeln;
 writeln ('             saisie de donnees');
 writeln;
 writeln;
 writeln ('     De quel niveau est votre diplome ? ');
 writeln;
 writeln ('         1:primaire, 2:secondaire');
        write ('        3:collegial, 4:universitaire  :  ');
 readln(diplome);
        if diplome <> 0 then
          begin
        writeln;
               writeln;
               writeln ('     Residez vous a la ville ou a la campagne ? ');
               writeln;
        write('              1:ville, 2:campagne  : ');
        readln(residence);
 
               writeln;
               writeln;
               write ('     En quel annee etes vous nee ?  : ');
               readln(annee);

               writeln;
               writeln;
               write ('     quel est votre revenu anuel ?  : ');
               readln(revenu);
          end
        else
          saisie:=0; {Fin de la boucle si la reponse est 0}

     end;
     writeln;
     if revenu > 40000 then
         if residence = 1 then
     begin
     write('le niveau d''etude est : ');
       writeln(diplome);
       write('l''annee de naissance est : ');
       writeln(annee);
        writeln;
       end
       else
       if diplome = diplome then
       begin
       writeln(residence/100);
       writeln(residence/100);
       end
       else
       if annee > 1978 then
       if residence = 2 then
      if diplome >= 3 then
       begin
       writeln(revenu);


       end
       else
       if residence = 1 then
       if diplome = 4 then
       begin
       writeln(revenu);
       end
       else
       if diplome = 4 then
       if revenu > 60000 then
       begin
       writeln(nombres);
       end;
       readln;


end.

KX · Answer

Pour le début je te propose quelques "améliorations" à prendre ou à laisser selon ce que tu veux faireprogram SansNom;

var nombres, diplome, residence, annee, revenu: integer ;
    saisie:boolean;

procedure writeln2(s:string);
begin
writeln; writeln(s);
end;

procedure writeln3(s:string);
begin
writeln; writeln2(s);
end;

begin
diplome:=0;
residence:=0;
saisie:=false; // on a pas saisi les bonnes infos
while not saisie do
      begin
      writeln3(' SAISIE DE DONNEES');
      writeln3(' De quel niveau est votre diplome ?');
      writeln2(' 1(primaire), 2(secondaire), 3(collegial) ou 4(universitaire) ?');
      write(' Choix : '); readln(diplome);
      saisie:=(diplome>0); {on boucle si réponse incorrecte}
      end;
writeln3(' Residez vous a la ville (1) ou a la campagne (2) ?');
write(' Choix : '); readln(residence);
writeln3(' En quelle annee etes vous nee ? (format 19xx)');
readln(annee);
writeln3(' Quel est votre revenu annuel ?');
readln(revenu);
writeln;Après ça devient très confus, voici ce que comprend le compilateur :if revenu>40000 then
      if residence=1
      then begin
           writeln(' Le niveau d''etude est : ',diplome);
           writeln(' L''annee de naissance est : ',annee);
           writeln;
           end
      else if diplome = diplome // condition absurde !
           then begin
                writeln(residence/100); // residence vaut 1 ou 2 !
                writeln(residence/100); // voir ma remarque en bas
                end
           else if annee > 1978
                then
                    if residence=2 // impossible car résidence =1
                    then
                        if diplome>=3
                        then begin
                             writeln(revenu);
                             end
                        else if residence=1
                             then if diplome=4
                                  then begin
                                       writeln(revenu);
                                       end
                                  else if diplome = 4
                                       then if revenu > 60000
                                            then begin
                                                 writeln(nombres); // jamais assigné
                                                 end;
readln;
end.Clarifie tes conditions, je pense qu'il vaut mieux dans un premier temps mettre des begin end à tous des then et else, plutôt que de placer un else if à la suite d'une instruction qui ne le concerne pas...

Concernant le "residence/100", residence est un entier qui vaut 1 ou 2, si tu veux obtenir 0.01 et 0.02 tu dois écrire "real(residence)/100" ou sinon "residence div 100" qui donnera 0 dans les deux cas.

Pour l'exemple 5.0/2.0=2.5 et 5 div 2 = 2 (il reste 1 = 5 mod 2)

KX · Answer

J'ai compris  ce que tu voulais afficher comme résultats !

Mais c'est infaisable en l'état, il faut te constituer une base de donnée rigoureuse (que tu n'as pas dans le code)
Puis une fois constituée, la parcourir (de préférence le moins de fois possible) pour faire tes stats dessus !

Je te conseille de faire une base de données en fichier, ça me parait le plus simple étant donné ton problème, en essayant de limiter un maximum la place prise par les données (préférer des types bytes au type integer qui prennet huit fois moins de places...)

KX · Answer

Regarde bien stan, tu vas voir j'ai été particulièrement zélé et je t'ai quasiment tout fait (y avait rien à la télé)program Statistiques;

type Donnee=record
     age,niveau:byte; // le type byte va de 0 à 255
     citadin:boolean; // false si rural
     revenu:longint;  // longint atteinds les +/- 2^31 (seulement +/- 2^16 pour integer)
     end;

     BaseDonnee=file of Donnee;

procedure LireDonnee(d:Donnee);
begin
if d.citadin then write('Citadin')
             else write('Rural  ');
write(' de ',d.age:3,' ans de niveau ');
case d.niveau of
     1:write('primaire     ');
     2:write('secondaire   ');
     3:write('collegial    ');
     4:write('universitaire');
     end;
writeln(' touchant ',d.revenu:10,' euros annuels');
end;

function SaisieDonnee:Donnee;
var b:byte;
begin
writeln; writeln('---- SAISIE DES DONNEES ----'); writeln;
b:=0;
while (b=0) or (b>2) do
      begin
      writeln('Vivez-vous en ville (1) ou a la campagne (2) ?');
      write('Reponse : '); readln(b);
      end;
      result.niveau:=0;
result.citadin:=(b=1);
writeln; writeln('Quel est votre age ?');
write('Reponse : '); readln(result.age); writeln;
while (result.niveau=0) or (result.niveau>4) do
      begin
      writeln('De quel niveau est votre diplome ?');
      writeln('       Primaire (1), Secondaire (2), Collegial (3) ou Universitaire (4)');
      write('Reponse : '); readln(result.niveau);
      end;
writeln; writeln('Quel est votre revenu annuel ?');
write('Reponse : '); readln(result.revenu);
writeln;
end;

procedure CreerBaseDonnee(CheminAcces:string);
var b:BaseDonnee;
begin
assign(b,CheminAcces);
rewrite(b);
close(b);
end;

procedure OuvrirBaseDonnee(CheminAcces:string; var b:BaseDonnee);
begin
assign(b,CheminAcces);
reset(b);
end;

procedure AjouterDonnee(var b:BaseDonnee;d:Donnee);
begin
seek(b,filesize(b));
write(b,d);
end;

procedure AfficherBaseDonnee(var b:BaseDonnee);
var d:Donnee;
begin
seek(b,1);
while not eof(b) do
      begin
      read(b,d);
      writeln;
      LireDonnee(d);
      readln;
      end;
end;

procedure Analyser(var b:BaseDonnee);
var d:Donnee; n1,n2,n3,n4,n5,n6,n7:longint; r1,r2,r3:real;
begin
writeln('---- ANALYSE DE LA BASE DE DONNEE ---'); writeln;
n1:=0; n2:=0; n3:=0; n4:=0; n5:=0; n6:=0; n7:=0;
seek(b,1);
while not eof(b) do
      begin
      read(b,d);
      if d.citadin then begin
                        inc(n1);
                        if d.revenu>40000 then begin
                                               inc(n2);
                                               n3:=n3+d.niveau;
                                               end;
                        if d.niveau=4 then n4:=n4+d.revenu;
                        end;
      if d.age>30 then  begin
                        inc(n5);
                        if d.niveau>=3 then inc(n6);
                        end;
      if (d.niveau=4) and (d.revenu>60000) then inc(n7);
      end;
if n2>0 then begin
              writeln('Niveau d''etude moyen des citadins gagnant plus de 40000 euros par an :');
              r1:=real(n3)/real(n2); writeln('       ',r1:0:4);
              writeln;
              end;
if n5>0 then begin
             writeln('Pourcentage des plus de 30 ans de niveau d''etude collegial ou universitaire :');
             r2:=100*real(n6)/real(n5); writeln('       ',r2:0:2);
             writeln;
             end;
if n1>0 then begin
             writeln('Salaire annuel moyen des citadins de niveau universitaire :');
             r3:=real(n4)/real(n1); writeln('       ',r3:0:2);
             writeln;
             end;
writeln('Nombre d''universitaires gagnant plus de 60000 euros mensuels :');
writeln('       ',n7);
end;

var b:BaseDonnee;
    i,n:integer;
    s:string;
begin
writeln('Creer une nouvelle base de donnee, ou utiliser une precedente ?');
write('1. Nouvelle, 2. Ancienne : '); readln(n); writeln;
write('Chemin d''acces = '); readln(s); writeln;
if n=1 then CreerBaseDonnee(s);
OuvrirBaseDonnee(s,b);
write('Ajouter combien de donnees a la base ? '); readln(n); writeln;
for i:=1 to n do
    AjouterDonnee(b,SaisieDonnee);
Analyser(b);
writeln; writeln('Fin du programme. Appuyer sur Entree'); readln;
end.Si bien sûr tu avais des questions... je t'expliquerais ce que j'ai fait !

stan · Answer

J'ai eut ton premier message, et j'essayais de reecrire mon programme en introduisant une fiche ou un tableau, j'aime bien la correction que tu as fait, ca facilite la comprehenssion, pour ce qui est du deuxieme programme que tu as ecrit je suis encore en train de le lire, et j'avoue que il m'a l'air pas mal difficile a comprendre, il y'a plusieur expression que je ne connais pas encore....

stan · Answer

loll moi je ne fais que debuter en programmation, et je le fais par simple interet .......


Disons que je ne suis pas encore a travailler avec les procedures, il y'a beaucoups de terme que je ne comprend pas encore, mais j'avoue que c'est fantastique, de pouvoir creer une base de donnee et y avoir acces, ......j'ai essayer de faire fonctionner ton programme, j'ai du effacer toute les lignes ou il y'avait marquer real (ex; r1:=real(n3)/real(n2); writeln('       ',r1:0:4);)

J'arrive a rentrer les donnees, mais au niveau de l'analyse, ce n'est pas exactement ce j'essaye d'avooir.

moi j'essaye :

afficher le niveau d'etude et l'annee de naissance pour les citadin qui gagneplus de 40 000 par an,
afficher la proportion de citadin et de ruraux de plus de 30 ans qui ont finit au moin des etudes collegial
afficher le salaire annuel moyen des citadins qui un un diplome universitaire
afficher le nombre de personne qui ont fait l'universitee et qui gagne plus de 60 000.

stan · Answer

ok, la ca fonctionne, que signifie les n1 a n7  et r1,r2,r3, les resultat ne sont pas exactement ce a quoi je m'attendait,

writeln; writeln('Quel est votre age ?'); {ici, c'est l'annee de naissance que je veux entrer.}

writeln('Niveau d''etude moyen des citadins gagnant plus de 40000 euros par an : ' )   {ici, c'est l'annee de naissance et le niveau d'etude qui dois etre doit etre donnee apres analyse} 

{ donnez la proportion de citadin et de ruraux par niveau d'etude}

writeln('Pourcentage des plus de 30 ans de niveau d''etude collegial ou universitaire :');{ ici, c'est le salaire annuel moyen des ruraux de plus de 30 ans de niveau d''etude collegial ou universitaire}

stan · Answer

Merci pour se complement d'information....


writeln('Niveau d''etude moyen des citadins gagnant plus de 40000 euros par an : ' ) {ici, c'est l'annee de naissance et le niveau d'etude qui dois etre doit etre donnee apres analyse}
Est-ce que ça veut dire que tu veux afficher toutes les années ? ou faire une année moyenne ? un tableau de statistique sur les années ? même questions pour le niveau d'étude... 

{ ici, c'est toutes les annees, et niveau d'etude qui y corespond qui vont etres afficher}



writeln('Pourcentage des plus de 30 ans de niveau d''etude collegial ou universitaire :');{ ici, c'est le salaire annuel moyen des ruraux de plus de 30 ans de niveau d''etude collegial ou universitaire}
comme ça avait été dit auparavant je croyais que c'était un pourcentage que tu voulais... ça aussi on peut facilement le modifier... 

{ oui c'est en pourcentage, mais du salaire annuel moyen des ruraux de plus de 30 ans de niveau d''etude collegial ou universitaire}

KX · Answer

J'ai opéré à quelques modifications dans quasiment toutes les procédures, donc j'ai remis tout le code...
Voir mes notes liées aux const en tout début de code, et celles liées aux n1...n6 juste après le codeprogram stan;

const AEC=2008; // Année En Cours
      ALI=1900; // Année Limite Inférieure (une année de naissance inférieure fera planter le programme)
      ALS=2000; // Année Limite Supérieure (une année de naissance supérieure fera planter le programme)

type Donnee=record
     annee:integer;
     niveau:byte; // le type byte va de 0 à 255
     citadin:boolean; // false si rural
     revenu:longint;  // longint atteinds les +/- 2^31 (seulement +/- 2^16 pour integer)
     end;

     BaseDonnee=file of Donnee;

procedure LireDonnee(d:Donnee);
begin
if d.citadin then write('Citadin')
             else write('Rural  ');
write(' de ',d.annee,' de niveau ');
case d.niveau of
     1:write('primaire     ');
     2:write('secondaire   ');
     3:write('collegial    ');
     4:write('universitaire');
     end;
writeln(' touchant ',d.revenu:10,' euros annuels');
end;

function SaisieDonnee:Donnee;
var b:byte;
begin
writeln; writeln('---- SAISIE DES DONNEES ----'); writeln;
b:=0;
while (b=0) or (b>2) do
      begin
      writeln('Vivez-vous en ville (1) ou a la campagne (2) ?');
      write('Reponse : '); readln(b);
      end;
      result.niveau:=0;
result.citadin:=(b=1);
writeln; writeln('Quel est votre annee de naissance ?');
write('Reponse : '); readln(result.annee); writeln;
while (result.niveau=0) or (result.niveau>4) do
      begin
      writeln('De quel niveau est votre diplome ?');
      writeln('       Primaire (1), Secondaire (2), Collegial (3) ou Universitaire (4)');
      write('Reponse : '); readln(result.niveau);
      end;
writeln; writeln('Quel est votre revenu annuel ?');
write('Reponse : '); readln(result.revenu);
writeln;
end;

procedure CreerBaseDonnee(CheminAcces:string);
var b:BaseDonnee;
begin
assign(b,CheminAcces);
rewrite(b);
close(b);
end;

procedure OuvrirBaseDonnee(CheminAcces:string; var b:BaseDonnee);
begin
assign(b,CheminAcces);
reset(b);
end;

procedure AjouterDonnee(var b:BaseDonnee;d:Donnee);
begin
seek(b,filesize(b));
write(b,d);
end;

procedure AfficherBaseDonnee(var b:BaseDonnee);
var d:Donnee;
begin
seek(b,1);
while not eof(b) do
      begin
      read(b,d);
      writeln;
      LireDonnee(d);
      readln;
      end;
end;

procedure Analyser(var b:BaseDonnee);
var d:Donnee; n1,n2,n3,n4,n5,n6:real;
    t:array[ALI..ALS,1..4] of real; i,j:integer;
begin
writeln('---- ANALYSE DE LA BASE DE DONNEE ---'); writeln;
n1:=0; n2:=0; n3:=0; n4:=0; n5:=0; n6:=0;
for i:=ALI to ALS do
    for j:=1 to 4 do
        t[i,j]:=0;
seek(b,1);
while not eof(b) do
      begin
      read(b,d);
      n1:=n1+d.revenu;
      if d.citadin then begin
                        if d.revenu>40000 then t[d.annee,d.niveau]:=t[d.annee,d.niveau]+1;
                        if d.niveau=4 then begin
                                           n2:=n2+1;
                                           n3:=n3+d.revenu;
                                           end;
                        end;
      if (AEC-d.annee>30) and (d.niveau>=3) then n4:=n4+d.revenu;
      if (d.niveau=4) and (d.revenu>60000) then n5:=n5+1;
      end;
writeln('Niveau d''etude moyen des citadins gagnant plus de 40000 euros par an :');
for i:=ALI to ALS do
    begin
    n6:=t[i,1]+t[i,2]+t[i,3]+t[i,4];
    if n6>0 then writeln('       Natifs de ',i,' : ',(t[i,1]+2*t[i,2]+3*t[i,3]+4*t[i,4])/n6:0:4);
    end;
writeln;
if n1>0 then begin
             writeln('Revenus des plus de 30 ans de niveau d''etude collegial ou universitaire :');
             writeln('       ',100*n4/n1:0:2,' % du total des revenus');
             writeln;
             end;
if n2>0 then begin
             writeln('Salaire annuel moyen des citadins de niveau universitaire :');
             writeln('       ',n3/n2:0:2);
             writeln;
             end;
writeln('Nombre d''universitaires gagnant plus de 60000 euros mensuels :');
writeln('       ',n5:0:0);
end;

var b:BaseDonnee;
    i,n:integer;
    s:string;
begin
writeln('Creer une nouvelle base de donnee, ou utiliser une precedente ?');
write('1. Nouvelle, 2. Ancienne : '); readln(n); writeln;
write('Chemin d''acces = '); readln(s); writeln;
if n=1 then CreerBaseDonnee(s);
OuvrirBaseDonnee(s,b);
write('Ajouter combien de donnees a la base ? '); readln(n); writeln;
for i:=1 to n do
    AjouterDonnee(b,SaisieDonnee);
Analyser(b);
writeln; writeln('Fin du programme. Appuyer sur Entree'); readln;
end.Dans Analyser, j'ai supprimé les r1,r2,r3 et je vais donner un nom à chaque n1...n6 :

n1 : somme des revenus annuels de toutes les personnes sondées
n2 : nombre de citadins ayant un niveau universitaire
n3 : somme des revenus des citadins ayant un niveau universitaire
n4 : somme des revenus des plus de 30 ans ayant un niveau collégial ou universitaire
n5 : nombre d'universitaire touchant plus de 60000 annuel
n6 : nombre de citadins touchant plus de 40000 annuel (pour une année fixée)

t est un tableau qui contient dans chaque case t[i,j] le nombre de citadins touchant plus de 40000 qui sont nés l'année i et qui ont un niveau j...

KX · Answer

--
La confiance n'exclut pas le contrôle

stan · Answer

J'ai toujours de la misere avec les (n), j'ai l'impression qu'ils sont sorties de nulle part, comment est ce que tu attribut que par exemple (n1 : somme des revenus annuels de toutes les personnes sondées ....etc....).

par exemple disont que je veux :

la somme des revenus: des ruraux de plus de 30ans ayant terminer des etude collegiale et universitaire 
nombres: des ruraux de plus de 30 ans ayant terminer des etudes collegiale et universitaire.
en ajoutant des (n)?

et si je veux calculer la proportion de citadins  par niveaux d'etude?
et la proportion de ruraux par niveau d'etude?

KX · Answer

En effet, les n que j'ai mis sont des compteurs qui permettent de "tracer" un caractère spécifiques dans les données, à la fin ces données permettent d'effectuer les calculs nécessaires à ce que tu souhaite faire apparaitre...

Par exemple avec
n2 : nombre de citadins ayant un niveau universitaire
n3 : somme des revenus des citadins ayant un niveau universitaire
On obtient en faisant n2/n3, le revenu moyen d'un citadin de niveau universitaire.

Pour calculer la somme des revenus: des ruraux de plus de 30ans ayant terminer des etude collegiale et universitaire, dans l'algorithme tu rajoute un n7 (par exemple), que tu place dans le code :      if (AEC-d.annee>30) and (d.niveau>=3) then begin
                                                 n4:=n4+d.revenu;
                                                 if not d.citadin then n7:=n7+d.revenu;
                                                 end;Par contre pour calculer "par niveau d'étude", on a le choix de différencier "à la main" (c'est à dire avec des n) chacun des 4 cas, ou alors de le faire avec un tableau comme je l'ai fait pour différencier les années
(il faut dire que j'avais pas envie de faire à la main les 101 années  * 4 niveaux d'etudes=404 n différents ! lol)

Toute la technique réside à placer les compteurs au bon endroit... Dans le cas contraire on obtiendra pas le résultat attendu (il faut aussi se méfier de la division par 0 qui est mortelle pour le programme...)

stan · Answer

ouff je vais me concentrer sur tout ca demain soir, mais je vais ajouter -la proportion de citadin et de ruraux, en incluant un tableau [1..2,1..4], je comprend beaucoups mieux l'utulisation des (n)......merci....

stan · Answer

ouffff je peux me concentrer a apprendre les pointeur......

KX · Answer

Alors bon courage, les pointeurs sont bien plus difficile à comprendre que ce qu'on a fait...

stan · Answer

je vois deja les maux de tete pointer.......

Algorithme de sondage ( en pascal)

15 réponses

Discussions similaires