Bonjour,
Après avoir cherché je n'ai toujours pas trouvé comment stocker des informations sur un fichier en Pascal pour que la personne utilisant mon programme n'est pas à chaque fois à rentrer des données fixes pour son hotel (travail sur gestion hotel), si quelqu'un sait, merci de me répondre.
Au revoir.
Bonjour,
Très clair comme demande.
Sais-tu utiliser les fichiers avec Pascal ?
Et si tu nous montrais ton code, qu'on puisse voir ce qui se passe (car en l'état, avec aucune ligne de code, les boules de cristal peinent à trouver).
Si ton message fait référence à un autre sujet que tu aurais ouvert, la meilleure solution était de le poursuivre, et une autre moins bonne était de nous mettre un lien vers le sujet en question.
Bref, tu as choisis la plus mauvaise solution.
Salut,Envoyé par dalfred
Si ce sont des données fixes, tu peux les mettre dans le code directement. A moins qu'elles changent quand même de temps en temps
Pascal c'est vague. A priori, c'est plutôt un problème de library que de langage, donc sans dire les outils que tu utilises, difficile de t'aider
Bonsoir,
J'ai un soucis avec ce programme, ca fait deux semaines que je cherche mais je n'ai pas trouvé et personne me donne de solution, mon but étant de sauvegarder les données sur un fichier ( des données qui pour un hotel ne changeront pas), pour que cela évite de rentrer à nouveaux ces données quand on quitte le programme et qu'on revient dessus. Comme compilateur j utilise geany, mais le programme compile bien, le fichier est aussi créé mais les données ne sont pas toutes écrites.
Voici:
Code:program enregistrementdonnees; const MAX=100; type classeChambre=array[1..MAX] of integer; var Tab : classeChambre; x, n, y, i : integer; procedure enregistrementTexte( var Tab : classeChambre ; nomFichier : String ); var fichierTexte : Text ; begin writeln('Quel est le nombre de chambres de l hotel ? '); Readln(n); writeln('Combien y a t-il de types de chambres ? '); Readln(x); writeln('Quel est le nombre de services que propose l hotel ? '); Readln(y); assign ( fichierTexte , nomFichier ); rewrite ( fichierTexte ); for i:=1 to n do begin writeln('Veuillez préciser la classe de la chambre n°',i); readln(Tab[i]); end; write ( fichierTexte , Tab[i] ); close ( fichierTexte ) end ; begin enregistrementTexte(Tab , ' quaranteDeux . txt ' ); end .
Merci, au revoir.
petite modif à la fin
Code:program enregistrementdonnees; const MAX=100; type classeChambre=array[1..MAX] of integer; var Tab : classeChambre; x, n, y, i : integer; procedure enregistrementTexte( var Tab : classeChambre ; nomFichier : String ); var fichierTexte : Text ; begin writeln('Quel est le nombre de chambres de l hotel ? '); Readln(n); writeln('Combien y a t-il de types de chambres ? '); Readln(x); writeln('Quel est le nombre de services que propose l hotel ? '); Readln(y); assign ( fichierTexte , nomFichier ); rewrite ( fichierTexte ); for i:=1 to n do begin writeln('Veuillez préciser la classe de la chambre n°',i); readln(Tab[i]); end; write (fichierTexte , n ); write (fichierTexte , x); write (fichierTexte , y); write ( fichierTexte , Tab[i] ); close ( fichierTexte ) end ; begin enregistrementTexte(Tab , ' quaranteDeux . txt ' ); end .
Salut,
La partie en rouge ne sauve que l'element "n" de Tab (ou n+1, je sais pas). Il faut faire une boucle comme pour le readln
Aussi, les premiers devrait être des "writeln" probablement. Sinon, ne tu pourras pas séparer les variables quand tu vas relire le fichier.Code:for i:=1 to n do begin writeln(fichierTexte , Tab[i]); end;
Merci, par contre si je veux que mon programme relise automatiquement les données de ce fichier, comment dois je faire ?
Le mieux serait de mettre les données dans un tableau dans lequel chaque case contient une valeur mais ca aussi je sais pas faire (pour stocker une donnée par exemple nombre de chambre dans la cellule de coordonnées A;1), a moins que ayez une meilleure méthode ?
Vu le faible nombre de données, les 3 premières dans des integers individuels avec un nom parlant de préférence. Et pour les "classe de numéro de chambre", un tableau me parait adapté.
Pour lire, c'est pareil : Un truc du genre Readln(fichierText, y);. La valeur dans lue dans fichierTexte est sauvée dans la variable "y". Fais 2 ou 3 essais pour comprendre comment la lecture fonctionne, c'est assez simple.
J'ai essayé de faire ca mais ca ne marche pas (ca compile mais à l execution runtime error)
Code:program enregistrementdonnees; const MAX=100; type classeChambre=array[1..MAX] of integer; var Tab : classeChambre; x, n, i : integer; procedure enregistrementTexte( var Tab : classeChambre ; nomFichier : String ); var fichierTexte : Text ; begin writeln('Quel est le nombre de chambres de l hotel ? '); Readln(n); writeln('Combien y a t-il de classes de chambres ? '); Readln(x); assign ( fichierTexte , nomFichier ); rewrite ( fichierTexte ); for i:=1 to n do begin writeln('Veuillez préciser la classe de la chambre n°',i); readln(Tab[i]); end; writeln (fichierTexte , n ); writeln (fichierTexte , x); for i:=1 to n do begin writeln(fichierTexte , Tab[i]); end; close ( fichierTexte ) end; procedure lireFichier( var x,n : integer); var fichierTexte : Text; begin readln(fichierTexte , n); readln(fichierTexte, x); writeln(n); writeln(x); end; begin enregistrementTexte(Tab , ' quaranteDeux.txt ' ); lireFichier(x, n); end.
FichierTexte n'est pas correctement initialisé. Essaie avec les corrections que j'ai ajouté. Il faudra que tu ajoute la lecture des autres valeurs.
