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

Exercice 3

program ex3;
const
nnotes = 3;
nfiches = 20;

type
fiche = record
num: integer;
nom: string;
groupe: char;
notes: array[1..nnotes] of real;
end;
pfiche = ^fiche;
session = array[1..nfiches] of pfiche;

var
pf: pfiche;
s: session;
ps: ^session;

procedure alloue (p: session);
var
i: integer;
begin
for i := 1 to nfiches do
{ Allocation }
new(p[i]);
end;
{ Fin de 'alloue' }

procedure initialisation (p: session);
{ initialisation des données }
var
i, j: integer;
begin
for i := 1 to nfiches do
begin
p[i]^.num := i;
p[i]^.nom := '----------';
p[i]^.groupe := '-';
for j := 1 to nnotes do
p[i]^.notes[j] := -1.0;
end;
end;
{ Fin de 'initilisation' }

procedure affiche (p: session);
var
i, j, compteur: integer;
begin
compteur := 0;
for i := 1 to nfiches do
{ Affichage }
begin
writeln('Classement:', p[i]^.num : 0, ' Nom:', p[i]^.nom, ' Groupe:', p[i]^.groupe);
for j := 1 to 3 do
write(' ', p[j]^.notes[j] : 0);
compteur := compteur + 1;
writeln;
if ((compteur mod 10) = 0) then
readln;
end;

end;
{ Fin de 'affiche' }

procedure desalloue (p: session);
var
i: integer;
begin
for i := 1 to nfiches do
dispose(p[i]);
end;
{ Fin de 'desalloue' }


begin
(* Corps du pograme *)
writeln('Exercice 3: un air de deja vue :-) http://www.Software-DS.com');
new(ps);

alloue(ps^);
initialisation(ps^);
affiche(ps^);
desalloue(ps^);

dispose(ps);
writeln;
writeln('©2001 All Rights Reserved to www.Software-DS.com');
{ ©2001 All Rights Reserved to http://www.Software-DS.com 30/10/01 }
end.





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

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