Discussion :

[emna1987]

Bonjour à tous.
J'ai ce petit code en Pascal :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program fichier
uses wincrt;
type
etudiant=record
nom:string;
note:real;
end;
fich=file of etudiant;
var
f:fich;
ch:string;
begin
write('introduire le chemin de fichier:');
readln(ch);
assign(f,ch);
{$I-}reset(f) {$I+};
if IOResult<>0 then
begin
write('le fichier n'existe pas:');
rewrite(f);
end;
close(f);
end.

J'utilise Turbo Pascal comme environnement.
Lors de l'exécution il m'affiche "le fichier n'existe pas", suivi d'un message d'erreur Runtime error 3:0001:00A9 et le fichier ne se crée pas sur le disque dur.
Quelqu'un peut-il proposer une solution ?

[FChrisF]

Tout d'abord, pensez à utiliser les balises [ CODE ] pour rendre votre code plus lisible (notamment pour les indentations): cf. ci-après.

En ce qui concerne votre code proprement dit, il s'y trouve 2 erreurs qui empêchent la compilation: pas de caractère ';' à la fin de la 1ère ligne, et chaîne de caractères incorrecte pour le message d'erreur.

Après corrections, votre programme se compile correctement et s'exécute aussi -apparemment- correctement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program fichier;
 
uses wincrt;
 
type
  etudiant=record
    nom:string;
    note:real;
  end;
  fich=file of etudiant;
 
var
  f:fich;
  ch:string;
 
begin
  write('introduire le chemin de fichier:');
  readln(ch);
  assign(f,ch);
  {$I-}reset(f){$I+};
  if IOResult<>0 then
    begin
      write('le fichier n''existe pas:');
      rewrite(f);
    end;
  close(f);
end.

*** EDIT ***
Un gentil modérateur est passé par là et a fait la modification à votre place (code inséré dans des balises [ code ] ).

[l_autodidacte]

Si le fichier existe déjà, le code le dira. S'il n'existe pas, il sera créé et le code le mentionnera :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Program Fichier;
Uses WinCrt;
 
type
  etudiant=record
    nom:string;
    note:real;
  end;
  fich=file of etudiant;
var
  f:fich;
  ch:string;
{===============================}
 Function FichierExiste(NomFichier: STRING): BOOLEAN;
   VAR  f: FILE;
 Begin
   {$I-}
   Assign(f, NomFichier);
   ReSet(f);
   Close(f); { Inopérant si IOResult <> 0 }
   {$I+}
   FichierExiste := (IOResult = 0) And (NomFichier <> '');
 End;
{================================}
Begin
  ClrScr;
  Write('introduire le chemin de fichier: ');
  Readln(ch);
  Assign(f,ch);
  IF FichierExiste(ch) Then
     begin Write('Le fichier ',ch,' existe déjà') ;
           {$I-}ReSet(f){$I+};
     end
  Else
     begin Writeln('Le fichier n''existait pas');
           ReWrite(f);
           Write('Il vient d''être créé',chr(13),'(FichierExiste = ',FichierExiste(ch),')');
     end;
 
  Close(f);
  Readln;
  DoneWinCrt;
End.

C'est une solution comme toute autre !
Il y a un peu de surcharge à nettoyer par la suite(lors de l'utilisation du code)