Bonjour à tous.
J'ai ce petit code en Pascal :
J'utilise Turbo Pascal comme environnement.
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.
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 ?
Partager