If proverka(i_drug,k_drug,i_vrag,k_vrag) then
Begin
x:=x0+(k_drug-1)*dx;
y:=y0+(i_drug-1)*dy;
putimage(x,y,p_drug^,xorput);
i_drug:=6;
k_drug:=1;
x:=x0+(k_drug-1)*dx;
y:=y0+(i_drug-1)*dy;
putimage(x ,y ,p_drug^,xorput);
h:=h-1;
Case h of
2:putimage(xm-300,50,p_drug^,xorput);
1:putimage(xm-350,50,p_drug^,xorput);
0:putimage(xm-400,50,p_drug^,xorput);
end;
end;
settextstyle(1,0,5);
if h=0 then
Begin
outtextxy(xm-500,ym div 2,'!!! Вы проиграли !!!');
readkey;
ch:=esc;
end;
End
Else
Begin
FOR i:=1 to 3 do
if proverka(i_drug,k_drug,i_vr[i],k_vr[i]) then
Begin
x:=x0+(k_drug-1)*dx;
y:=y0+(i_drug-1)*dy;
putimage(x,y,p_drug^,xorput);
i_drug:=i_exit;
k_drug:=k_exit;
x:=x0+(k_drug-1)*dx;
y:=y0+(i_drug-1)*dy;
putimage(x ,y ,p_drug^,xorput);
h:=h-1;
Case h of
2:putimage(xm-300,50,p_drug^,xorput);
1:putimage(xm-350,50,p_drug^,xorput);
0:putimage(xm-400,50,p_drug^,xorput);
end;
end;
settextstyle(1,0,5);
if h=0 then
Begin
outtextxy(xm-500,ym div 2,'!!! Вы проиграли !!!');
readkey;
ch:=esc;
end;
end;
if (tab[i_drug,k_drug]=5) then
Begin
outtextxy(xm-500,ym div 2,'!!! Вы выиграли !!!');
if uroven<3 then
uroven:=uroven+1
else uroven:=1;
readkey;
ch:=esc;
end;
until ch=esc;
end;
Begin
opengraph;
zastavka;
load;
uroven:=1;
nomer:=0;
Repeat
menu(nomer);
Case nomer of
1:avtor;
2:game;
3:help;
4:{outputrec};
5:exit;
end;
until (nomer=nn) or (nomer=0);
closegraph;
End.
Памятка преподавателю
1. Студент представляет преподавателю свою программу и отчет по ней на последнем занятии перед защитой проекта.
|
|
|
2. Преподаватель выставляет на титульном листе отчета свою оценку за проект.
3. Преподаватель собирает отчеты студентов и предоставляет их комиссии в день защиты.
4. Проекты, по которым отсутствует подписанный преподавателем отчет к защите не допускаются.
Дата добавления: 2018-09-23; просмотров: 87; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!