Запомнить меня на этом копьютере
Пример программы для процедуры PieSlice.
{Pieslice.PAS} { Пример программы для процедуры PieSlice } Uses Graph; Const Radius = 30; Var Gd, Gm : Integer; Begin Gd:=Detect; InitGraph(Gd, Gm, ''); If GraphResult <> grOk Then Halt(1); PieSlice(100, 100, 0, 270, Radius); ReadLn; CloseGraph; End.
Скачать pieslice.pas