Les fichiers et les enregistrements avec le langage turbo pascal
Fermé
amiral castor
Messages postés
1
Date d'inscription
vendredi 1 février 2013
Statut
Membre
Dernière intervention
10 février 2013
-
10 févr. 2013 à 23:50
tsarcheikh Messages postés 8 Date d'inscription mercredi 13 février 2013 Statut Membre Dernière intervention 20 septembre 2013 - 14 févr. 2013 à 23:16
tsarcheikh Messages postés 8 Date d'inscription mercredi 13 février 2013 Statut Membre Dernière intervention 20 septembre 2013 - 14 févr. 2013 à 23:16
A voir également:
- Les fichiers et les enregistrements avec le langage turbo pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- Wetransfer gratuit fichiers lourd - Guide
- My pascal - Télécharger - Édition & Programmation
- Supprimer les fichiers temporaires windows 10 - Guide
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? - Forum Graphisme
3 réponses
tsarcheikh
Messages postés
8
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
20 septembre 2013
5
13 févr. 2013 à 03:07
13 févr. 2013 à 03:07
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.
Chris 94
Messages postés
50978
Date d'inscription
mardi 8 janvier 2008
Statut
Modérateur
Dernière intervention
17 février 2023
7 325
10 févr. 2013 à 23:53
10 févr. 2013 à 23:53
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...).
tsarcheikh
Messages postés
8
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
20 septembre 2013
5
14 févr. 2013 à 23:16
14 févr. 2013 à 23:16
OK. Pour la suppression, je l'ai pas bien codé.
13 févr. 2013 à 11:10