ðåôåðàòû
Ãëàâíàÿ

Ðåôåðàòû ïî ðåêëàìå

Ðåôåðàòû ïî ôèçèêå

Ðåôåðàòû ïî ôèëîñîôèè

Ðåôåðàòû ïî ôèíàíñàì

Ðåôåðàòû ïî õèìèè

Ðåôåðàòû ïî õîçÿéñòâåííîìó ïðàâó

Ðåôåðàòû ïî öèôðîâûì óñòðîéñòâàì

Ðåôåðàòû ïî ýêîëîãè÷åñêîìó ïðàâó

Ðåôåðàòû ïî ýêîíîìèêî-ìàòåìàòè÷åñêîìó ìîäåëèðîâàíèþ

Ðåôåðàòû ïî ýêîíîìè÷åñêîé ãåîãðàôèè

Ðåôåðàòû ïî ýêîíîìè÷åñêîé òåîðèè

Ðåôåðàòû ïî ýòèêå

Ðåôåðàòû ïî þðèñïðóäåíöèè

Ðåôåðàòû ïî ÿçûêîâåäåíèþ

Ðåôåðàòû ïî þðèäè÷åñêèì íàóêàì

Ðåôåðàòû ïî èñòîðèè

Ðåôåðàòû ïî êîìïüþòåðíûì íàóêàì

Ðåôåðàòû ïî ìåäèöèíñêèì íàóêàì

Ðåôåðàòû ïî ôèíàíñîâûì íàóêàì

Ðåôåðàòû ïî óïðàâëåí÷åñêèì íàóêàì

Ïñèõîëîãèÿ è ïåäàãîãèêà

Ïðîìûøëåííîñòü ïðîèçâîäñòâî

Áèîëîãèÿ è õèìèÿ

ßçûêîçíàíèå ôèëîëîãèÿ

Èçäàòåëüñêîå äåëî è ïîëèãðàôèÿ

Ðåôåðàòû ïî êðàåâåäåíèþ è ýòíîãðàôèè

Ðåôåðàòû ïî ðåëèãèè è ìèôîëîãèè

Ðåôåðàòû ïî ìåäèöèíå

Ðåôåðàòû ïî ñåêñîëîãèè

Ðåôåðàòû ïî èíôîðìàòèêå ïðîãðàììèðîâàíèþ

Êðàòêîå ñîäåðæàíèå ïðîèçâåäåíèé

Ðåôåðàò: Ñîçäàíèå èãðû

Ðåôåðàò: Ñîçäàíèå èãðû

Ìèíèñòåðñòâî îáðàçîâàíèÿ ÐÔ.

ÈæÃÒÓ.

Êàôåäðà Ðàäèîòåõíèêè.

Êóðñîâàÿ ðàáîòà

ïî èíôîðìàòèêå.

Òåìà: ”Ñîçäàíèå èãðû”.

                                                                Ïðîâåðèë:          

Ñòàðøèé ïðåïîäàâàòåëü

Ñèäîðèíà Â.À.

                                                                  Âûïîëíèë:

Ñòóäåíò ãð.2-29-1

Ñêâîðöîâ ß.À.

Èæåâñê.2003.

                                                    Ñîäåðæàíèå                                              Ñòð.

Ââåäåíèå--------------------------------------------------------------------------------3

1 Ïîñòàíîâêà çàäà÷è------------------------------------------------------------------4

2 Àëãîðèòìû è áëîê-ñõåìû---------------------------------------------------------5

3 Ïðîãðàììà íà ÿçûêå Pascal ñ êîììåíòàðèÿìè--------------------------------6

4 Ðóêîâîäñòâî ïîëüçîâàòåëÿ äëÿ ðàáîòû â ïðîãðàììå-----------------------16

Çàêëþ÷åíèå----------------------------------------------------------------------------17

Ñïèñîê èñïîëüçîâàííîé ëèòåðàòóðû---------------------------------------------18

ÂÂÅÄÅÍÈÅ:

Îñíîâíîé öåëüþ äàííîãî êóðñîâîãî ïðîåêòà ÿâëÿåòñÿ çàêðåïëåíèå è äåìîíñòðàöèÿ çíàíèé, ïîëó÷åííûõ ïðè èçó÷åíèè êóðñà èíôîðìàòèêè.

Âûïîëíåíèå ðàáîòû òðåáóåò òâîð÷åñêîãî ïîäõîäà è ïðèìåíåíèÿ äîïîëíèòåëüíûõ çíàíèé èç îáëàñòè ãðàôèêè. Êóðñîâîé ïðîåêò íå ïðåäïîëàãàåò äàëüíåéøåãî êîììåð÷åñêîãî èñïîëüçîâàíèÿ äàííîãî ïðîãðàììíîãî ïðîäóêòà.

1 Ïîñòàíîâêà çàäà÷è.

Òðåáóåòñÿ ñîçäàòü èãðó, îñíîâíûì ñìûñëîì êîòîðîé ÿâëÿåòñÿ òî, ÷òî â îäíîé ÷àñòè ýêðàíà ïåðåìåùàþòñÿ îáúåêò-(îáúåêòû) îäíîãî òèïà(«Ñàìîë¸òû»), à â äðóãîé ÷àñòè ýêðàíà íàõîäèòñÿ îáúåêò äðóãîãî òèïà(«Ñðåäñòâî ïðîòèâîâîçäóøíîé îáîðîíû»), è «Ñðåäñòâî ÏÂλ äîëæíî ñáèâàòü «Ñàìîë¸òû».

à) Âûáîð, îáîñíîâàíèå è èçëîæåíèå ìåòîäà ðåøåíèÿ çàäà÷è.

ß ïðåäïî÷¸ë èñïîëüçîâàíèå äèíàìè÷åñêîé ïàìÿòè, ïðîðèñîâêó òåêñòóð â îòäåëüíîé ïðîöåäóðå è çâóêîâîå ñîïðîâîæäåíèå.

Ñ äèíàìè÷åñêîé ïàìÿòüþ â äàííîì ñëó÷àå î÷åíü óäîáíî îðãàíèçîâàòü    îäíîâðåìåííîå ïåðåìåùåíèå äèíàìè÷åñêèõ îáúåêòîâ ïî ýêðàíó ñ ìèíèìàëüíûì ìåðöàíèåì ýêðàíà.

Ïðîðèñîâêà òåêñòóð â îòäåëüíîé ïðîöåäóðå óäîáíà òåì, ÷òî ïðè æåëàíèè èìååòñÿ âîçìîæíîñòü ïðîðèñîâàòü äâèæóùèéñÿ îáúåêò íå âíèêàÿ â îñîáåííîñòè ïðîãðàììû.

Çâóêîâîå ñîïðîâîæäåíèå ÷åðåç ñèñòåìíûé äèíàìèê ïðåäðàñïîëàãàåò ïîëüçîâàòåëÿ ê ïîëó÷åíèþ ïðèÿòíûõ îùóùåíèé ïðè èñïîëüçîâàíèè ïðîãðàììû.

á) Ïîñòðîåíèå àëãîðèòìà çàäà÷è.

Ïðîãðàììà  íà÷èíàåòñÿ ñ ìåíþ, åñëè æå âûáîð ïàë íà ìåíþ «Ïðîãðàììà» òî ñíà÷àëà â äèíàìè÷åñêóþ ïàìÿòü çàíîñÿòñÿ «÷èñòûå» êâàäðàòû ýêðàíà, çàòåì ïîñëåäîâàòåëüíî íà ýêðàí âûâîäÿòñÿ èçîáðàæåíèÿ äèíàìè÷åñêèõ îáúåêòîâ è ïîñëåäîâàòåëüíî æå çàíîñÿòñÿ â äèíàìè÷åñêóþ ïàìÿòü. «×èñòûå» êâàäðàòû ïðè ýòîì íàêëàäûâàþòñÿ íà çàðèñîâàííóþ  îáëàñòü ýêðàíà, ÷òîáû ïðè ñêàíèðîâàíèè ïîñëåäóþùèõ èçîáðàæåíèé íå âîçíèêàëî êîíôóçîâ.

Äàëåå â çàâèñèìîñòè îò íàæàòûõ êëàâèø äèíàìè÷åñêèå îáúåêòû äâèãàþòñÿ òàê èëè èíà÷å.

â) Ñîçäàíèå è îòëàäêà ïðîãðàììû.

Ñîçäàíèå ïðîãðàììû ñîñòîÿëî èç òð¸õ ýòàïîâ: ñîçäàíèå ìåíþ, ñîçäàíèå îñíîâíîãî òåëà èãðû â âèäå îòäåëüíîé ïðîöåäóðû áåç ïðîðèñîâêè òåêñòóð è îêîí÷àòåëüíàÿ ïðîðèñîâêà òåêñòóð.

ã) Îôîðìëåíèå ïîÿñíèòåëüíîé çàïèñêè è çàùèòà êóðñîâîãî ïðîåêòà.

2 Áëîê-ñõåìà.


3 Ïðîãðàììà íà ÿçûêå Pascal c êîììåíòàðèÿìè.

program jim;

uses crt,graph;

label 1,3;

var a:char;

    b:integer;

    procedure beep;{Âûäà÷à çâóêà}

    begin

    sound(300);delay(6000);nosound;delay(700);

    end;

     procedure zemlya;{ïðîðèñîâêà íèæíåé ÷àñòè ýêðàíà}

     begin

     setcolor(3);

     line(0,55,640,55);

     line(0,479,0,430);

     line(0,430,639,430);

     line(639,430,639,479);

     line(639,479,0,479);

     setfillstyle(7,5);

     floodfill(10,470,3);

     end;

  procedure PVO;{Ïðîðèñîâêà ñðåäñòâà ÏÂÎ}

    begin

        setcolor(6);

        line(5,37,45,37);line(45,37,47,39);

        line(47,40,37,50);line(37,50,7,50);

        line(7,50,3,39);line(3,38,5,37);

        circle(15,43,6);circle(30,43,6);

        circle(6,39,2);circle(44,39,2);

        setfillstyle(1,6);

        floodfill(41,43,6);floodfill(22,49,6);

        floodfill(7,43,6);floodfill(10,39,6);

        setcolor(2);

        line(3,39,3,34);line(3,34,20,34);

        line(21,34,21,23);line(21,23,33,23);

        line(33,23,47,36);line(47,36,47,36);

        line(47,36,3,36);

        line(36,26,29,26);line(29,27,30,30);

        line(31,31,42,31);

        setfillstyle(1,2);floodfill(26,32,2);

        setcolor(9);

        line(8,33,8,23);line(9,24,9,13);

        line(9,13,11,12);line(11,12,11,9);line(11,12,13,13);

        line(13,13,13,24);line(14,23,14,33);

        line(8,28,3,33);line(3,33,19,33);

        line(19,33,14,28);

        setfillstyle(1,9);floodfill(11,28,9);

        line(21,24,24,24); line(21,25,24,25);

        setcolor(4);line(21,26,25,26);line(21,27,25,27);

        setcolor(15);line(21,28,26,28);line(21,29,26,29);

    end;

  procedure NLO; {ïðîðèñîâêà ëåòàþùåé òàðåëêè}

    var l:integer;

    begin randomize;l:=random(256);

        setcolor(l);

        line(9,8,7,8);line(7,9,5,9);

        line(5,10,3,10);line(3,11,1,11);

        line(1,11,1,13);line(2,14,4,14);

        line(3,15,5,15); line(5,16,8,16);

        line(7,17,10,17);line(10,18,16,18);

        line(16,19,35,19);line(35,18,41,18);

        line(41,17,44,17);line(44,16,46,16);

        line(46,15,48,15);line(48,14,49,14);

        line(49,14,49,11);line(49,11,48,11);

        line(48,10,46,10);line(46,9,44,9);

        line(44,8,41,8);line(41,7,41,9);

        line(41,9,40,9);line(40,10,37,10);

        line(37,11,33,11);line(33,12,17,12);

        line(17,11,13,11);line(13,10,10,10);

        line(10,9,9,8);

        setfillstyle(1,l);floodfill(24,15,l);

        putpixel(31,16,0);putpixel(42,12,0);

        putpixel(18,16,0);putpixel(7,13,0);

        setcolor(11);

        line(18,11,32,11);line(32,10,36,10);

        line(36,9,39,9);line(40,8,40,5);

        line(39,4,36,4);line(36,3,32,3);

        line(32,2,18,2);line(18,3,14,3);

        line(14,4,11,4);line(10,5,10,8);

        line(11,9,14,9);line(14,10,18,10);

        setfillstyle(1,11);floodfill(25,7,11);

     end;

  procedure pulka;{Ïðîðèñîâêà ñíàðÿäà}

        begin

        setcolor(5);

        line(2,6,2,3);line(3,6,3,0);line(4,6,4,3);

        setcolor(13);

        line(3,8,3,7);

        setcolor(14);

        line(1,5,1,7);line(2,7,2,9);

        putpixel(3,9,14);line(4,7,4,9);line(5,5,5,7);

        end;

    procedure gameover(b,v:integer);{ïðåäïèñàíèÿ ïðè âûèãðûøå îäíîé

      var u,o:integer;                                      èç ñòîðîí}

          i:^integer;

          siz:word;

     begin

      siz:=imagesize(0,100,1,100);

      getmem(i,siz);

      getimage(0,100,1,100,i^);

      if v>500 then begin

      outtextxy(300,240,'Y');beep;

      outtextxy(308,240,'o');beep;

      outtextxy(316,240,'u');beep;

      outtextxy(324,240,'_');beep;

      outtextxy(332,240,'W');beep;

      outtextxy(340,240,'I');beep;

      outtextxy(348,240,'N');beep;

                    end;

      if b>500 then begin

                       outtextxy(300,240,'G');beep;

                       outtextxy(308,240,'a');beep;

                       outtextxy(316,240,'m');beep;

                       outtextxy(324,240,'e');beep;

                       outtextxy(332,240,'_');beep;

                       outtextxy(340,240,'O');beep;

                       outtextxy(348,240,'v');beep;

                       outtextxy(356,240,'e');beep;

                       outtextxy(364,240,'r');beep;

                       delay(45000);outtextxy(330,260,':');beep;

                                    outtextxy(338,260,'-');beep;

                                    outtextxy(346,260,'>');beep;

                    end;

      delay(64500);delay(64500);

      delay(64500);

      for u:=0 to 640 do

      for o:=0 to 480 do begin

                           putimage(u,o,i^,copyput);

                         end;

     end;

  procedure jim; {Íåïîñðåäñòâåííî èãðà}

  label 2,3;

  var i,j,x,y,m,n,v,b:integer;

      key:boolean;

      s,ss,s1,s2,s3:word;p,pp,p1,p2,p3:pointer;{ðð-ïóñòîé êâàäðàò;ð-ÏÂÎ...;ð1-ïóëüêà}

  begin i:=9;j:=2;initgraph(i,j,'');

3:      ss:=imagesize(0,430,50,480);a:='y';

        getmem(pp,ss);

        getimage(0,430,50,480,pp^);

        s:=imagesize(0,0,50,50);

        getmem(p,s);

        PVO;

        getimage(0,0,50,50,p^);

        putimage(0,0,pp^,copyput);

        s1:=imagesize(0,0,5,10);

        getmem(p1,s1);

        pulka;

        getimage(0,0,5,10,p1^);

        putimage(0,0,pp^,copyput);

        s2:=imagesize(0,0,5,10);{ð2-ìàëåíüêèé êâàäðàòèê ïóëüêè}

        getmem(p2,s2);

        getimage(0,0,5,10,p2^);

        s3:=imagesize(0,0,50,20);

        getmem(p3,s3);

        NLO;

        getimage(0,0,50,20,p3^);  putimage(0,0,pp^,copyput);

        zemlya;

        x:=200;y:=379;putimage(x,y,p^,copyput);

        v:=0;b:=0;delay(45000);delay(45000);

      repeat        {Íà÷àëî ñàìîãî ïðîöåññà èãðû}

              for n:=1 to 1770 do begin

              putimage(round(n/3),60,p3^,copyput);

              if n>1760 then begin

                               putimage(round(n/3),60,pp^,copyput);

                               sound(300);delay(100);nosound;

                             end;

              key:=keypressed;

              if key=false then goto 2;

              a:=readkey;

                  if a=chr(77) then begin

                                     x:=x+3;

                                     if x>580 then begin

                                                    putimage(x,y,pp^,copyput);

                                                    x:=10;

                                                   end;

                                     putimage(x,y,p^,copyput);

                                     end;

                  if a=chr(75) then begin

                                     x:=x-3;

                                     if x<10 then begin

                                                     putimage(x,y,pp^,copyput);

                                                     x:=580;

                                                  end;

                                     putimage(x,y,p^,copyput);

                                    end;

                  if a=chr(32) then begin for m:=y-2 downto 56 do begin

                                                        putimage(x+8,m,p1^,copyput);

                                                        delay(5);

                                                                  end;

                                                        if m<90 then

                                                        if round(n/3)>(x-50) then

                                                        if round(n/3)<(x+10) then begin

                                                        sound(800);delay(2000);

                                                        nosound;putimage(round(n/3),60,pp^,copyput);

                                                        putimage(v,10,p1^,copyput);n:=1;

                                                        v:=v+15;if v>500 then begin gameover(b,v);goto 3;end;end;

                                         putimage(x+8,56,p2^,copyput);

                                    end;

2:                                 end;putimage(b,24,p3^,copyput);b:=b+50;

                                   if b>500 then begin gameover(b,v);goto 3;end;

                            if a=chr(113) then begin

                                  v:=550;gameover(b,v);goto 3;

                                     end;

      until a=chr(27);

  end;

begin{Îñíîâíàÿ ïðîãðàììà}

1:   clrscr;

     gotoxy(30,10);

     write('Ââåäåíèå');

     gotoxy(30,11);

     write('Ïîñòàíîâêà çàäà÷è');

     gotoxy(30,12);

     write('Ìàòåìàòè÷åñêèå ìåòîäû...');

     gotoxy(30,13);

     write('Îïèñàíèå äàííûõ');

     gotoxy(30,14);

     write('Àëãîðèòìû è áëîê-ñõåìû');

     gotoxy(30,15);

     write('ÏÐÎÃÐÀÌÌÀ');

     gotoxy(30,16);

     write('Òåêñòîâûå ïðèìåðû');

     gotoxy(30,17);

     write('Ðóêîâîäñòâî ïîëüçîâàòåëþ');

     gotoxy(30,18);

     write('Çàêëþ÷åíèå');

     gotoxy(30,19);

     write('Ñïèñîê ëèòåðàòóðû');{Ýòî âñ¸ ìåíþøêà}

     gotoxy(26,10);

     write('>>>');

     gotoxy(25,10);

     repeat

           a:=readkey;

           if a=chr(80) then begin{äâèæåíèå êóðñîðà âíèç}

                                   b:=wherey;

                                   gotoxy(26,b);

                                   write('   ');

                                   if b>=19 then b:=9;

                                   gotoxy(26,b+1);

                                   write('>>>');

                                   gotoxy(25,b+1);

                                   sound(3000);

                                   delay(1000);

                                   nosound;

                              end;

           if a=chr(72) then begin{äâèæåíèå êóðñîðà ââåðõ}

                                   b:=wherey;

                                   gotoxy(26,b);

                                   write('   ');

                                   if b<=10 then b:=20;

                                   gotoxy(26,b-1);

                                   write('>>>');

                                   gotoxy(25,b-1);

                                   sound(4000);

                                   delay(1000);

                                   nosound;

                              end;

           if a=chr(13) then begin {Îïðîñ êëàâèøè ENTER}

                              b:=wherey;

                              if b=19 then begin  {Ñïèñîê ëèòåðàòóðû}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Êíèæêà ïî Òóðáî-Ïàñêàëþ');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                              if b=10 then begin {Ââåäåíèå}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                               writeln('Îñíîâíîé öåëüþ äàííîãî êóðñîâîãî ïðîåêòà');

                                           gotoxy(30,b+1);

                                writeln('ÿâëÿåòñÿ çàêðåïëåíèå è äåìîíñòðàöèÿ çíàíèé,');

                                           gotoxy(30,b+2);

                                writeln('ïîëó÷åíûõ ïðè èçó÷åíèè êóðñà èíôîðìàòèêè');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                              if b=11 then begin  {Ïîñòàíîâêà çàäà÷è}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Ñäåëàòü èãðó: ëåòàëêó-ñòðåëÿëêó');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                              if b=18 then begin  {Çàêëþ÷åíèå}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Ìíå ïîíðàâèëàñü ìîÿ ïðîãà   :-)');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                              if b=17 then begin  {ðóêîâîäñòâî ïîëüçîâàòåëþ}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                        write('Åñëè Âû â ýòîé ïðîãå íè÷åãî íå ïîìåíÿåòå');

                                           gotoxy(30,b+1);

                                           write('îíà áóäåò ðàáîòàòü ÂÅ×ÍÎ...');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                               if b=12 then begin  {ìàòåìàòè÷åñêèå ìåòîäû}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Çàäà÷à ñàìà ïî ñåáå íå ìàòåìàòè÷åñêàÿ,');

                                           gotoxy(30,b+1);

                                 write('çíà÷èò è ìàòåìàòè÷åñêèõ ìåòîäîâ íèêàêèõ íåò');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                                if b=13 then begin  {Îïèñàíèå äàííûõ}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Äàííûõ íåò...');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                                 if b=14 then begin  {Àëãîðèòì.áëîê-ñõåìà}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Ñìîòðè Ïîÿñíèòåëíóþ çàïèñêó');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                                  if b=16 then begin  {Òåêñòîâûå ïðèìåðû}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Òåêñòîâûõ ïðèìåðîâ ó ìåíÿ òîæå íåò');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                                  if b=15 then begin

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           jim;

                                           closegraph;

                                           goto 1;

                                           end;

                              end;

     until a=chr(27);

end.

4 Ðóêîâîäñòâî ïîëüçîâàòåëÿ äëÿ ðàáîòû â ïðîãðàììå.

Ïðè çàïóñêå ïðîãðàììû ïîÿâëÿåòñÿ ìåíþ, ïðåäëàãàþùåå øèðîêèé âûáîð ïóíêòîâ.

Êóðñîð ïåðåìåùàåòñÿ ïðè ïîìîùè êëàâèø êóðñîðà, âûáîð îñóùåñòâëÿåòñÿ êëàâèøåé ENTER .

Ïðè âûáîðå êàêîãî-ëèáî ïóíêòà ìåíþ ïîÿâëÿåòñÿ ñîîòâåòñòâóþùåå ñîîáùåíèå, îäíàêî æå, ïðè âûáîðå ïóíêòà «Ïðîãðàììà» çàïóñêàåòñÿ íåïîñðåäñòâåííî ñàìà èãðà.

Ñóòü èãðû çàêëþ÷àåòñÿ â ñáèâàíèè ëåòàþùèõ òàðåëîê ñðåäñòâîì ÏÂÎ.

Ñðåäñòâî ÏÂÎ ìîæåò ñ ïîìîùüþ êóðñîðà ïåðåìåùàòüñÿ ïî ýêðàíó â ãîðèçîíòàëüíîì íàïðàâëåíèè. Ïðè íàæàòèè êëàâèøè «ïðîáåë» ñðåäñòâî ÏÂÎ ñîâåðøàåò âûñòðåë. Åñëè ñíàðÿä ïîïàäàåò â ëåòàþùóþ òàðåëêó, òî îíà ñ÷èòàåòñÿ ñáèòîé è çà÷èñëÿåòñÿ â ôîíä èãðîêà, ÷òî ñèìâîëèçèðóåòñÿ ïîÿâëåíèåì çíà÷êà ñíàðÿäà â âåðõíåì ïðàâîì óãëó. Åñëè æå âûïóùåííûå ñíàðÿäû íå äîñòèãàþò öåëè è ëåòàþùàÿ òàðåëêà äîëåòàåò äî ïðàâîãî êðàÿ ýêðàíà, òî ýòî îòìå÷àåòñÿ òàêæå â ïðàâîì âåðõíåì óãëó ïîÿâëåíèåì çíà÷êà ëåòàþùåé òàðåëêè.

Èãðîê ïðîèãðûâàåò â ñëó÷àå äîñòèæåíèÿ ÷èñëà íå ñáèòûõ òàðåëîê ïðàâîãî êðàÿ ýêðàíà.

Èãðîê âûèãðûâàåò â ñëó÷àå äîñòèæåíèÿ ÷èñëà ñáèòûõ òàðåëîê ïðàâîãî êðàÿ ýêðàíà.

Ïîñëå ïðîèãðûøà ëèáî âûèãðûøà èãðà ïîâòîðÿåòñÿ.


Çàêëþ÷åíèå.

 ïðîöåññå îòëàäêè ïðîãðàììû âîçíèêëè ñëîæíîñòè ñ òåì, ÷òî ïðè ñêàíèðîâàíèè ïîëíîãî ýêðàíà è ïîñëåäóþùåì èñïîëüçîâàíèè ýòîãî îáúåêòà ïðîãðàììà íà÷èíàëà ðåçêî çàìåäëÿòü ñêîðîñòü ñâîåé ðàáîòû. Ïðåîäîëåíèå ýòîãî ïðåïÿòñòâèÿ  çàêëþ÷àëîñü â ñêàíèðîâàíèè íåáîëüøèõ ÷àñòåé ýêðàíà è äàëüíåéøåì èõ èñïîëüçîâàíèè.

Äëèòåëåí òàêæå ïðîöåññ äåòàëüíîé ïðîðèñîâêè ãðàôèêè.

Íåîáõîäèìî, ÷òîáû â òîé ïàïêå, ãäå ëåæèò äàííàÿ ïðîãðàììà, íàõîäèëñÿ ôàéë egavga.bgi . Ýòîò ôàéë èìååòñÿ âî ìíîãèõ âåðñèÿõ ÒÐ â ïàïêå bin, îí îòâå÷àåò çà èíèöèàëèçàöèþ ãðàôèêè.


Ñïèñîê èñïîëüçîâàííîé ëèòåðàòóðû.

1 Ìåæåííûé Î.À. «Turbo Pascal-ó÷èòåñü ïðîãðàììèðîâàòü»;Ìîñêâà-Ñ.Ïåòåðáóðã-Êèåâ; «Äèàëåêòèêà»;2001;448ñ.

2 Áàáóøêèí È.À.; «Ïðàêòèêóì ïî Òл-ó÷åáíîå ïîñîáèå ïî êóðñàì ÈÂÒ; Ìîñêâà, 1998.

3 http://www.freepascal.org;

4 http://www.geocities.com/~franzglaser/tp.htm;

5 http://www.garbo.uwasa.fi/pc/turboobj.html;


© 2012 Ðåôåðàòû, êóðñîâûå è äèïëîìíûå ðàáîòû.