Discussion :

[superdj]

Voici ce que j'ai fait; j'ai vu que dans un post vous avez fait une correction d'un exercice similaire mais j'ai du mal à comprendre ce que vous savez fait, donc je vous mets mon bout de programme.

J'ai fait comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
rewrite(f2);
 
   for i:= 0 to filesize(f1)  do begin
      seek(f1,filesize(f1)-i );
      read(f1, x);
      write(f2, x);
   end;

Ceci doit être une procédure qui doit générer dans le fichier 2 l'inverse du fichier 1.

Il y a une autre consigne mais déjà je veux réussir à faire ça; pour le reste, je verrai.

[M.Dlb]

C'est le même code que dans l'autre post. Essaye de comprendre en regardant l'aide en ligne

[Loceka]

Le tiens doit planter tout de suite, non ?

D'après ce que je vois, à la première itération de ta boucle tu te places en fin de fichier et tu essayes de lire un caractère (au delà de la fin du fichier donc).

Pour que ça marche, il faudrait commencer l'itération à 1 et non à 0.

[superdj]

ok et si je me place a 1, il lira le caractere en position 0?

ety oui je c'est qu'il ressemble, mais j'aimerai savoir le faire a ma methode a quoi sa me servirai de copier betemen t l autre.

ou alor je peut faire ceici:

rewrite(f2);

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
for i:= 0 to filesize(f1)-1  do begin
      seek(f1,filesize(f1)-i );
      read(f1, x);
      write(f2, x);
   end;

[Loceka]

Je crois que le mieux pour toi serait que tu essaye de dérouler ton algo à la main (sur une feuille).

Imagine toi un fichier de petite taille (4 ou 5 caractères) et "pense comme la machine", écris chaque appel de procédure/fonction avec les bons arguments et écris les résultats obtenus.

Mais surtout relis bien la doc. de seek(File, Pos) (et mon post précédent aussi, apparement tu n'as pas bien compris ce que je voulais dire).

A part te faire ton algo, je vois pas comment t'aider plus.

[superdj]

je vais y reflechier serieusement , je vais faire se que tu ma di demain matin , et sinon je reviendrai t embeter demain apres midi aurevoir