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.
|