Discussion :

[yiyun]

Bonjour/Bonsoir,

J'essaye actuellement de réaliser un petit programme consistant à remplir un fichier avec une suite de noms entrés par l'utilisateur, le prédicat prend en paramètre deux variable une qui est utilisé pour le read et l'autre pour contrôler le nombre d’itération.

Par exemple si je fait ecrire(T,4). alors le programme doit me permettre d'entrer 4 noms et de les écrire dans mon fichier.

Voici le code que j'ai réalisé mais cela ne fonctionne pas et je ne comprend pas pourquoi ... quel est le problème ?

Code :

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

1
2
3
 
ecrire(T,1):-open('a.txt',append,Flux),write('nom: '), read(T),write(Flux,T), nl(Flux), close(Flux).
ecrire(T,N):-N>1, N1 is N-1, open('a.txt',append,Flux),write('nom: '), read(T),write(Flux,T), nl(Flux), close(Flux), ecrire(T,N1).

Merci.

[Trap D]

Bonjour
Qu'est-ce qui ne fonctionne pas exactement ?
La lecture des données?
L'écriture dans le fichier ?
Le programme ne se termine jamais ?

[yiyun]

Bonjour,

Je ne sais pas exactement, je pense qu'il y'a un problème au niveau du read mais je ne comprend pas pourquoi, voici un screen de ce qui se passe à l’exécution :



si j'entre la même valeur a chaque fois ça a l'air de marcher, si j'entre des valeurs différente, j'obtient un false ...

[Trap D]

Pensez à l'unification : une fois que vous avez attribué une valeur à T elle ne peut plus changer, il vous faut donc changer votre code pour que cela n'arrive plus !

[yiyun]

Ah ... je vois, comment puis je faire du coup ? je pourrai rajouter d'autres variables mais cela n'avancerai pas à grand chose sachant que je veux que l'utilisateur soit celui qui défini le nombre d’itération via la variable N ...

[Trap D]

Pourquoi pas simplement

Code :

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

1
2
ecrire(1):-open('a.txt',append,Flux),write('nom: '), read(T),write(Flux,T), nl(Flux), close(Flux).
ecrire(N):-N>1, N1 is N-1, open('a.txt',append,Flux),write('nom: '), read(T),write(Flux,T), nl(Flux), close(Flux), ecrire(N1).

[yiyun]

en effet, simple et efficace ! merci à vous pour votre aide

[Trap D]

Si tout est OK pour vous, cliquez sur