Меню сайта

Задача №17

Игра»Попади в центр мишени.

uses graph,crt-

vargd,gm,x,y:integer-

C:CHAR-

label 1-

begin

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

setfillstyle(2,1)-

bar(220, 140,420,340)-

setfillstyle(4,9)-

bar(270, 190,370,290)-

outtextxy (30,0,’введите координаты(x и y через ENTER)’)-

outtextxy(30,10,’PressEsc to Exit’)-

1:c:=readkey-

if c=chr(27) thenhalt-

gotoxy(1,1)-

readln(x)-

gotoxy(1,2)-

readln(Y)-

putpixel(x, Y,12)-

IF (x &lt- 220) OR(x &gt- 420) OR (Y &lt- 140) OR (Y &gt- 340) THEN

begin

outtextxy(20,400,’0 очков’)-

GOTO 1-

end-

IF (x &gt-= 220)AND (x &lt- 420) AND (Y &gt-= 140) AND (Y &lt- 190) OR (x &gt-= 220) AND (x&lt- 420) AND (Y &gt-= 290) AND (Y &lt- 340) THEN

begin

outtextxy(20,400,’5 очков’)-

goto 1-

end-

IF (x &gt-= 270)AND (x &lt- 370) AND (Y &gt-= 190) AND (Y &lt- 290) THEN

outtextxy(20,400,’10 очков’)-

begin

GOTO 1-

if c=chr(27) then halt-

end-

end.

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

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