Witam!
Chciałbym napisać w Adzie pakiet zawierający typ pkt z funkcjami procedurami i funkcja składowymi. Napisałem takie coś:
package pcgPkt is
type Pkt (x, y : Float) is private;
procedure put(p : Pkt);
procedure get(x, y Float);
function spr3pkt(a, b, c : Pkt) return Boolean;
private
type Pkt is (x, y : Float) is record
self_x : Float;
self_y : Float;
end record;
end pcgPkt;
package body pcgPkt is
procedure put (p : Pkt)is
begin
Put(self_x); Put(";"); Put(self_y);
end put;
procedure get(x, y : Float) is
begin
self_x := x;
self_y := y;
end get;
function spr3pkt(a, b, c : pkt) is
begin
null;
end spr3pkt;
end pcgPkt;
Co jest w tym kodzie nie tak?
pozdrawiam