Задача №18
Закраскакругов разными цветами.
uses graph,crt-
var gd,gm:integer-
c:char-
label 0,2,3,4-
begin
initgraph(gd,gm,’c:\-bp\-bgi’)-
setcolor(15)-
CIRCLE (320,220,10)-
CIRCLE (320,240,10)-
CIRCLE (320,260,10)-
outtextxy(10,10,’красный(к) желтый(ж) зеленый(з) — маленькие буквы’)-
outtextxy(10,20,’Выход — Esc’)-
0:
c:=readkey-
if c=chr(27) thenhalt-
IF c = ‘к’ THEN GOTO 2-
IF c = ‘ж’ THEN GOTO 3-
IF c = ‘з’ THEN GOTO 4-
GOTO 0-
2:
setfillstyle(1,12)-
floodfill(320, 220,15)-
setfillstyle(1,0)-
floodfill (320,240, 15)-
floodfill (320,260, 15)-
GOTO 0-
3:
setfillstyle(1,14)-
floodfill (320,240,15)-
setfillstyle(1,0)-
floodfill (320,260,15)-
floodfill (320,220,15)-
GOTO 0-
4:
setfillstyle(1,10)-
floodfill(320, 260,15)-
setfillstyle(1,0)-
floodfill (320,220, 15)-
floodfill (320,240, 15)-
GOTO 0-
end.
|