Les Fichiers en pascal

Salut mehdi,
je crois que vous avez un pblème dans la proc trie.
pour les autres très très bien.
bonne chance.
Merci.

salut Mehdi !
en fait ton code je l'ai trés bien compris..je voulais surtout qq codes sur ce qui est des fichiers seq ind ( cles primaires, sec etc..)
merci comme meme !

bein pour acceder sequencielement à un fichier c-à-d d'un enregistrement à un autre il sufit d'une simple boucle !

Program Hello_world;
Types
Enreg = Record
Nom : String[10];
Prenom : String[10];
End;
Var
Fichier : file of enreg;
Bufer : Enreg;
Begin

Assign(Fichier,'c:\Fichier.dat')

Reset(fichier);{ouvrir en mode utilisation + initialise pointeur à 0 }

Read(fichier,bufer){variable déclarée du meme type que l'enregistrement utillisé}

Writeln('Nom','Prenom');
For i:=0 to filesize(fichier)-1 do {N.B : fichier commence de 0 pas de 1}
BEGIN
With bufer do
Begin
Seek(fichier,i)
Writeln(Nom:20,Prenom:20);
End;
END;
ENd.

Si l'ordre n'est pas important, ceci devrait suffire :

type elem=byte; // par exemple
     fichier=file of elem;

procedure supprimer(var f:fichier;e:elem);
var i:longint;
    x:elem;
begin
seek(f,1);
i:=0;
while not eof(f) do
      begin
      read(f,x);
      if x=e then begin
                  i:=filepos(f)-1;
                  break;
                  end;
      end;
if i=0 then writeln('element introuvable')
       else begin
            seek(f,filesize(f)-1);
            read(f,x);
            seek(f,i);
            write(f,x);
            seek(f,filesize(f)-1);
            truncate(f);
            writeln('element supprime a la position ',i);
            end;
end;

Voici de quoi comprendre : le cours de Pascal que je conseille à chaque fois ;-)
Si tu n'es "ni feignant ni bête", tu trouveras rapidement les réponses tout seul
En effet, ta "grosse colle pour tout les mordus de programmation" c'est de la blague !

pfiou tu as de la " chance " de comprendre moi je ne pige rien! merci pour le cours je vais voir ça de suite !

Bonjour mbhk,

Priére m'envoyer l'enoncé du probleme dont vous avez donner la solution le 23 octobre 2007 à 13 h 27 et qui concerne les fichiers en pascal.

Merci d'avance.

program classe;
uses crt;
type
enreg = record
nom:string[10];
prenom:string[10];
classe:string[10];
note:real;
end;
fichier = file of enreg;
var
f : fichier;
bufer,buf1,buf2 : enreg;

(*************************************************************)
Procedure lire(var x:fichier;y : enreg);
var arret : boolean;
begin
arret:=false;
rewrite(x);
repeat
clrscr;
with y do
begin

write('Nom :');readln(nom);
if length(nom)=0 then arret:=true
else
begin
write('Prenom :');readln(prenom);
write('Classe :');readln(classe);
write('Note :');readln(note);
write(x,y)
end;

end;
until arret=true;
end;
(*************************************************************)
Procedure permute(var x,y:enreg);
var temp:enreg;
begin
temp:=x;
x:=y;
y:=temp;
end;
(*************************************************************)
Procedure trie(var buf1,buf2:enreg);
var permutation:boolean;
i:Integer;
begin
reset(f);
seek(f,0);
repeat
permutation:=False;
for i:= 0 to filesize(f)-2 do

begin
seek(f,i);
read(f,buf1);
read(f,buf2);
if buf1.note < buf2.note then
begin
seek(f,i);
Write(f,buf2);
Write(f,buf1);
permutation:=true;
end;
end;
until not permutation;
end;
(*************************************************************)
Procedure consult(var x:fichier; y:enreg);
var i:integer;
begin
reset(x);
writeln ('nom':20,'note':20);
while not eof(x) do
begin
with y do

begin
read(x,y);
writeln (nom:20,note:20:2);
end;
end;
end;
BEGIN
assign(f,'c:\classe.dat');
clrscr;

lire(f,bufer);

trie(buf1,buf2);
writeln('trie ok !');
consult(f,bufer);
readln;
END.

comment creer un fichier