Подскажите как изменить программу чтоб окружность перемещалась по горизонтали?
нужно составить программу в паскале с использованием модуля.
Вот задание Перемещать круг по горизонтали с заданным шагом и задержкой в одну секунду.
эта программа выводит изображения на экране расходящихся концентрических окружностей («кругов на воде») .
как её изменить чтоб круг перемещался по горизонтали не меняя основной структуры программы?
unit obj_un;
interface
uses graph;
type gr=object
gd,gm:integer;
procedure graphinit;
procedure graphclose;
end;
point=object(gr)
x,y:integer;
procedure setd(px,py:integer);
procedure show;
procedure hide;
end;
implementation
procedure gr.graphinit;
begin
gd:=detect;initgraph(gd,gm,'');
if graphresult <> 0 then begin writeln(' Невозможно открыть графический
режим! '); halt(1) end
end;
procedure gr.graphclose;
begin
closegraph
end;
procedure point.setd(px,py:integer);
begin
x:=px;y:=py;
end;
procedure point.show;
begin
putpixel(x,y,getmaxcolor);
end;
procedure point.hide;
begin
putpixel(x,y,getbkcolor);
end;
end.
Program lab2;
uses crt,graph,obj_un;
type krug=object(point)
r:integer;
procedure setd(px,py,rad:integer);
procedure show;
procedure hide;
end;
procedure krug.setd(px,py,rad:integer);
begin
r:=rad;point.setd(px,py)
end;
procedure krug.show;
begin
setcolor(getmaxcolor);circle(x,y,r);point.show
end;
procedure krug.hide;
begin
setcolor(getbkcolor);circle(x,y,r);point.hide
end;
var p:krug;i,k:integer;
begin
with p do begin graphinit;
for i:=1 to 10 do begin setd(100+i*20,100,1);show;
for k:=1 to 10 do begin hide;setd(100+i*20,100,k*10);show;
delay(1000) {задержка в1 секунду} end
end;
readln; {ожидание нажатия клавишиEnter} graphclose end;
end.
Спасибо огромное сейчас изменю.