2015-12-28 14:25:15 +03:00
|
|
|
// Графика. Pie
|
2015-05-14 22:35:07 +03:00
|
|
|
uses GraphABC;
|
|
|
|
|
|
|
|
|
|
const r = 200;
|
|
|
|
|
|
|
|
|
|
begin
|
2015-12-28 14:25:15 +03:00
|
|
|
Window.Title := 'Круговая гистограмма';
|
2015-05-14 22:35:07 +03:00
|
|
|
var x := Window.Center.X;
|
|
|
|
|
var y := Window.Center.Y;
|
|
|
|
|
Brush.Color := clRandom;
|
|
|
|
|
Pie(x,y,r,0,30);
|
|
|
|
|
Brush.Color := clRandom;
|
|
|
|
|
Pie(x,y,r,30,110);
|
|
|
|
|
Brush.Color := clRandom;
|
|
|
|
|
Pie(x,y,r,110,160);
|
|
|
|
|
Brush.Color := clRandom;
|
|
|
|
|
Pie(x,y,r,160,280);
|
|
|
|
|
Brush.Color := clRandom;
|
|
|
|
|
Pie(x,y,r,280,360);
|
|
|
|
|
end.
|
