Движение,графика

[Alina111]

Помогите,пожалуйста,сделать так,чтобы все круги мишени двигались одновременно сначала вправо(Procedure dvigenie),а потом влево(Procedure dvigenie1),и не оставляли за собой след.

Program darts;
uses graph,crt;
var d,m:integer;

Procedure podkl;
begin
d:=detect;
InitGraph(d,m,'');
SetBkColor (7);
end;

Procedure krugi;
var i:byte;
begin
for i:=10 downto 1 do
if i=1 then
begin
circle(300,150,10*i);
end
else
circle(300,150,10*i);
end;

Procedure dvigenie;
var
x,y,z,r:integer;
i:byte;
begin
for i:=10 downto 1 do
begin
  x:=300;
  y:=150;
  r:=10*i;
  d:=10;
  m:=100;
  while x<450 do
  begin
  Circle(x,y,r);
  Delay(100);
  x:=x+d;
   end;
   end;
   end;

Procedure dvigenie1;
var
x,y,z,r:integer;
i:byte;
begin
for i:=10 downto 1 do
begin
  x:=450;
  y:=150;
  r:=10*i;
  d:=10;
  m:=100;
  while x>150 do
  begin
  Circle(x,y,r);
  Delay(m);
  x:=x-d;
   end;
   end;
   end;

begin
podkl;
krugi;
readln;
dvigenie;
dvigenie1;
closegraph;
end.

[Leshii]

А обязательно все через процедуры?)

Ну если этот код писали вы, то вам достаточно будет знать что вам надо двигать координату "x" , к примеру

for x:=200 to 400 do begin
...// влево
end;
for x:=400 downto 200 do begin
...//после отработки первого цикла оно покатит вправо 
end;

А чтоб не было следа используйте ClearDevice;, но сразу говорю, при этом изображение будет мигать. Есть второй вариант, после того как вы передвинули фигуру вы можете подчищать за ней ... но тут надо подумать.

[Alina111]

Процедуры обязательны,координата "x" у меня меняется в цикле while.
Что нужно добавить,чтобы круги одновременно двигались?и после какой строки нужно вставить ClearDevice;?

[Leshii]

Вам надо просто написать общий цикл для двух кругов, не для каждого в отдельности. Я вам ниже привел пример опять же.

Program darts;
uses graph,crt;
var d,m:integer;

Procedure krugi;
var i:byte;
begin
for i:=10 downto 1 do
if i=1 then
begin
circle(300,150,10*i);
end
else
circle(300,150,10*i);
end;

Procedure dvigenie;
var
x,y,z,r:integer;
i:byte;
begin
for i:=10 downto 1 do
begin
  x:=300;
  y:=150;
  r:=10*i;
  Circle(x,y,r);
  Delay(100);
end;
   end;

Procedure dvigenie1;
var
x,y,z,r:integer;
i:byte;
begin
for i:=10 downto 1 do
begin
  x:=450;
  y:=150;
  r:=10*i;
  Circle(x,y,r);
end;
   end;

begin
d:=detect;
InitGraph(d,m,'');
SetBkColor (7);
readln;
 for x:=200 to 450 do begin
  x:=x+10; 
ClearDevice;
dvigenie;
dvigenie1;
  if x=450 then 
     for x:=450 downto 200 do 
       x:=x-10;
ClearDevice;
dvigenie;
dvigenie1;
end;
closegraph;
end.

Тогда вам надо будет убрать циклы из процедур. И достаточно будет одной процедуры с двумя кругами, зачем две? И зачем вам эта Procedure krugi;? Возможны ошибки, но главное чтоб вы суть уловили, так как у меня нет возможности откомпилировать ваш код.

[Alina111]

В этой процедуре начальное положение мишени.
Спасибо,сейчас попробую разобраться)