графика

[alex(21)]

написал программу:

uses graph,crt;
var d,r,x,y:integer;
procedure kub;
begin
x:=random(500);
repeat
setcolor(green);
rectangle(x,y,x+70,y+70);
delay(6000);
setcolor(black);
rectangle(x,y,x+70,y+70);
y:=y+1;
if y=400 then y:=-70;
until keypressed;
end;
begin
randomize;
d:=0; initgraph(d,r,'');
kub;
readln;
closegraph;
end.

но как сделать так, чтобы кубик падал с разных мест и при каждом запуске и после того как дошёл до конца экрана.

[NSvirus]

uses graph,crt;
  var d,r,x,y:integer;
procedure kub;
begin
  repeat
   setcolor(green);
   rectangle(x,y,x+70,y+70);
   delay(6000);
   setcolor(black);
   rectangle(x,y,x+70,y+70);
   y:=y+1;
   if y=400 then
      begin
       x:=random(500);
       y:=-70
      end;
   until keypressed;
end;
begin
 randomize;
 d:=0; initgraph(d,r,'');
 kub;
 readln;
 closegraph;
end.

[alex(21)]

спасибо. работает

[alex(21)]

вот вторая програмка:

uses crt,graph;
var d,r,x:integer;
klavisha:char;
procedure dvizhenie;
begin
setlinestyle(0,1,3);
x:=300;
setcolor(red);
ellipse(x,380,0,360,35,10);
repeat
if keypressed then begin
setcolor(black);
ellipse(x,380,0,360,35,10);
klavisha:=readkey;
if klavisha='a' then x:=x-25;
if klavisha 'd' then x:=x+25;
setcolor(red);
ellipse(x,380,0,360,35,10);
end;
until klavisha='q';
end;
begin
d:=detect; initgraph(d,r,'')
line(0,420,640,420);
dvizhenie;
closegraph;
end.
как сделать так, чтобы и кубики падали и эллипс можно было двигать одновременно?

[Stilet]

Могу предложить такой вариант:

uses graph,crt;
var d,r,x,ax,ay:integer;
klavisha:char;
procedure dvizhenie;
begin
setlinestyle(0,1,3);
x:=300;
setcolor(red);
ellipse(x,380,0,360,35,10);
repeat

 setcolor(red);
  ellipse(x,380,0,360,35,10);
  rectangle(ax,ay,ax+10,ay+10);

 {  delay(100);}


 setcolor(black);
  ellipse(x,380,0,360,35,10);
  rectangle(ax,ay,ax+10,ay+10);

 ay:=ay+10;
 if ay=600 then begin ay:=0; ax:=random(100); end;
 klavisha:=' ';
 if keypressed then klavisha:=readkey;
 if klavisha='a' then x:=x-25;
 if klavisha='d' then x:=x+25;
until klavisha='q';
end;
begin
d:=detect; initgraph(d,r,'');
line(0,420,640,420);
dvizhenie;
closegraph;
end.

Надеюсь смысл ясен?

[alex(21)]

uses graph,crt;
var d,r,x,ax,ay:integer;
klavisha:char;
procedure dvizhenie;
begin
setlinestyle(0,1,3);
x:=300;
setcolor(red);
ellipse(x,380,0,360,35,10);
repeat

 setcolor(red);
  ellipse(x,380,0,360,35,10);
  rectangle(ax,ay,ax+10,ay+10);

 {  delay(100);}


 setcolor(black);
  ellipse(x,380,0,360,35,10);
  rectangle(ax,ay,ax+10,ay+10);

 ay:=ay+10;
 if ay=600 then begin ay:=0; ax:=random(100); end;
 klavisha:=' ';
 if keypressed then klavisha:=readkey;
 if klavisha='a' then x:=x-25;
 if klavisha='d' then x:=x+25;
until klavisha='q';
end;
begin
d:=detect; initgraph(d,r,'');
line(0,420,640,420);
dvizhenie;
closegraph;
end.

в этом случае при нажатии клавиши кольцо движется без остановки, а мне нужно чтобы при нажатии на клавишу кольцо передвинулось на какое то расстояние в право или лево, затем остановилось и после того как нажали на клавишу кольцо опять переместилось.

[Stilet]

кольцо движется без остановки

А почему у меня с остановкой?
Код нормальный - я проверял.

[puporev]

Так и работает, пока клавиша нажата, кольцо движется, отпускаешь не движется. Все нормально управляется. При каждом нажатии кольцо перемещается на 5 пикселей влево или вправо. Что не устраивает?

[alex(21)]

просто когда я нажимаю на клавишу кольцо перемещается не на несколько пикселей, а до конца экрана!

[alex(21)]

извиняюсь, сам допустил ошибку.
А как установить границу, чтобы кольцо дальше экрана не уходило?