Bonjour, je rencontre actuellement des difficultés pour écrire des données d'un tableau dans un fichier. Le programme compile bien, le fichier est bien créé, mais lors de son ouverture, il est vide.
Voilà mon code Pascal :
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program Renseignements;
const MAX=100;
type classeChambre=array[1..MAX] of integer;
         fichier = file of integer;
 
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.ods');
                rewrite(classesChambre);
                write(classesChambre, Tab[i]);
                close(classesChambre);
 
                end;
end;
 
begin
 
descriptionHotel( Tab );
 
end.