PASCAL 7
Utilisateur anonyme
-
byakhlefncr Messages postés 260 Date d'inscription Statut Membre Dernière intervention -
byakhlefncr Messages postés 260 Date d'inscription Statut Membre Dernière intervention -
slt
g un problém en execution de mon program en Turbau pascal 7{il permet d'ecrire sur un fichier texte : voila la code source
pegram fichier;
uses Dos ;
var
f:Text;
ch:string;
begin
assign (f,'c:\Mehdi.Txt);
write ('saisire un texte...');readln(ch);
writeln(f,ch); {ici il me dit file not open for output !!!!! meme si mon fichier en lecture et ecriture}
close(f);
end.
quelqun peut me donner 1 coupde main SVP et merci pour l'aide :)
g un problém en execution de mon program en Turbau pascal 7{il permet d'ecrire sur un fichier texte : voila la code source
pegram fichier;
uses Dos ;
var
f:Text;
ch:string;
begin
assign (f,'c:\Mehdi.Txt);
write ('saisire un texte...');readln(ch);
writeln(f,ch); {ici il me dit file not open for output !!!!! meme si mon fichier en lecture et ecriture}
close(f);
end.
quelqun peut me donner 1 coupde main SVP et merci pour l'aide :)
A voir également:
- PASCAL 7
- Photofiltre 7 - Télécharger - Retouche d'image
- Turbo pascal - Télécharger - Édition & Programmation
- Clé windows 7 - Guide
- My pascal - Télécharger - Édition & Programmation
- Delphi 7 - Télécharger - Langages
2 réponses
Salut,
il te manque l'instruction d'ouverture du fichier après assign(f,'c:\Mehdi.Txt);
- soit :
reset(f); // pour ouvrir le fichier et continuer d'ecrire à sa fin
- soit :
rewrite(f); // pour créer le fichier s'il n'existe pas et le recréer s'il existe déja.
Bonne chance.
il te manque l'instruction d'ouverture du fichier après assign(f,'c:\Mehdi.Txt);
- soit :
reset(f); // pour ouvrir le fichier et continuer d'ecrire à sa fin
- soit :
rewrite(f); // pour créer le fichier s'il n'existe pas et le recréer s'il existe déja.
Bonne chance.
Salut,
'Reset' fonctionne si le fichier existe. s'il n'existe pas il faut utiliser 'rewrite'.
J'ai essayer ce code et ça marche bien.
----------------------------------------------------------
Begin
assign (f,'c:\Mehdi.Txt');
Rewrite(f);
write ('saisire un texte...');
readln(ch);
writeln(f,ch); {ici il me dit file not open for output !!!!! meme si mon fichier en lecture et ecriture}
close(f);
End.
-----------------------------------------------------------
Bonne chance
'Reset' fonctionne si le fichier existe. s'il n'existe pas il faut utiliser 'rewrite'.
J'ai essayer ce code et ça marche bien.
----------------------------------------------------------
Begin
assign (f,'c:\Mehdi.Txt');
Rewrite(f);
write ('saisire un texte...');
readln(ch);
writeln(f,ch); {ici il me dit file not open for output !!!!! meme si mon fichier en lecture et ecriture}
close(f);
End.
-----------------------------------------------------------
Bonne chance
et ca marche Pas le prob !!!!
:(
ta pa une autre solution !!!!!