Deklaracja i implementacja pcg

0

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

0

Nikt nie zna Ady?

0

A kompilator nic Ci nie mówi? Z reguły rzuca on błędami z podanymi linijkami...

1 użytkowników online, w tym zalogowanych: 0, gości: 1