/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/ArcSector.pas
15 строк
325 B
Бондарев Иван
bug fix #585
17 дек 2017, 14:40
17 дек 2017, 14:40
fb60f88
Код
Авторство
О чём код?
uses GraphWPF; begin Window.Title := 'Дуги и секторы'; var (x,y) := (200,Window.Height/2); Circle(x,y,5); for var i:=1 to 18*2 do Arc(x,y,5*i,0,10*i); (x,y) := (600,Window.Height/2); for var i:=1 to 12 do begin Brush.Color := RandomColor; Sector(x,y,180,30*(i-1),30*i); end; end.