Меню сайта

Задача №18

Закраскакругов разными цветами.

uses graph,crt-

var gd,gm:integer-

c:char-

label 0,2,3,4-

begin

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

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

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