bonjour
je suis en train de faire un programme en ada95 et je voulais tester les premieres procedures que je viens de créer pour voir si ça marche, et ça ne marche pas.Le probleme se situe sur get(pion.couleur) et get(direction)
sachant que couleur est de type t_couleur:
->type T_Couleur is (Noir,Rouge,Bloquée, Etoile, Libre);
que direction est de type t_direction:
->type T_Direction is record
X : Integer;
y: Integer;
end record;
et que pion est de type t_pion:
->type T_Pion is record
Couleur : T_Couleur := Bloquée;
X : Integer;
Y : Integer;
end record;
il semblerait que le parametre du get ne soit pas valide, mais pourquoi?
voici mon programme
--test
begin
init_plateau(plateau);
afficher_plateau(plateau);
put("on va deplacer un pion : il faut un pion(couleur,x,y) et une direction");
get(pion.couleur);get(pion.x); get(pion.y);get(direction);
deplacer_1_pion(pion,plateau,d irection);
end abalone;
Merci de votre attention
-----