Discussion :

[Gildas777]

Bonjour tous le monde,

Je suis un petit nouveau en programmation et je viens chercher de l'aide sur ce forum. Je tiens à préciser que j'ai pris le temps de lire les FAQ en ligne au sujet de PASCAL, mais mon niveau ne s'est guère amélioré.

Voilà mon problème:

J'ai un fichier texte et je n'arrive pas à l'ouvrir, malgré toutes les explications que j'ai pu obtenir a droite, à gauche, ca amrche pas, impossible! Le fichier en lui même est plein de nombre réels qui doivent être classés. Mon problème là consiste a réussir a ouvrir mon fichier texte, je bloque sévèrement .

Voilà mon code:

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
PROGRAM exercice1 ;
 
 var
F: Text; 
X:real;                                                                                                                                    
begin
Assign(F,'D:\Documents\Dossier pascal\Travaux validés:\fichier1.txt');       
Reset(F);
while not eof (F) do                                                        
begin                                                                         
ReadLn(F,X);
writeln(F,X)                                                                                                                                               
end;
close(F);                                                                                  
 end.

Mon programme compile bien, mais impossible d'afficher un résultat, l'écran noir apparaît une fraction de secondes puis il disparaît. .

Ca fait 6 heures que je travaille sur ce problème et j'arrive à rien :/ .

Merci pour votre aide.

Gildas.

ps: n'hésitez pas à em contacter en MP si besoin.

ps2: comment fait-on pour poster du code de manière fluide?

[M.Dlb]

ps2: comment fait-on pour poster du code de manière fluide?

Il faut utiliser la balise CODE (bouton #) en haut de la fenêtre du message.

Sinon pour ton code, tu écris l'output dans le fichier, ce qui pose problème puisque c'est un fichier que tu ouvres pour la lecture. Tu devrais écrire l'output sur la console en remplaçant ton dernier writeln par :

Code :

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

writeln(X);

[batyann811]

Code :

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

Assign(F,'D:\Documents\Dossier pascal\Travaux validés:\fichier1.txt');

Le ':' après 'Travaux validés' dans le nom de fichier me semble étrange non ?

[M.Dlb]

Ah oui, il faut aussi éviter les noms qui ne sont pas à la norme 8.3 (cad avec des espaces, et des noms longs).

[droggo]

Goa,

Ah oui, il faut aussi éviter les noms qui ne sont pas à la norme 8.3 (cad avec des espaces, et des noms longs).

Peut-être, mais comme le compilateur n'est pas précisé (TP, probablement) ...

[Gildas777]

Cher tous,

Le code marche! merci beaucoup!

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
 
PROGRAM exercice1 ;
 
var
F: text ;
X: real;
begin
Assign(F,'D:\Documents\Dossier pascal\Travaux validés\fichier1.txt');
Reset(F);
while not eof(F) do
begin                                                                         
ReadLn(F,X);
writeln(X:2:2);
end;
readln;
end.

Merci beaucoup!

Gildas.