Exercice 2

program ex2;
const
max = 50;
mmax = 10;
type
t1 = record
nom: string[10];
age: integer;
end;
t2 = array[1..max] of t1;
t3 = record
ident: integer;
donnee: ^t2;
end;
t4 = array[1..mmax] of t3;
var
i, j, k: integer;
t: t4;

begin
writeln('Exercice 2 http://www.Software-DS.com');
writeln('Le programme va initialiser toutes les chaines de caractère');
writeln('à ''?'' et 0 pour les integer.');

for i := 1 to mmax do { Réservation de l'espace mémoire. }
new(t[i].donnee);
for i := 1 to mmax do
begin
t[i].ident := 0;
for j := 1 to max do
begin
t[i].donnee^[j].nom[1] := '?';
t[i].donnee^[j].age := 0;
end;
end;

writeln('initialisation des données terminer.');
{ Cette partie n'était pas au partiel,cela permet de vérifier le fonctionnement du programme }
repeat
writeln('Entrer une valeur entre 1 et 10');
readln(i);
until (i > 0) and (i < 11);

writeln('ident=', t[i].ident : 0);

repeat
writeln('Entrer une valeur entre 1 et 50');
readln(i);
until (i > 0) and (i < 51);

writeln('nom= ', t[i].donnee^[j].nom);
writeln('age= ', t[i].donnee^[j].age : 0);
writeln('Pensez a cliquer sur les pubs :-)');

{ Je n'utilise pas de procedure comme demander dans l'enonce ! }
for i := 1 to mmax do { Libération de l'espace mémoire réservé }
dispose(t[i].donnee);

repeat
writeln('Entrer une valeur entre 1 et 10');
readln(i);
until (i > 0) and (i < 11);

writeln('ident=', t[i].ident : 0);

repeat
writeln('Entrer une valeur entre 1 et 50');
readln(i);
until (i > 0) and (i < 51);

writeln('nom= ', t[i].donnee^[j].nom);
writeln('age= ', t[i].donnee^[j].age : 0);
writeln;
writeln('©2001 All Rights Reserved to www.Software-DS.com');
{ ©2001 All Rights Reserved to http://www.Software-DS.com 06/11/01 }
end.