j'ai realisé un petit programme qui permet de lire l'heure systeme, et je veux le rendre sous forme d'une tache mais en vain. voila le programme:
procedure Priority is
fix : constant := 20;
type Tableau is array(1..12,1..24) of Integer;
Temp : Tableau;
task type Heure is
entry grab(Mois: Integer;Heure: Integer);
end heure;
a: heure;
task body Heure is
M : Integer;
S : Integer;
H : Integer;
begin
s := integer(Seconds(Clock));
H := S/3600;
m := month(clock);
accept grab(Mois: Integer;Heure: Integer) do
m:= mois;
h:= heure;
end grab;
end heure;
x,y : Integer;
begin
A.Grab(x,y);
put("hour:");
put(Integer'Image(y));
put(" month:");
Put(Integer'Image(X));
end priority;
