Exercice TD- Gestion De Vote.pdf

Algorithme Gestion_de_vote Types:

T_candidats=Enregistrement  Nom_complet:Chaine de caractere ; Vote:entier ; Fin T_Tablo:Tableau[3]:T_candidats;

Variables  

Candidats:T_tablo; Password:chaîne de caractère ; Aj :booléen ; // Tester si la liste est deja rempli par des candidats Option_a,Option_g:chaine de caractere ;

Procédure Menu_g()

Début (“choisir l’option écrire(“choisir l’option souhaitée”); écrire(“1/admin”); écrire(“2/Voter”); écrire(“0/Quitter”); Finprocédure

Procédure Menu_g2(Opt_G:chaine de caractere  par adresse)

Début Menu_g(); Repeter lire(Opt_G); si (Opt_G!=”1” et Opt_G!=”0” et Opt_G!=”2” ) alors écrire(“Option introuvable.Ressayez”); Finsi  jusqu’a ( Opt_G=”1” ou Opt_G=”2” Opt_G=”2” ou Opt_G=”0” ) FinProcédure

Procédure Menu_Admin()

Début écrire(“session admin”); écrire(“A/ajouter les candidats”); écrire (“B/Initialiser le vote”); écrire(“C/finaliser le vote et afficher le résultat”); écrire(“D/Changer Mot de passe”); écrire(“0/ Retour”); écrire(“00/Quitter); (“00/Quitter); Finprocédure

Procédure Menu_Admin2(Opt_A:Chaine de caractere  par adresse)

Début Menu_Admin(); R epeter lire(Opt_A):: Si ( Opt_A!=”A” Et Opt_A!=”B” Et Opt_A!=”C” Et Opt_A!=”D” Et Opt_A!=”0” Et Opt_A!=”00”) alors écrire(“Vous avez donné une option invalide. Ressayez”); Finsi  jusqu’a ( Opt_A=”A” ou Opt_A=”B” ou Opt_A=”C” ou Opt_A=”D” ou Opt_A=”0” ou Opt_A=”00” ) Finprocédure

Procédure Menu_vote(L:T_Tablo par adresse) Variable  i:entier

Début Repeter écrire("Veuillez choisir le candidat que vous voulez"); Pour i allant de 0 à 2 faire écrire(i+1, ") ",L[i].Nom_complet"); Finpour lire(i); si i=< 0 ou i>= 4 alors écrire("Vous avez voté pour un candidat inexistant. Ressayez à noveau"); Finsi Jusqu'a (i>0 et i<4) L[i-1].vote<-L[i-1].vote+1 FinProcédure

Procédure Ajouter(L:T_Tablo Par adresse) Variable  i:entier ; test:caractère

Début test← ‘Y’

écrire("Vous allez ajouter 3 candidats"); Si Aj= Vrai Alors écrire("Il y'a dèja 3 candidats dans la liste"); écrire("souhaitez vous écraser les anciens données?"); écrire("Repondez par Y (pour oui) ou N (pour non)"); Repeter Lire(test); Si test!='Y' et Yest!='N' alors écrire ("vous avez donné un caractere invalie. Ressayez"); Finsi

 jusqu'a (test='Y' ou test='N') FinSi

Si Test=’Y’ alors Pour i allant de 0 à 2 faire écrire("Donnez le nom complet du",i+1,"Candidat"); lire(L[i].Nom_complet) Finpour Finsi Aj← Vrai; FinProcédure Procédure Initialiser(L:T_tablo par adresse) Variable  I:entier T0,T1,T2:booléen

Début Si Aj=Faux alors écrire(“La liste de candidats est vide.”); sinon Pour I allant de 0 à 2 faire L[ I ].vote← 0; Finpour écrire(“Initialisation reussie”); Finsi Finprocédure Procédure Finaliser(L:T_Tablo) Variable  I:entier

Début écrire(“Le vote est terminé”); écrire(“Les résultats sont:”); Pour I allant de 0 à 2 faire écrire(“Le candidat N°:”,I+1,” )”, L[I].nom_complet,”a eu”,L[i].vote); FinPour Si L[0].vote>= L[1].vote et L[0].vote>=L[2].vote alors T0← vrai Finsi Si L[1].vote>=L[0].vote et L[1].vote>=L[2].vote alors T1← Vrai Finsi Si L[2].vote>=L[0].vote et L[2].vote>=L[1].vote alors T2← Vrai Finsi écrire(“Le ou les gagnants (même nombre de votes) est/sont”);

Si T0=vrai alors écrire(L[0].Nom_complet,”avec”,L[0].vote); Finsi Si T1=vrai alors écrire(L[1].Nom_complet,”avec”,L[1].vote); Finsi Si T2=vrai alors écrire(L[2].Nom_complet,”avec”,L[2].vote); Finsi Finprocédure Fonction  Test_pass(Pw:Chaine de caractere ):booléen Variable  i:entier ; x:chaine de caractere

Début i← 0; Repeter écrire(“Entrez le mot de passe. Essai N°:”,i+1); lire(x); i←i+1 alors Si x!=Pw écrire(“Mot de passe incorrecte”); Finsi Jusqu’a (X=Pw ou i=3) Retourner  ( X=Pw) // ceci va retourner  soit Vrai pour  X=Pw, soit faux poru X!=PW Finfonction

Procédure Changer_pass(Pw:Chaine de caractere  par adresse)

Début écrire(“Veuillez donnez le nouveau mot de passe:”); lire(PW); écrire(“Modification réussie. Votre nouveau passe est:”,Pw); Fin procédure

Début Aj← faux ; // initialiser le fait que la liste est vide au début du programme écrire(“C’est la premiere foix que vous lancer le programme”); écrire(“Veuilelz donnez un mot de passe pour la session Admin”); Lire(Password); écrire(“Votre mot de passe a été enregistré”);

Repeter Menu_G2(Option_G); Si (Option_G=”1”) alors Si (Test_pass=vrai) alros Menu_admin2(Option_A); Cas de (Option_A) “A”: Ajouter(Candidats); “B”:Initialiser(Candidats); “C”:Finaliser(Candidats); “D”:Changer_pass(Password); “0”:écrire (“Redirection vers le menu principal”); Fincas Finsi sinonsi (Option_G=”2”) alors Menu_vote(candidats) Finsi Si (Option_G=”0” ou Option_A=”00”) alors écrire (“vous avez quitter le programme”); Finsi Jusqu’a (Option_G=”0” ou Option_A=”00”)

Fin.