паскаль, создание объктов

[Stilet]

я просто даже не знаю с чего братся,вот и спрашиваю

Допустим у меня будет, что за три объекта?
Я только один в задании вижу - сам прямоугольник.

[Serge_Bliznykov]

прямоугольник чтоб двигался по прямоугольной оси, с использованием трёх объектов

Кстати, может кто-нибудь мне объяснить, что означает "двигался по прямоугольной оси"?!!! o_O!
Хоть картинку со стрелочками нарисуйте и прикрепите сюда...
А как можно двигаться "с использованием трёх объектов", я даже представить себе боюсь... Может прямоугольник — это типа баржи, а объекты — бурлаки, которые её тянут?!

[Александр 588]

я сам не могу понять что за три объекта!!!вернее он сказал сделать на трёх обектах!!!!
по прямоугольной оси значит,представь себе прямоугольник, и вот по его сторонам будет двигатся сам прямоугольник,это тоже самое что круг двигается по окружности

[Stilet]

я сам не могу понять что за три объекта!!!вернее он сказал сделать на трёх обектах!!!!

Рекомендую уточнить. Ибо тут он хочет тебя подловить.

[Александр 588]

парни помогите есть програмка, в ней движение окружности по окружности, и мне нужно переделать её что было движение прямоугольника по прямоугольнику
program LABA4;
uses graph, crt;
type mir = object
driver, mode: integer;
procedure create;
procedure destroy;
end;
procedure mir.create;
begin
driver:= vga;
mode:= vgahi;
InitGraph(driver,mode,'C:\');
end;
procedure mir.destroy;
begin
CloseGraph;
end;
type coord = object
x, y: integer;
constructor Init(ix,iy: integer);
destructor Delete;
function GetX: integer;
function GetY: integer;
procedure SetX(cx: integer);
procedure SetY(cy: integer);
end;
procedure coord.SetX(cx: integer);
begin
x:= cx;
end;
procedure coord.SetY(cy: integer);
begin
y:= cy;
end;
function coord.GetX: integer;
begin
GetX:= x;
end;
function coord.GetY: integer;
begin
GetY:= y;
end;
destructor coord.Delete;
begin
x:= 0;
y:= 0;
end;
constructor coord.Init(ix,iy: integer);
begin
x:= ix;
y:= iy;
end;
type pt = object (coord)
visible: boolean;
color: integer;
constructor PtInit(c,ix,iy:integer;v:boolean);
procedure Draw;
procedure Show; virtual;
procedure Hide; virtual;
end;
constructor Pt.PtInit(c,ix,iy: integer;v:boolean);
begin
color:= c;
x:= ix;
y:= iy;
visible:= v;
end;
procedure Pt.Show;
begin
visible:= true;
putpixel(x,y,color);
end;
procedure Pt.Hide;
begin
visible:= false;
putpixel(x,y,getBkColor);
end;
procedure Pt.Draw;
begin
if visible = true then putpixel(x,y,color);
end;
type circ = object (Pt)
rad: integer;
procedure move(dx,dy: integer);
procedure show; virtual;
procedure hide; virtual;
constructor initialize(ix,iy,ic,irad:integer;iv :boolean);
end;
procedure circ.show;
begin
visible:= true;
end;
procedure circ.hide;
begin
visible:= false;
end;
constructor circ.initialize(ix,iy,ic,irad:integ er;iv:boolean);
begin
x:= ix;
y:= iy;
color:= ic;
rad:= irad;
visible:= iv;
end;
procedure circ.move(dx,dy: integer);
begin
x:= dx;
y:= dy;
end;
type drawtype = object
procedure drawing(cx: circ; c: integer);
end;
procedure drawtype.drawing(cx: circ; c: integer);
begin
setcolor(c);
if cx.visible then circle(cx.x,cx.y,cx.rad);
end;
type sysobj = object
sdelay: integer;
procedure SetDelay(id: integer);
function GetDelay: integer;
procedure sysdelay;
function ButtonPressed: boolean;
procedure IncNum(var i: integer;n: integer);
procedure SetIntValue(var i: integer; n: integer);
end;
procedure sysobj.SetIntValue(var i: integer; n: integer);
begin
i:=n;
end;
procedure sysobj.IncNum(var i: integer;n: integer);
begin
i:= i + n;
end;
function sysobj.ButtonPressed: boolean;
begin
if keypressed then buttonpressed:= true
else buttonpressed:= false;
end;
procedure sysobj.SetDelay(id: integer);
begin
sdelay:= id;
end;
function sysobj.GetDelay: integer;
begin
GetDelay:= sdelay;
end;
procedure sysobj.sysdelay;
begin
delay(sdelay);
end;
type
pcirc = ^circ;
var
world: mir;
gm, gd, n, i, x, y: integer;
c1,c2: pcirc;
dr1: drawtype;
sysob: sysobj;
begin
world.create;
sysob.setintvalue(n,200);
c1:= new(pcirc,initialize(0,0,8,20,true) );
c2:= new(pcirc,initialize(320,240,8,178, false));
sysob.setintvalue(i,0);
sysob.setdelay(10000);
while 1 = 1 do
begin
c1^.move(trunc(c2^.x+(c2^.rad+22)*c os(6.28*(i/n))),trunc(c2^.y-(c2^.rad+22)*sin(6.28*(i/n))));
dr1.drawing(c1^,9);
dr1.drawing(c2^,9);
sysob.sysdelay;
dr1.drawing(c1^,0);
sysob.incnum(i,1);
if(sysob.ButtonPressed) then break;
end;
world.destroy;
end.