Система программирования Turbo Pascal

           

GetBkColor. Возвращает значение...


h2> Иллюстрация процедуры PieSlice

Uses Graph, CRT; 

var

d, r, e : Integer; 

begin

{Инициируем графический режим} 

d := Detect;

InitGraph(d, r, ''); 

e := GraphResult; if e <> grOk then

WriteLn(GraphErrorMsg(e)) 

else

begin

{Выводим маленький сектор}

SetFillStyle(WideDotFill, White);

PieSlice(GetMaxX div 2+5,GetMaxY div 2+4,270,360,100);

{Выводим большой сектор}

SetFillStyle (SolidFill, Red);

PieSlice (GetMaxX div 2,GetMaxY div 2, 0,270,100).;

{Выводим надписи}

OutTextXY (GetMaxX div 2+90,GetMaxY div 2+70, '25%');

OutTextXY(GetMaxX div 2-50,GetMaxY div 2-20, '75%');

{Ждем нажатия на любую клавишу} 

if ReadKey=#0 then d := ord(ReadKey); 

Close,Graph 

end

end.



Содержание раздела