Меню сайта

Задача №6

Построитьиз окружностей рисунок облака.

uses graph,crt-

var gd,gm:integer-

begin

initgraph(gd,gm,’c:&#92-bp&#92-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.

Категория: Графика в Паскале | Дата: 22.11.12

Меню раздела
Блок