Écrire dans un fichier à partir de données d'un tableau

[dalfred]

Bonjour,

Je n'ai pas trop l habitude de manier les fichiers en pascal (erreur de compilation--> pour les voir si vous pouvez le compiler c'est plus simple), merci de m aider (le but étant de copier dans le fichier la classe de chaque chambre qui a été rentrée dans le tableau, c'est a dire recopier dans le fichier ce qui a été mis dans le tableau):

program Renseignements;
const MAX=100;
type classeChambre=array[1..MAX] of integer;
	 fichier = file of integer;
	 classes = record
	 
var Tab : classeChambre;
	classesChambre : fichier;
	
procedure descriptionHotel( var Tab : classeChambre);
Var i, n, x, y : integer;
	

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);
		
		for i:=1 to n do
		begin
		
		writeln('Veuillez préciser la classe de la chambre n°',i);
		readln(Tab[i]);
		assign(classesChambre, 'classroom.txt');
		reset(classesChambre);
		write(classesChambre, Tab[i]);
		close(classesChambre);
		
		end;	
end;

begin

descriptionHotel( Tab );

end.

Au revoir;
-----

[Jack]

Et quelle est la question exactement?

Le plus simple serait de nous donner les messages d'erreur que tu ne comprends pas.

A+

[dalfred]

En fait, je l'ai modifié légèrement, il compile mais le problème c'est qu'il ne fait pas ce que je veux mais je ne comprends pas pourquoi. Normalement il devrais creer un fichier et inscrire les données entrées par l'utilisateur, mais il ne le fait pas.

Voici le probleme, si vous voyez le probleme merci de le dire :

program renseignements;
const MAX=100;
type classeChambre=array[1..MAX] of integer;
	 
var Tab : classeChambre;
	classesChambre : text;
	i, n, x, y : integer;

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);
		
	for i:=1 to n do
	begin		
		writeln('Veuillez préciser la classe de la chambre n°',i);
		readln(Tab[i]);		
	end;	

	assign(classesChambre, 'renseignement.txt');
	rewrite(classesChambre);
	for i:=1 to n do
		writeln(classesChambre, Tab[i]);
	
end.

[Jack]

Mes connaissances en Pascal remontent à très loin. Mais, ce que je trouve bizarre c'est que, comme ans tous les langages de ce genre, il faut ouvrir le fichier, ce que je ne vois pas dans ton programme source.

A+

[A voir en vidéo sur Futura]

[dalfred]

Oui pardon j ai fait le copier coller du programme ou j avais oublié de mettre "ouvrir le fichier"


soit reset(classeschambre) que j ai placé juste après rewrite(classesChambre) mais quand j execute au moment ou ca devrait ouvrir le fichier ca met runtime error 105

[Jack]

Il faut tout deviner: le reset, tu le fais avant ou après le rewrite? Tu n'as pas un debugger afin de tester ton programme en pas à pas et de déterminer sur quelle instruction se produit l'erreur?

A+

[dalfred]

Comme je l'ai mis dans mon message precedent le reset est placé après rewrite, mais mon programme compile bien c'est juste que la création du fichier avec les données qui devraient se copier dedans ne se fait pas.

[Jack]

Comme je l'ai mis dans mon message precedent le reset est placé après rewrite

Désolé, j'ai lu trop vite. Mais cet ordre n'est pas logique: tu ne peux pas te replacer en début de fichier avant de l'avoir ouvert. C'est un peu comme au temps des cassette VHS si tu voulais rembobiner avant d'avoir inséré la cassette.

mais mon programme compile bien c'est juste que la création du fichier avec les données qui devraient se copier dedans ne se fait pas.

Je ne faisais pas allusion à une erreur de compilation, mais à une erreur d'exécution puisque je faisais référence au debug en pas à pas.

A+

[dalfred]

Si je le place avant ca fait la meme chose.

[Jack]

et pour le debugger?

[dalfred]

Comment on debugge ?

[Jack]

Comment veux-tu que je le sache? Je ne sais pas avec quoi tu programmes.

A+

[Jack]

Je rappelle que d'après les règles participatives du forum, tu aurais dû préciser quel était ton compilateur:
http://forums.futura-sciences.com/pr...eau-forum.html

A+

[dalfred]

Compilateur: geany, execution avec cmd windows

[Jack]

geany est un compilateur?

A+

[Jack]

je viens de découvrir ce qu'était geany en fuinant un peu. C'est juste une interface finalement. Il existe un plugin pour ajouter les fonctions de mise au point (debug). Un exemple ici:
http://blog.greweb.fr/2009/07/geany/