Построить из окружностей рисунок облака — Pascal(Паскаль)

uses graph, crt;

var
  gd, gm: integer;

begin
  initgraph(gd, gm, 'c:\bp\bgi');
  SetFillStyle(1, 15);
  setcolor(15);
  CIRCLE(320, 240, 100);
  floodfill(320, 240, 15);
  CIRCLE(220, 240, 80);
  floodfill(200, 240, 15);
  CIRCLE(420, 240, 80);
  floodfill(440, 240, 15);
  repeat
    ;
  until keypressed;
  closegraph;

end.

Leave a Comment

67 − 57 =