les fichiers et les enregistrements avec le langage turbo pascal Fermé

Question

Bonjour, j'aimerais écrire un programme pascal  permettant de d'afficher toutes les informations sur un étudiant à savoir le nom, le prénom, le matricule,le sexe et la classe de l'étudiant.le programme doit contenir des sous programmes que sont les procédures et les fonctions. Le programme permettra également d'ajouter moins un étudiant, de supprimer au  moins un étudiant,de consulter toutes les informations et aussi demander à l'utilisateur s'il veut continuer ou quitter l'application.



Configuration: Windows 7 / Chrome 24.0.1312.57

tsarcheikh · Accepted Answer

Les procedures d'ajout et d'affichage des informations sont les suivantes:

PROCEDURE Ajout (var e:classe; ind:byte );
   Begin  clrscr;
          write (' NOM[',ind,']=       ');  readln(e[ind].nom);
          write (' PRENOM[',ind,']=    ');  readln(e[ind].prenom);
          write (' MATRICULE[',ind,']= ');  readln(e[ind].matr);
          write (' SEXE[',ind,']=   ');  readln(e[ind].sexe);

   End;

PROCEDURE Affichage(e:classe; ind:byte );
  Begin
          writeln(' MATRICULE   :',e[ind].matr);
          writeln(' NOM         :',e[ind].nom);
          writeln(' PRENOM      :',e[ind].prenom);
          writeln(' SEXE     :',e[ind].sexe);
         readln;

PROCEDURE Modification(var el:classe; ind:byte);
 Var  ch:byte;
  Begin
      writeln(' NOM=     ', el[ind].nom);
      writeln(' PRENOM=  ', el[ind].prenom);
      writeln(' MATRICULE= ', el[ind].matricule);
      repeat
        writeln(' 1: Modifier le nom      ');
        writeln(' 2: Modifier le prenom   ');
        writeln(' 3: Modifier le matricule');
        writeln(' 4: Sortir               ');

        writeln(' Donner votre choix '); readln(ch);
      until (ch>=1) and (ch<=4);

     Case (ch) of
      1: begin clrscr;
           writeln(' Mise ... jour le NOM ');
           readln(el[ind].nom);
         end;
       2: begin clrscr;
            writeln(' Mise ... jour le PRENOM ');
            readln(el[ind].prenom);

          end;
       3: begin clrscr;
            writeln(' Mise ... jour le matricule ');
            readln(el[ind].matricule);
          end;
       4: begin
            exit;
          end;
     End; {end du case of}

  End; { end du procedure }
   End;


Maintenant Vous essayerez de voir celle de la suppression et d'ameliorer aussi le programme s'il le faut.

Chris 94 · Answer

Bonsoir,

Deux rappels à ne pas oublier :
- CCM ne fait pas les devoirs. Des conseils peuvent être demandés mais il ne faut pas espérer obtenir la solution.
- Les réponses sont données par des personnes, pas par des robots. Merci d'user des formules de politesse courante (bonjour, merci, s'il vous plait...).

tsarcheikh · Answer

OK. Pour la suppression, je l'ai pas bien codé.

Les fichiers et les enregistrements avec le langage turbo pascal

3 réponses

Discussions similaires