V ekto R
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Вот кусок программы, m,n - ШИРИНА И ВЫСОТА СВЕТОФОРА.
.....
VAR gd,gm: integer
m,n: real;
......
INITGRAPH(gd,gm,'');
SETFILLSTYLE(1,DarkGray);
BAR(round(320-m/2), round(120+n/10), round(320+m/2), round (360-n/10));
SETFILLSTYLE(1,yellow);
SETCOLOR(yellow);
FILLELLIPSE(320,240,round(n/8),round(n/8));
SETFILLSTYLE(1,red);
SETCOLOR(red);
FILLELLIPSE(320, round(240-n/3), round(n/8), round(n/8));
SETFILLSTYLE(1,green);
SETCOLOR(green);
FILLELLIPSE(320, round(240+n/3), round(n/8), round(n/8));
READLN;
CLOSEGRAPH;
END.
|
: 
но в той вроде разобрался... 
