A voir également:
- Tri d'un fichier
- Fichier rar - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Ouvrir un fichier .bin - Guide
- Fichier host - Guide
2 réponses
bonjour sousou tu es en 4 eme science info?
voila un fichier qui est trié sur le code
PROCEDURE trI(var f: fichier);
var r1, r2: carte;
i, j: integer;
begin
reset(f);
for i:=0 to filesize(f)-2 do
begin
seek(f,i);
read(f,r1);
for j:=i+1 to filesize(f)-1 do
begin
seek(f,j);
read(f,r2);
if r1.code>(r2.CODE) then
begin
{Permutation}
seek(f,i);
write(f,r2);
seek(f,j) ;
write(f,r1);
r1:=r2;
end;
end;
end;
end;
et bonne chance pour les examens
voila un fichier qui est trié sur le code
PROCEDURE trI(var f: fichier);
var r1, r2: carte;
i, j: integer;
begin
reset(f);
for i:=0 to filesize(f)-2 do
begin
seek(f,i);
read(f,r1);
for j:=i+1 to filesize(f)-1 do
begin
seek(f,j);
read(f,r2);
if r1.code>(r2.CODE) then
begin
{Permutation}
seek(f,i);
write(f,r2);
seek(f,j) ;
write(f,r1);
r1:=r2;
end;
end;
end;
end;
et bonne chance pour les examens