Revison Algorithme Bac Info

Exercice N°1
Soit la structure personne constituée par : ✓ Un nom (chaîne de 30 caractères maximum). ✓ Un numéro fiscal (entier). ✓ Un numéro de téléphone (chaîne de 10 caractères maximum). ✓ Un numéro de carte bancaire (entier non signé).
Ecrivez les analyses, les algorithmes des différents modules d’un programme nommée fiche, qui permet la saisie et l’affiche de l’enregistrement d’une personne.
Traduisez ce programme en pascal et l’enregistrez sous le nom Eneg_1 sous le dossier c:\4info\g2.

program fiche; uses wincrt; type personne=record nom:string[30]; fisc:integer; tel:string[10] ; banc:word end; var p:personne; procedure saisie (var individu:personne); begin with p do begin write ('entrer le nom de personne : '); readln (nom); write('entrer son code fiscal : '); readln(fisc); write('entrer son numéro de téléphone : '); readln(tel); write('entrer le numéro de sa carte bancaire : '); readln(banc); end; end; procedure affichage (individu:personne); begin with p do begin writeln('Nom:',nom); writeln('code fiscal:',fisc); writeln('Numéro de téléphone:',tel); writeln('Numéro de la carte bancaire:',banc); end; end; begin saisie(p); writeln ; affichage(p); end.
Exercice N°2

Une société veut informatisez la gestion des ses employés. Elle détint pour chacun les informations suivantes : ✓ Le nom et le prénom (chaîne de caractères). ✓ Le grade (G1, G2, G3, G4) ; ✓ Le code fiscal (un entier non signé). ✓ L’assurance maladie (O pour oui et N pour non).

Le nombre d’employés est N avec 4 ≤ N ≤ 120. Question : Ecrivez un programme modulaire nommé GESTION, qui permet la saisie de toutes les fiches d’enregistrement puis d’afficher : Toutes les fiches un par un. Le nombre d’employés ayant un grade donné et leur pourcentage par Rapport au nombre total des employés.
Traduisez ce programme en pascal. program gesstion; uses wincrt;
type