PPT Slide
generic task SHIP is
"specification"
"body"
end SHIP
task QE2 is new SHIP
task SHIP (1 . . . . 1000) is
"specification"
"body"
end SHIP
procedure SHIPS is
task type SHIP ;
type SHIP_PTR is access SHIP ;
FLEET : array (1 . . . . 100) of SHIP_PTR ;
task body SHIP is separate ;
begin
for I in 1 . . . 100 loop
FLEET (I) := new SHIP ;
end loop ;
exit
end SHIPS ;
Previous slide
Next slide
Back to first slide
View graphic version