Меню сайта

Задача №12

Рожица.

uses graph,crt-

var gd,gm:integer-

— — — c:char-

label 0,2,3-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

circle(320, 240,100)-

ellipse(320, 280,180, 360, 60,50)-

ellipse(320, 240,180, 360, 20,50)-

ellipse(280,200,0,360, 40,5)-

ellipse(360,200,0,360, 40,5)-

outtextxy (1,1,’сон(с) утро(у)’)-

outtextxy(1,10,’Press Esc to exit’)-

0:

c:=readkey-

if c = chr(27) thenhalt-

IF c = ‘у’ THEN GOTO 2-

IF c = ‘с’ THEN GOTO 3-

GOTO 0-

2:

setcolor(0)-

ellipse(280,200,0,360, 40,5)-

ellipse(360,200,0,360, 40,5)-

setcolor(14)-

ellipse (280,200,360,0,30,10)-

ellipse (360,200,360,0,30,10)-

circle (280,200,10)-

CIRCLE (360, 200,10)-

GOTO 0-

3:

setcolor (0)-

ellipse (280,200,360,0,30,10)-

ellipse (360,200,360,0,30,10)-

circle (280,200,10)-

CIRCLE (360, 200,10)-

setcolor(14)-

ellipse(280,200,0,360, 40,5)-

ellipse(360,200,0,360, 40,5)-

GOTO 0-

repeat-

until keypressed-

closegraph-

end.

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

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