Курсовая работа: Игровая программа 15

x1:=x;

y1:=y;

steps:=steps+1; {Увеличение числа

шагов на единицу}

{Вывод на экран числа шагов}

setfillstyle(1,7);

bar(30,120,80,145);{Рисование табл.}

setcolor(4);

str(steps,st1);

settextstyle(0,0,1);

outtextxy(40,130,st1);

setcolor(13);

settextstyle(7,0,5);

setfillstyle(1,11);

{Проверка следования чисел в массиве}

u:=true;

j:=0;

n:=0;

repeat

j:=j+1;

n:=n+1;

if (n<>mas[j]) and (n<>12)

then u:=false;

if (n=11) and (mas[12]=0)

then j:=j+1;

until mas[j]=15;

if u and ((mas[15]=15) or

(mas[16]=15))

then