37 lines
632 B
ObjectPascal
37 lines
632 B
ObjectPascal
type
|
|
Point = class
|
|
public
|
|
auto property x: real;
|
|
auto property y: real;
|
|
constructor (x,y: real);
|
|
begin
|
|
Self.x := x; Self.y := y;
|
|
end;
|
|
procedure Print; virtual;
|
|
begin
|
|
PABCSystem.Print(x,y);
|
|
end;
|
|
end;
|
|
Circle = class(Point)
|
|
public
|
|
auto property r: real;
|
|
constructor (x,y,r: real);
|
|
begin
|
|
inherited Create(x,y);
|
|
Self.r := r;
|
|
end;
|
|
procedure Print; override;
|
|
begin
|
|
inherited Print;
|
|
PABCSystem.Print(r);
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
var p: Point := new Point(3,5);
|
|
var c: Circle := new Circle(10,8,4);
|
|
p.Print;
|
|
Println;
|
|
c.Print;
|
|
end.
|