Accueil     Soft. MacOSX     Soft. MacOS/PC     PHP     Python     ROMS GBA     TP d'info     DBZ-GT     Martingales     Galeries     Liens     @  

program exercice_1;
 const
{ Question a }
 nb_numero = 100;
 type
 gardien = record
  nom: string[20];
  prenom: string[20];
  age: integer;
{ On peu aussi mettre 0..150 }
 end;

 studio = gardien;

 membre = record
 prenom: string[20];
 age: integer;
 end;

 appartement = record
 n: string[20];
 p: array[1..10] of membre;
 end;

 immeuble = record
 g: gardien;
 stud: array[1..20] of studio;
 appart: array[1..20] of appartement;
 end;

 rue = array[1..nb_numero] of immeuble;

 var
   r: rue;
   i: integer;

procedure efface (var i: immeuble);
{ Question c }
 var  j, k: integer;
 begin
 for j := 1 to 20 do
 i.stud[j].nom := '';
 for j := 1 to 20 do
 begin
 i.appart[j].n := '';
 for k := 1 to 10 do
 i.appart[j].p[k].prenom := '';
 end;
end;
{ Fin de 'efface' }

function recensement (r: rue): integer;
{ Question d }
 var  c, i, j, k: integer;
 begin
 c := 0;
{ la variable c est un compteur }
 for i := 1 to nb_numero do
 begin
 for j := 1 to 20 do
{ Les studios }
 if r[i].stud[j].nom <> '' then
 c := c + 1;

 for j := 1 to 20 do
{ Les appartements }
 for k := 1 to 10 do
 if r[i].appart[j].p[k].prenom <> ''  then
 c := c + 1;
end;

 c := c + 100;
{ il ne faut pas oublier les gardiens des immeubles  }
 recensement := c;
 end;
{ Fin de 'recensement' }


begin
{ Corps du programme }
 { Question b }

 with r[12].stud[5] do
 begin
 nom := 'Dupont';
 prenom := 'Paul';
 age := 20;
 end;

 with r[5].appart[10] do
 begin
 n := 'Dubois';
 p[1].prenom := 'Claude';
 p[2].prenom := 'Dominique';
 p[1].age := 39;
 p[2].age := 40;
 for i := 3 to 10 do
{ Il n'y a pas d'occupant }
 p[i].prenom := '';
 end;

 
{ ©2001 All Rights Reserved to http://www.Software-DS.com }
end.





Haut de la page - Page précédente - Page générée en 0.00188 sec.
Recherche personnalisée
 

1845020 visiteurs.   ©2001-2023 All Rights Reserved to Software-DS.com
Made with a mac  
Confidentialité