«Модуль GRAPH».нижнюю половинку окружности, по которой катается маленький кружок, меняя цве

@logica0 · Регистрация: 02.10.2011

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

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

@Puporev · 02.10.2011, 13:03

Примерно так.

Pascal

uses crt,graph;
 
procedure Krug(x,y,r,c:integer);
begin
setcolor(c);
circle(x,y,r);
setfillstyle(1,c);
floodfill(x,y,c);
end;
 
var xc,yc,r,r1,x,y,d,c:integer;
    a,da:real;
begin
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r:=200;
setlinestyle(0,0,3);
setcolor(12);
arc(xc,yc,180,360,r);
outtextXY(xc-50,20,'Vyhod any key');
r1:=5;
d:=r-r1-3;
x:=xc-d;
y:=yc+r1+1;
a:=pi-0.05;
repeat
if a<=pi then da:=0.05;
a:=a+da;
x:=xc+round(d*cos(a));
y:=yc-round(d*sin(a));
Krug(x,y,r1,9);
delay(50);
Krug(x,y,r1,0);
if a>=2*pi then da:=-0.05;
until keypressed;
end.

@logica0 · 02.10.2011, 13:37 **[ТС]**

очень благодарна, спасибо!

@logica0 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 5
		1
	«Модуль GRAPH».нижнюю половинку окружности, по которой катается маленький кружок, меняя цве 02.10.2011, 10:55. Показов 1168. Ответов 2 Метки нет (Все метки) Нарисовать на экране нижнюю половинку окружности, по которой катается маленький кружок, меняя цвет. Работа программы закачивается по нажатию любой клавиши. 0

@logica0 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 5
	02.10.2011, 13:37 [ТС]	3
	очень благодарна, спасибо! 0

«Модуль GRAPH».нижнюю половинку окружности, по которой катается маленький кружок, меняя цве

Решение