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

Exercice 4

program ex4;
const
n = 7;
{ On peut aussi utiliser un 'integer' }
type
tab_type = array[1..n] of integer;
var
i: integer;
T, R: tab_type;


procedure ranger (n: integer; T: tab_type; var R: tab_type);
var
i, j: integer;
begin
for i := 1 to n do
for j := 1 to n do
if T[i] > T[j] then
R[i] := R[i] + 1;
end;
{ Fin de 'ranger' }

procedure affiche (n: integer; T, R: tab_type);
var
i, j: integer;
begin
for i := 1 to n do
for j := 1 to n do
if R[j] = i then
writeln(T[j] : 3);
end;
{ Fin de 'affiche' }

begin
{ corps du programme }
for i := 1 to n do
R[i] := 1;

T[1] := 12;
T[2] := 9;
T[3] := 23;
T[4] := 4;
T[5] := 7;
T[6] := 5;
T[7] := 10;

ranger(n, T, R);
affiche(n, T, R);
writeln('http://www.Software-DS.com');
{ Le prog remplit un tableau en mettant dans la i eme case la somme de 1 à i }
{ http://www.Software-DS.com 13/11/01 }
end.





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

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