2015-12-28 14:25:15 +03:00
|
|
|
// Оператор выбора. Случайная фигура
|
2015-05-14 22:35:07 +03:00
|
|
|
uses GraphABC;
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
SetWindowSize(400,300);
|
|
|
|
|
var t := Random(1,5);
|
|
|
|
|
case t of
|
|
|
|
|
1: Circle(200,150,100);
|
|
|
|
|
2: Rectangle(100,100,300,200);
|
|
|
|
|
3: Ellipse(100,100,300,200);
|
|
|
|
|
4: RoundRect(100,100,300,200,20,20);
|
|
|
|
|
5: Line(100,100,300,200);
|
|
|
|
|
end;
|
|
|
|
|
end.
|
