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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285
|
program Renseignements;
// Nombre maximum de chambres
const
MAXROOMS = 100;
// Classe Hotel (c'est l'hotel qui contient toute les données)
// on utilise le type object car c'est la déclaration la plus simple
// existante pour créer une classe.
// Il facilite également l'enregistrement des données !
type
THotel = object
Count : integer; // Nombre de chambre dans l'hotel
Types : integer; // Nombre de types de chambres
Services : integer; // Nombre de services
Rooms : array[0..MAXROOMS-1] of integer; // Classes des chambres
procedure Initialize;
// Initialise l'objet, à appeler en début de programme
function SaveToFile(aFilename: string):integer;
// Sauvegarde l'objet THotel dans le fichier aFileName
function LoadFromFile(aFilename: string):integer;
// Charge un fichier aFileName dans l'objet THotel
// Méthodes pour demander les informations à l'utilisateur
procedure giveAll; // demande toutes les informations à la suite
procedure giveCount;
procedure giveTypes;
procedure giveServices;
procedure giveRooms;
// Méthodes pour afficher les informations à l'écran
procedure showAll; // Affiche toutes les informations
procedure showCount;
procedure showTypes;
procedure showServices;
procedure showRooms;
end;
// Taille d'un objet THotel
const
SizeOfHotel = SizeOf(THotel);
{ THotel }
procedure THotel.giveAll;
begin
Initialize;
giveCount;
giveTypes;
giveServices;
giveRooms;
end;
procedure THotel.giveCount;
var V: integer;
begin
V := 0;
while (V < 1) or (V > MAXROOMS) do
begin
write('Quel est le nombre de chambres de l''hotel (entre 1 et ', (MAXROOMS),') ? ');
Readln(V);
if V > MAXROOMS then
writeln(' ! chiffre trop grand : ', V)
else
if V < 1 then
writeln(' ! chiffre trop petit : ', V);
end;
Count := V;
writeln('');
end;
procedure THotel.giveRooms;
var V,N: integer;
begin
for N := 0 to Count-1 do
begin
V := 0;
while (V < 1) or (V > 5) do
begin
write('Qu''elle est la classe de la chambe', N+1,' (1 à 5) ? ');
Readln(V);
if V > 5 then
writeln(' ! chiffre trop grand : ', V)
else
if V < 1 then
writeln(' ! chiffre trop petit : ', V);
end;
Rooms[N] := V;
end;
writeln('');
end;
procedure THotel.giveServices;
var V: integer;
begin
V := 0;
while (V < 1) or (V > 100) do
begin
write('Quel est le nombre de services que propose l''hotel (1 a 100) ? ');
Readln(V);
if V > 100 then
writeln(' ! chiffre trop grand : ', V)
else
if V < 1 then
writeln(' ! chiffre trop petit : ', V);
end;
Services := V;
writeln('');
end;
procedure THotel.giveTypes;
var V: integer;
begin
V := 0;
while (V <= 0) or (V > 10) do
begin
write('Combien y''a t''il de type de chambres dans l''hotel (1 a 10) ? ');
Readln(V);
if V > 10 then
writeln(' ! chiffre trop grand : ', V)
else
if V <= 0 then
writeln(' ! chiffre trop petit : ', V);
end;
Types := V;
writeln('');
end;
procedure THotel.Initialize;
var N: integer;
begin
Count := 0;
Services := 0;
Types := 0;
for N := 0 to MAXROOMS-1 do
Rooms[N] := 0;
end;
function THotel.LoadFromFile(aFilename: string):integer;
var f: file of byte;
p: ^byte;
begin
Initialize;
{$I-} // <- interruption des erreurs de fichiers
assign(f, aFileName); // assignation au fichier
reset(f); // ouverture pour la lecture
result := IOResult;
if IOResult = 0 then // si pas de probleme
begin
// lire les données en une seule fois !
p := @self; // <- on pointe l'objet THotel comme etant une suite d'octets
blockRead(f, p^, SizeOfHotel); // <- on écrit cette suite d'octets
result := IOResult;
end;
close(f); // libérer le fichier
{$I+}
end;
function THotel.SaveToFile(aFilename: string):integer;
var f: file of byte;
p: ^byte;
begin
{$I-}
assign(f, aFileName);
rewrite(f);
result := IOResult;
if IOResult = 0 then
begin
p := @self;
blockWrite(f, p^, SizeOfHotel);
result := IOResult;
end;
close(f);
{$I+}
end;
procedure THotel.showAll;
begin
showCount;
showTypes;
showServices;
showRooms;
end;
procedure THotel.showCount;
begin
writeln('Nombres de chambres : ', Count);
writeln('');
end;
procedure THotel.showRooms;
var N: integer;
NS, RS: string;
begin
writeln('+------------+------------+------------+------------+------------+------------+');
writeln('| ch. classe | ch. classe | ch. classe | ch. classe | ch. classe | ch. classe |');
writeln('+------------+------------+------------+------------+------------+------------+');
write('| ');
for N := 0 to Count - 1 do
begin
str(N+1, NS);
case Length(NS) of
1 : write(NS+' ');
2 : write(NS+' ');
3 : write(NS+' ');
end;
case Rooms[N] of
1 : write('* ');
2 : write('** ');
3 : write('*** ');
4 : write('**** ');
5 : write('***** ');
end;
if (((N+1) mod 6) = 0) or (N = Count-1) then
begin
writeln(' |');
writeln('+------------+------------+------------+------------+------------+------------+');
if (N < count-1) then
write('| ');
end
else
write(' | ');
end;
end;
procedure THotel.showServices;
begin
writeln('Nombres de services : ', Services);
writeln('');
end;
procedure THotel.showTypes;
begin
writeln('Nombres de types de chambre : ', types);
writeln('');
end;
var Hotel : THotel;
n : integer;
begin
// Initialisation -----------------------
Hotel.Initialize;
// test 1 Remplissage aléatoire -----------------------
Hotel.Count := 50;
Hotel.Types := 2;
Hotel.Services := 3;
for n := 0 to MAXROOMS-1 do
Hotel.Rooms[n] := random(5)+1;
// Sauvegarde
Hotel.SaveToFile(ParamStr(0)+'.intarray');
// test 2 Chargement -----------------------
Hotel.LoadFromFile(ParamStr(0)+'.intarray'); // appel automatiquement Initialize
// Affichage
Hotel.showAll;
// test 3 Remplissage manuel -----------------------
Hotel.giveAll; // appel automatiquement Initialize
// Affichage
Hotel.showAll;
// Sauvegarde
Hotel.SaveToFile(ParamStr(0)+'.intarray');
// * FIN * //
readLn;
end. |
Partager