Les fichiers et les enregistrements avec le langage turbo pascal
amiral castor
Messages postés
1
Statut
Membre
-
tsarcheikh Messages postés 9 Statut Membre -
tsarcheikh Messages postés 9 Statut Membre -
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.
A voir également:
- Les fichiers et les enregistrements avec le langage turbo pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Comment lire les fichiers epub - Guide
- Supprimer les fichiers temporaires - Guide
3 réponses
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.
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.
ajp55
Messages postés
482
Statut
Membre
23
cool tsarcheikh
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...).
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...).
