Deklaracja i implementacja pcg

Odpowiedz Nowy wątek
2011-10-24 17:52
bez_imienia
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

Pozostało 580 znaków

2011-10-27 20:36
bez_imienia
0

Nikt nie zna Ady?

Pozostało 580 znaków

2011-10-27 20:51
0

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


Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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