record et array

**Mordokkai** · 24/09/2014, 17h13

Bonjour,

Alors voilà je viens juste de démarrer la programmation en ADA. J'aimerais faire un record comprenant un tableau et deux entiers mais j'ai des erreurs à la compilation.
Pour vous donner une idée du code (package):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
type Tableau is array (Integer range 1..100) of Integer;
type File is private;
 
...
 
type File is  record
Tab: Tableau;
tete: Integer;
queue: Integer;
end record;
 
end File_tableau;

Savez-vous où je me plante ?

Invité · 24/09/2014, 20h50

Bonjour,

Peut-être as-tu oublié le mot réservé "private" ?

Si non, j'en sais rien, quelle est l'erreur ? As-tu bien commencé ton paquetage avec le mot "package" ?

**Mordokkai** · 24/09/2014, 23h37

Ben si j'ai l'impression d'avoir mis en private...
Voilà le package:

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
 
package File_tableau is
 
type File is private;
type Tableau is private;
Taille_Max: constant Positive :=5;
 
function Nouvelle_File return File;
 
function Est_Vide(F: in File) return boolean;
 
function Est_Pleine(F: in File) return boolean;
 
procedure Enfiler(F: in out File; E: Integer);
 
private
type Tableau is array (Integer range 1..Taille_Max) of Integer;
 
type File is  record
Tab: Tableau;
tete: Integer;
queue: Integer;
end record;
 
end File_tableau;

et le package body

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
with Ada.Integer_Text_IO, Ada.Text_IO;
use Ada.Integer_Text_IO, Ada.Text_IO;
 
package body File_tableau is
 
bidon:Integer;
 
procedure enfiler(F: in out File; E: in Integer) is
begin
if(Est_Pleine(F)) then
Put("File pleine");
else 
F.Tab(F.queue):=E;
F.queue:=(F.queue-1) MOD Taille_Max;
end if;
end enfiler;
 
procedure defiler(F: in out File; E: out Integer) is
begin
if(Est_vide(F)) then
Put("File vide");
else 
E:=F(F.tete);
F(F.tete):=-1;
F.tete:=(F.tete-1) MOD Taille_Max;
 
end if;
end defiler;
 
function Nouvelle_File return File is
F:File;
begin
F.tete:=Taille_Max;
F.queue:=Taille_Max;
F.Tab:=(others => -1);
return F;
end Nouvelle_File;
 
function Est_Vide(F: in File) return Boolean is
begin
if(F.tete=F.queue) then return True;
else return False;
end if;
end Est_vide;
 
function Est_Pleine(F: in File) return Boolean is
begin
if(F.queue=F.tete+1) then return True;
else return False;
end if;
end Est_Pleine;
 
begin
bidon:=0;
end File_tableau;

Mais le compilateur me retourne:
file_tableau.adb:23:04: array type required in indexed component
file_tableau.adb:24:01: array type required in indexed component
gnatmake: "file_tableau.adb" compilation error