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

  Перегляд  раніше записаних результатів 

                 

  Розроблена  програма-гра дає можливість добре  відпочити після тривалого робочого дня. 
 
 
 
 
 
 

  Висновки. 

                  Розв’язування задач обчислювального характеру з використанням персональних комп’ютерів має велике практичне значення, оскільки дає можливість значно економити час при виконанні простих , але громістких обчислень. Використання з цією метою готових пакетів прикладних програм для виконання математичних обчислень має певні вади. Ліцензовані пакети прикладних програм мають високу вартість і достатньо високу складність експлуатації. Тому їх використання для розв’язування нескладних задач (а саме такою є сортування масиву) є недоцільним. Надзвичайно важливо вміти самостійно складати прості програми для розв’язування задач обчислювального характеру. 

                В даному курсовому проекті розроблено і описано програму-гру «Змійка». Для розробки програми вибрано мову Паскаль (середовище Borland Pascal) . Програма розроблена із застосуванням методики процедурного проектування. 

               Програма відкомпільована з отриманням ехе-файла та відладжена. 

          Вибір алгоритмічної мови Паскаль  для реалізації постановленої  задачі повністю виправдав себе. 
 
 
 
 
 
 
 
 
 
 
 
 
 

  Список  використаної літератури: 

1. Т.В. Ковалюк, видавнича група «BHV», 2005- «ОСНОВИ ПРОГРАММУВАННЯ».

 
 
 
 
 
 
 
 

  ДОДАТКИ 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

                     
 
 
 
 
 
 
 
 

                                           
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

    
 
 
 
 
 
 
 
 

  

                                                                                                

 

  Додаток 2.

  Лістинг програми. 
 

    001}Program ZMEjKA;

    002}uses CRT;

    003}label 1;

    004}type result=record

    005}      scor:integer;

    006}     name:string[15];

    007}      len:integer;

    008}     end;

    009}  res=file of result;

    010}

    Var

    011} f:                                res;

    012}SnakeX,SnakeY:  array[1..4000] of longint;

    013}HeadX,HeadY:                      longint;

    014}BonusX,BonusY:  array[1..40]   of longint;

    015}DeathX,DeathY:  array[1..30]   of longint;

    016}Dlina,Naprav:                     longint;

    017}key:                              char;

    018}i,score:                          integer;

    019}MenuItem:       array[1..6]    of string;

    020}DTime,ScorePlus,ScoreMinus,MenuSelect,x,y:       integer;

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

    021}Procedure Ramka(x,y:integer);

    022}Begin

    023}TextColor(2);

    024} TextBackground(0);

    025}gotoxy(x,y);

    026} writeln('╔═ ЗМЕЙКА 0.1 ══════╗');

    027} gotoxy(x,y+1);

    028} writeln('║     VERY SLOW     ║');

    029} gotoxy(x,y+2);

30. } writeln('║       SLOW        ║');
31. } gotoxy(x,y+3);
32. } writeln('║      MEDIUM       ║');
33. } gotoxy(x,y+4);
34. } writeln('║       HIGH        ║');
35. } gotoxy(x,y+5);
36. } writeln('║     VERY HIGH     ║');
37. } gotoxy(x,y+6);
38. }writeln('║      RESULT       ║');
39. }gotoxy(x,y+7);
40. }writeln('╚═══════════════════╝');
41. }gotoxy(x,y+8);
42. }textcolor(14);
43. }writeln('  Виберiть рiвень    ');
44. }textcolor(0);
45. }gotoxy(1,1);
46. }End;

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

47. } Procedure Symbol(x,y:integer; sym:char);
48. } Begin
49. } gotoxy(x,y);
50. } write(sym);
51. } gotoxy(1,1);
52. } End;

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

53. } Procedure Rezultat(var d:res;scr,dl:integer);
54. } var f1:result;

 
   

55. } Begin
56. } {$I-}
57. } Reset(d);
58. } {$I+}
59. } IF IOResult<>0 THen rewrite(d);
60. } clrscr;
61. } gotoxy(28,22);
62. } textcolor(green);
63. } write('Введить ваше iм`я: ');
64. } readln(f1.name);
65. } f1.scor:=scr;
66. } f1.len:=dl;
67. } seek(d,filesize(d));
68. } write(d,f1);
69. } Close(d);
70. } Textcolor(0);
71. } Halt;
72. } End;

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

73. } Procedure OverRes(var d:res);
74. } var f1:result;
75. } y:integer;
76. } Begin
77. } ClrScr;
78. } {$I-}
79. } Reset(d);
80. } {$I+}
81. } IF IOResult<>0 THEN begin
82. } gotoxy(28,22);
83. }  textcolor(green);
84. }  write('Результатiв немає!');end
85. } Else
86. } begin
87. } textcolor(green);
88. } y:=1;
89. } while not eof(d) do begin
90. } read(d,f1);
91. } gotoxy(1,y); write('Iм`я: ',f1.name);
92. } gotoxy(30,y); write('Довжина: ',f1.len);
93. } gotoxy(45,y); write('Oчки: ',f1.scor:5);
94. } y:=y+1;
95. } end;
96. } Close(d);
97. } end;
98. } repeat until keypressed;
99. } textcolor(0);

      100}End;

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

101. } Procedure GoUp(x,y:integer);
102. } Begin
103. } Ramka(x,y);
104. } MenuSelect:=Menuselect-1;
105. } IF MenuSelect < 1 THEN MenuSelect:=6;
106. } TextColor(14);
107. } TextBackground(0);
108. } GotoXY(x+1,y+MenuSelect);
109. } write(MenuItem[MenuSelect]);
110. } Textbackground(0);
111. } textcolor(0);
112. } gotoxy(1,1);
113. } End;

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

114. }Procedure GoDown(x,y:integer);
115. }Begin
116. }ramka(x,y);
117. }MenuSelect:=MenuSelect+1;
118. }IF MenuSelect > 6 THEN MenuSelect:=1;
119. }textcolor(14);
120. }textbackground(0);
121. }gotoxy(x+1,y+MenuSelect);
122. }write(MenuItem[MenuSelect]);
123. }textcolor(0);
124. }textbackground(0);
125. }gotoxy(x,y);
126. }End;

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

127. }Procedure Menu;
128. }label b;
129. }Var
130. }X,Y,I:integer;
131. }Begin
132. }b:
133. }dlina:=5;
134. }Naprav:=1;
135. }HeadX:=5;
136. }HeadY:=1;
137. }Score:=0;
138. }X:=28;Y:=20;
139. }clrscr;
140. }Ramka(x,y);
141. }textcolor(14);
142. }textbackground(0);
143. }gotoxy(x+1,y+Menuselect);
144. }write(MenuItem[MenuSelect]);
145. }textcolor(0);
146. }textbackground(0);
147. }gotoxy(1,1);
148. }repeat
149. }I:=ord(readkey);
150. }case I of
151. }72:GoUp(x,y);
152. }80:GoDown(x,y);
153. }end;
154. }Until (I=27)or(I=13);
155. }IF i=27 THEN halt;
156. }Case MenuSelect of
157. }1: Begin

DTime:=10000;

ScorePlus:=5;

End;

158. }2: Begin

DTime:=8000;

ScorePlus:=10;

End;

159. }3: Begin

 DTime:=6000;

 ScorePlus:=15;

 End;

160. }4: Begin

  DTime:=4000;

  ScorePlus:=20;

  End;

161. }5: Begin

  DTime:=2000;

  ScorePlus:=25;

  End;

162. }6: Begin

  OverRes(f);

  ClrScr;

  goto b;

  End;

163. }End;
164. }CLRSCR;
165. }End;

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

166. }Procedure DrawSnake;
167. }Begin
168. }textcolor(15);
169. }gotoxy(1,50);
170. }write('            ');
171. }gotoxy(1,50);
172. }write('Oчки:  ',Score);
173. }gotoxy(20,50);
174. }write('Програму разрoбив Матковський Руслан aka Pat');
175. }gotoxy(65,50);
176. }write('              ');
177. }gotoxy(65,50);
178. }write('Довжина: ',Dlina);
179. }Symbol(SnakeX[1],SnakeY[1],chr(15));
180. }textcolor(2);
181. }for i:=2 to Dlina do  begin
182. }Symbol(SnakeX[i],SnakeY[i],chr(15));
183. }end;
184. }textcolor(red);
185. }for i:=1 to 40 do
186. }Symbol(BonusX[i],BonusY[i],chr(64));
187. }textcolor(0);
188. }gotoxy(1,1);
189. }End;

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

190. }Procedure AddBonus(b:longint);
191. }label 1;
192. }var
193. }Err,f:integer;
194. }Begin
195. }1:
196. }Err:=0;
197. }BonusX[b]:=Random(78)+1;
198. }BonusY[b]:=Random(48)+1;
199. }For f:=1 to 40 do
200. }if f<>b THEN
201. }if ((BonusX[f]=BonusX[b]) and (BonusX[f]<>0) and (BonusY[f]=BonusY[b]) and (BonusY[f]<>0)) THEN Err:=1;
202. }For f:=1 to Dlina do
203. }if (SnakeX[f]=BonusX[b]) and (SnakeY[f]=BonusY[b]) THEN Err:=1;
204. }IF Err=1 THEN goto 1;
205. }textcolor(0);
206. }gotoxy(1,1);
207. }End;

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

208. }Procedure Kill;
209. }Var c:array[1..6] of char;
210. }j:integer;
211. }label 1;
212. }Begin
213. }c[1]:='X';
214. }c[2]:='x';
215. }c[3]:=':';
216. }c[4]:='.';
217. }c[5]:='.';
218. }c[6]:=' ';
219. }Textcolor(2);
220. }for i:=1 to 6 do begin
221. }for j:=1 to Dlina do Symbol(SnakeX[j],SnakeY[j],c[i]);
222. }delay(5000);
223. }end;
224. }1:
225. }CLRSCR;
226. }textcolor(15);
227. }gotoxy(1,50);
228. }write('            ');
229. }gotoxy(1,50);
230. }write('Oчки:  ',Score);
231. }gotoxy(20,50);
232. }write('Програму разрoбив Матковський Руслан aka Pat');
233. }gotoxy(65,50);
234. }write('              ');
235. }gotoxy(65,50);
236. }write('Довжина: ',Dlina);
237. }textcolor(2);
238. }gotoxy(28,22);
239. }write('╔═══════════════════╗');
240. }gotoxy(28,23);
241. }write('║                   ║');
242. }gotoxy(28,24);
243. }write('║ Продовжити(Y/N)? ║');
244. }gotoxy(28,25);
245. }write('║                   ║');
246. }gotoxy(28,26);
247. }write('╚═══════════════════╝');
248. }gotoxy(1,1);
249. }key:=readkey;
250. }case key of
251. }'Y','y','Н','н': begin