Вот код программы:
| Код |
PROGRAM Objects_Varl3;
USES Graph,Crt;
TYPE
TLOCATION=OBJECT
x,y:INTEGER;
CONSTRUCTOR Init (initx,inity:integer);
DESTRUCTOR Done;
END;
TPOINT=OBJECT (TLOCATION)
PROCEDURE Show (color:BYTE); VIRTUAL;
PROCEDURE Hide;VIRTUAL;
PROCEDURE MoveTo (newx, newy: INTEGER;color:BYTE) ;
END;
TTREUG=OBJECT(TPOINT)
a,b: INTEGER;
CONSTRUCTOR Init (initx, inity: INTEGER) ;
PROCEDURE Show (color: BYTE) ; VIRTUAL;
PROCEDURE Hide; VIRTUAL;
END;
TGRAPH=OBJECT
grdriver:INTEGER;
grmode:INTEGER;
PROCEDURE Init (gb, gm: INTEGER;path:STRING) ;
PROCEDURE Fin;
END;
CONSTRUCTOR TLOCATION. Init (initx, inity: INTEGER) ;
BEGIN
x:=initx;
y:=inity;
END;
DESTRUCTOR TLOCATION.Done;
BEGIN
WriteLn;
end;
PROCEDURE TPOINT.Show(color:BYTE);
Begin
PutPixel(x,y,color);
END;
PROCEDURE TPOINT.Hide;
Begin
PutPixel (x, y, GetBkColor);
end;
PROCEDURE TPOINt.Moveto(newx,newy:integer;color:BYTE);
BEGIN
hide;
X:=newx;
y:=newy;
Show(color);
End;
Procedure Tgraph.init(gb,gm:integer;path:string);
BEGIN
grdriver:=gb;
grmode:=gm;
IniTGraph(grdriver,grmode, path);
END;
PROCEDURE TGRAPH.Fin;
BEGIN
CloseGraph;
END;
CONSTRUCTOR TTREUG.Init (initx, inity: INTEGER);
BEGIN
TPOINT.Init(initx,inity);
END;
PROCEDURE TTREUG.Show(color:BYTE);
BEGIN
SetColor(Color);
SetFillStyle(1,color);
circle(x,y,20);
FloodFill(x+2,y+2,color);
END;
PROCEDURE TTREUG.Hide;
BEGIN
SetColor (GetBkColor);
SetFillStyle(1,GetBkColor);
circle(x,y,20);
FloodFill(x+2,y+2,GetBkColor);
SetColor(GetColor);
END;
VAR
pt:TTREUG;
world:TGRAPH;
x,y:INTEGER;
col:BYTE;
ax,bx,ay,by,rad:INTEGER;
px,py,v:byte;
alf:REAL;
Begin
CLRSCR;
WriteLn('DVIZENIE ZAKRASHENNOGO KRUGA PO KRAJU EKRANA');
col:=12;
Write('ENTER');
readln;
World.Init(DETECT,DETECT,'C: \TP7\BGI');
Delay(1000);
X:=20;
Y:=20;
pt.Init(x,y);
rad:=20;
pt.Show(col);
Delay(10000);
readkey;
ax:=20;
bx:=640;
ay:=20;
by:=480;
px:=5;
py:=5;
v:=1;
REPEAT
Delay(800);
x:=Round(ax);
Y:=Round(ay);
if v=1 then
begin
ax:=ax+px;
if ax>=bx-20 then
begin
v:=2;
end;
end;
if v=2 then
begin
ay:=ay+py;
if ay>=by-20 then
begin
v:=3;
end;
end;
if v=3 then
begin
ax:=ax-px;
if ax<=20 then
begin
v:=4;
end;
end;
if v=4 then
begin
ay:=ay-py;
if ay<=20 then
begin
v:=1;
end;
end;
pt.MoveTo(x,y,col);
UNTIL KeyPressed;
World.Fin;
END.
|
Не могу понять как передать из программы объекту радиус.
Нужно сделать с использованием динамической и оперативной памяти. |
