Erreur code source pascal

Résolu/Fermé

glennog Messages postés 293 Date d'inscription jeudi 3 janvier 2013 Statut Membre Dernière intervention 19 novembre 2013 - 6 févr. 2013 à 01:08
glennog Messages postés 293 Date d'inscription jeudi 3 janvier 2013 Statut Membre Dernière intervention 19 novembre 2013 - 6 févr. 2013 à 02:18

Bonjour,

je suis débutant sur les fichiers en langage PASCAL , et j'ai essayé de m'exercer et j'ai fait ceci :



program exemple;
uses crt;

type fichier = file of integer;

var 
     nombre : integer;
     ffichier : fichier;

begin

           nombre :=  5;
           assign(ffichier,'fichier.txt');

           rewrite(ffichier);
           write(ffichier,nombre);
           read(ffichier,nombre);

end.

mais à chaque fois que je compile , j'obtiens l'erreur :

Error 100: Disk read error;

Pourriez vous me dire ce qui ne va pas dans ce code ??

A voir également:

Erreur code source pascal
Erreur 0x80070643 - Guide
Turbo pascal download - Télécharger - Édition & Programmation
Code asci - Guide
Erreur vidéo freebox ✓ - Forum TV & Vidéo
My pascal - Télécharger - Édition & Programmation

2 réponses

Réponse 1 / 2

KX Messages postés 16734 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 24 avril 2024 3 015
6 févr. 2013 à 01:36

C'est à ce moment là qu'il faut te servir des {$I-} et {$I+} dont on parlais dans ta discussion précédent À quoi sert {$I-} ou {$i+} dans programme PASCAL, afin de savoir à quelle étape du programme ça plante !

En l'occurence, le problème est dans le read, car en faisant un rewrite, tu effaces toutes les données du fichier, puis tu fais un write pour écrire dans le fichier, mais ta tête de lecture est alors à la fin du fichier, et il n'y a rien à lire à cet endroit là.
Pour lire la valeur que tu as écrite juste avant, il faut revenir au début du fichier avec seek.

program exemple;

uses KX;

type fichier = file of integer;

procedure traceIO(text:string);
var io:integer;
begin
    io:=IOResult;
    if io=0
    then writeln(text,' : OK')
    else writeln(text,' : Error ',io);
end;

var 
     nombre : integer;
     ffichier : fichier;
begin
     nombre :=  5;

{$I-}
     assign(ffichier,'fichier.txt');
     traceIO('assign');

     rewrite(ffichier); 
     traceIO('rewrite');

     write(ffichier,nombre);      
     traceIO('write');

     nombre:=0;

     seek(ffichier,0);        
     traceIO('seek');

     read(ffichier,nombre);
     traceIO('read');
{$I+}

     writeln('nombre lu = ',nombre);
end.

Réponse 2 / 2

glennog Messages postés 293 Date d'inscription jeudi 3 janvier 2013 Statut Membre Dernière intervention 19 novembre 2013 4
6 févr. 2013 à 02:18

merci beaucoup pour ta correction et tes commentaires , ta correction repond à plusieurs questions que je me posais ,
merci

Discussions similaires

Problème de décodeur TV Bouygues Telecom

Instagram "Désolé, une erreur s'est produite"

[référencement] Ne pas être référencé

Orange - Erreur P01 Netflix

Decodeur Orange erreur S05-05

Discussions similaires

Newsletters