Нарисовать на экране круг зеленого цвета, который движется по горизонтали

@masimka001 · Регистрация: 20.03.2012

Студворк — интернет-сервис помощи студентам

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

@Puporev · 31.03.2012, 14:36

Pascal

uses crt,graph;
procedure Krg(x,y,r,c:integer);
begin
setcolor(c);
setfillstyle(1,c);
circle(x,y,r);
floodfill(x,y,c);
end;
procedure Kvd(x,y,d,c:integer);
begin
setcolor(c);
setfillstyle(1,c);
rectangle(x-d,y-d,x+d,y+d);
floodfill(x,y,c);
end;
var x,y,r,h:integer;
begin
initgraph(x,y,'');
outtextXY(getmaxX div 2-30,20,'Vyhod - any key');
r:=10;
x:=r;
y:=getmaxY div 2;
repeat
while (x<getmaxX-r) and not keypressed do
 begin
  h:=5;
  x:=x+h;
  Krg(x,y,r,10);
  delay(50);
  Krg(x,y,r,0)
 end;
while (x>r) and not keypressed do
 begin
  h:=-5;
  x:=x+h;
  Kvd(x,y,r,10);
  delay(50);
  Kvd(x,y,r,0);
 end;
until keypressed;
end.

@masimka001 0 / 0 / 0 Регистрация: 20.03.2012 Сообщений: 25
		1
	Нарисовать на экране круг зеленого цвета, который движется по горизонтали 31.03.2012, 02:01. Показов 3051. Ответов 1 Метки нет (Все метки) Нарисовать на экране круг зеленого цвета, который движется по горизонтали, при достижении границы экрана превращается в квадрат и начинает движение в обратном направлении. Программа завершается нажатием любой клавиши. Рисование фигур оформить в виде процедуры. 0

	31.03.2012, 14:36

Опции темы

Нарисовать на экране круг зеленого цвета, который движется по горизонтали

Решение