Программирование игры "Змейка"

Автор работы: Пользователь скрыл имя, 09 Февраля 2011 в 11:55, курсовая работа

Описание работы

Курсовий проект складається зі вступу , двох розділів , висновків , списку використаної літератури , графічної частини та додатків. Текст пояснювальної записки набрано та розрдуковано з використанням текстового редактора Word. Графічна частина виконана з допомогою графічного редактора Visio.

Содержание работы

Вступ…………………………………………………………....3.


1.ТЕОРЕТИЧНА ЧАСТИНА………………………………….5.


1.1.Постановка задачі………………………………………....5.


2.ПРАКТИЧНА ЧАСТИНА…………………………………...6.


2.1.Архітектура програми…………………………………….6.


2.2.Опис програми………………………………………….....8.


2.3.Контрольний приклад………………………………………


та аналіз результатів машинного експерименту……………13.


ВИСНОВКИ……………………………………………………18.


СПИСОК ВИКОРИСТАНОЇ ЛІТЕРАТУРИ…………………18.


ДОДАТКИ……………………………………………………...19.

Скачать архив (66.88 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Курсовая.doc

— 267.50 Кб (Скачать файл)

        menu;

        for i:=1 to Dlina do

        begin

        SnakeX[i]:=6-i;

        SnakeY[i]:=1;

        end;

        end;

  1. }'N','n','Т','т':Rezultat(f,Score,Dlina);
  2. }else goto 1;
  3. }end;
  4. }textcolor(0);
  5. }gotoxy(1,1);
  6. }End;

  {----------------------------------------------------------}

    1. }procedure Move;
    2. }begin
    3. }Symbol(SnakeX[Dlina],SnakeY[Dlina],' ');
    4. }case naprav of
    5. }1: begin

                HeadX:=HeadX+1;

    1. }End;
    2. }2: begin

               HeadX:=HeadX-1;

    1. }end;
    2. }  3: begin

              HeadY:=HeadY-1;

    1. }end;
    2. }4: begin

              HeadY:=HeadY+1;

    1. }end;
    2. }end;
    3. }if HeadX>80 then HeadX:=1;
    4. }if HeadX<1 then HeadX:=80;
    5. }if HeadY>49 then HeadY:=1;
    6. }if HeadY<1 then HeadY:=49;
    7. }for I:=1 to Dlina do
    8. }begin
    9. }If (HeadX=SnakeX[i])and(HeadY=SnakeY[i]) then kill;
    10. }end;
    11. }for i:=1 to 40 do
    12. }begin
    13. }if (HeadX=BonusX[i])and(HeadY=BonusY[i]) then
    14. }begin
    15. }Dlina:=Dlina+1;
    16. }score:=score+ScorePlus;
    17. }addbonus(i);
    18. }end;
    19. }end;
 
    1. }for I:=Dlina downTo 2 do
    2. }begin
    3. }SnakeX[i]:=SnakeX[i-1];
    4. }SnakeY[i]:=SnakeY[i-1];
    5. }end;
    6. }SnakeX[1]:=HeadX;
    7. }SnakeY[1]:=HeadY;
    8. }drawsnake;
    9. }textcolor (0);
    10. }gotoxy( 1,1);
 
    1. }end;

  {-----------------------------------------------------------------} 

    1. }BEGIN
    2. }Assign(f,'result.dat');
    3. }Textmode(c80 + Font8x8);
    4. }randomize;
    5. }CLRSCR;
    6. }for i:=1 to 40 do addbonus(i);
    7. }MenuItem[1]:='     VERY SLOW     ';
    8. }MenuItem[2]:='       SLOW        ';
    9. }MenuItem[3]:='      MEDIUM       ';
    10. }MenuItem[4]:='       HIGH        ';
    11. }MenuItem[5]:='     VERY HIGH     ';
    12. }MenuItem[6]:='      RESULT       ';
    13. }MenuSelect:=1;
    14. }clrscr;
    15. }menu;
    16. }for i:=1 to Dlina do
    17. }begin
    18. }SnakeX[i]:=6-i;
    19. }SnakeY[i]:=1;
    20. }end;
    21. }1:
    22. }while key<>#27 do
    23. }begin
    24. }if KeyPressed then
    25. }begin
    26. }key:=readkey;
    27. }if key=#0 then
    28. }case readkey of

                         #72: if Naprav <> 4 then Naprav := 3;{Down}

                         #80: if Naprav <> 3 then Naprav := 4;{up}

                         #75: if Naprav <> 1 then Naprav := 2;{Left}

                        #77: if Naprav <> 2 then Naprav := 1;{Rigth}

    1. }end;
    2. }end;
    3. }textcolor (0);
    4. }gotoxy(1,1);
    5. }DELAY(DTime);
    6. }Move;
    7. }textcolor (0);
    8. }gotoxy( 1,1);
    9. }end;
    10. }kill;
    11. }goto 1;
    12. }close(f);
    13. }end.

Информация о работе Программирование игры "Змейка"