evilblack
1

дописать игру змейка

10.05.2010, 21:41. Показов 1084. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Народ, нужна помощь. Думаю есть люди который помогут. Короче, мне в школе надо сделать работу (зачётную) по паскалю, надо написать программу змейка. Вот я начал делать, а дальше всё завис, вроде бы как мысли есть, всё продумал, как да что там дальше. Но вот сам код программы не могу составить дальше... помогите кто смогите . (в инете смотрел, но вообще плохо понял, там есть работы где свой модуль создают, там я вообще пф, ноль).
Надо доделать и объяснить, чтобы мне тупоголовому вдолбить это:
1) чтобы змейка когда съедает яблоко выростала (знаю что через масив )
2) нарисовать яблоко и чтобы координаты рандомом вылетали.
3) ну и когда змейка сама себя съедает, то GAME OVER.
Прошу помочь и вдолибть в репу... Сам я в паскале ещё новичёк.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
program game; 
uses crt,graph; 
var 
gr1,gr2:integer; 
x,y,b,c:integer; 
k:char; 
chisl:byte; 
 
begin 
gr1:=VGA; 
gr2:=2; 
initgraph (gr1,gr2,'Z:\Students\10b_1\TP7\Bin'); 
{cama 3meya} 
setfillstyle (1,6); 
x:=315; 
y:=245; 
bar (x,y,x+10,y+10); 
setfillstyle(1,red); 
bar (0,0,640,10); 
bar(625,0,640,480); 
bar(0,0,10,480); 
bar(0,470,640,480); 
repeat 
k:=readkey; 
setcolor (6); 
setfillstyle (1,6); 
bar (x+10,y,x,y+10); 
case ord (k) of 
72: 
while (y>=11) and (not (keypressed)) do 
begin 
setfillstyle (1,0); 
bar (x,y,x+10,y+10); 
y:=y-1; 
if y<11 then y:=11; 
setfillstyle (1,6); 
bar (x,y,x+10,y+10); delay (2000); 
{k:=readkey;} 
if (y=11) then exit; 
end; 
80: 
while (y<=459) and (not (keypressed)) do 
begin 
setfillstyle (1,0); 
bar (x,y,x+10,y+10); 
y:=y+1; 
if y>459 then y:=459; 
setfillstyle (1,6); 
bar (x,y,x+10,y+10); delay (2000); 
if (y=459) then exit; 
end; 
75: 
while (x>=11) and (not (keypressed)) do 
begin 
setfillstyle (1,0); 
bar (x,y,x+10,y+10); 
x:=x-1; 
if x<11 then x:=11; 
setfillstyle (1,6); 
bar (x,y,x+10,y+10); delay (2000); 
if (x=11) then exit; 
end; 
77: 
while (x<=614) and (not (keypressed)) do 
begin 
setfillstyle (1,0); 
bar (x,y,x+10,y+10); 
x:=x+1; 
if x>614 then x:=614; 
setfillstyle (1,6); 
bar (x,y,x+10,y+10); delay (2000); 
if (x=614) then exit; 
end; 
end; 
until ord (k)= 27; 
 
readln; 
closegraph; 
end.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2010, 21:41
Ответы с готовыми решениями:

Написать игру "Змейка"
Написать игру змейка с 3 уровнями сложности и с записями рекордов

Дописать 3 функции в коде игры змейка
Здравствуйте, извините, если создал тему, которая уже была поднята. Необходима помощь, в связи с...

Можно ли реализовать игру змейка в консольном приложении
можно ли реализовать игру змейка в консольном приложении??? обдумывая решения столкнулся с...

Помогите написать игру змейка на Borland C (DOS)
Помогите создать саму змею и задать ей движение по стрелкам на клавиатре.

0
10.05.2010, 21:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2010, 21:41
Помогаю со студенческими работами здесь

Дописать реализацию стратегию выигрыша для игры змейка
Не могу понять как и где дописать строчки кода чтобы можно было реализовать какую-либо стратегию...

Создал игру(змейка в консоли) есть несколько неточностей
Проблемы: 1. при съедании фрукта игра заканчивается 2 всё мигает настолько, что у меня...

Задача перебрать игру змейка и расписать комментариями до запятой
Что успею до 6 июня. Задача до запятой расписать код и полностью изменить, потом зачёт. Может кому...

Игра змейка: после съедания 15 кроликов закончить игру
Помогите. так как на только начинаю изучать этот язык, реализовать процедуру с количество еды на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru