Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 22.12.2010
Сообщений: 3
1

Помогите написать игру, пожалуйста.

22.12.2010, 14:41. Просмотров 1417. Ответов 4
Метки нет (Все метки)


Проблема заключается в том, что я проболел, и пока бегал исправлял оценки для зачетов, совсем не успевал написать проект-игру змейка на FPC, есть у кого-нибудь она??
Или можете помочь дописать ее? Если можно, что бы у нее код был попроще(надо еще перед защитой проекта успеть понять, что я защищаю =)) )
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2010, 14:41
Ответы с готовыми решениями:

Помогите пожалуйста написать две программы? сопротивления участника электрической цепи, треугольник.
Привет всем! Помогите пожалуйста составить две программы...:cry: Очень буду благодарна! :) 1....

Помогите пожалуйста написать программу пересчёта числа!
Разработайте программу пересчёта целого числа в систему исчисления на основании числа K. Результат...

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

Помогите написать игру танчики
ребят мб у кого то есть старые добрые танчики типо как на денди раньше)) или кто то может помочь...

4
Оранжевый портфель.
60 / 58 / 47
Регистрация: 13.11.2010
Сообщений: 459
22.12.2010, 14:55 2
Графика в Турбо Паскаль
правда она у меня в самый первый раз чето багнула?? а в второй раз норма поиграл
0
0 / 0 / 0
Регистрация: 22.12.2010
Сообщений: 3
22.12.2010, 17:16  [ТС] 3
Мне надо рабочий на FPC
0
Фрилансер
Эксперт С++
5843 / 1224 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
22.12.2010, 17:25 4
Цитата Сообщение от FnR Посмотреть сообщение
Помогите написать игру
это <> напишите за меня.
где код? где наработки по игре? в чем суть игры?
0
0 / 0 / 0
Регистрация: 22.12.2010
Сообщений: 3
26.12.2010, 21:03  [ТС] 5
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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
uses crt,graph;
type tzmey=array[0..14] of integer;
const
 left=#75;
 right=#77;
 up=#72;
 down=#80;
 esc=#27;
 n=31;
 m=16;
 
var
pole:array[0..n,0..m] of integer;
izk,jzk,iz,jz:tzmey;
cg:char;
ochki,dx,dy,nx,ny,gd,gm:integer;
 
procedure createzmey;
var
i:integer;
begin
 for i:=0 to 14 do
 if i<=3 then
  begin
   iz[i]:=4;
   jz[i]:=8+i;
  end
 else
  begin
   iz[i]:=0;
   jz[i]:=0;
  end;
end;
 
procedure create_pole;
var
k,i,j:integer;
begin
 for i:=0 to n do
 for j:=0 to m do
 if (j=0) or (i=n) or (j=m) or (i=0) then
 pole[i,j]:=-1
  else
 pole[i,j]:=0;
 k:=0;
repeat
 i:=random(n-2)+1;
 j:=random(m-2)+1;
 if(pole[i,j]=0)
 and
 (i<>4)
 and
 (abs(pole[i-1,j])<>1)
 and
 (abs(pole[i+1,j])<>1)
 and
 (abs(pole[i,j-1])<>1)
 and
 (abs(pole[i,j+1])<>1)
 then
 begin
  pole[i,j]:=1;
  k:=k+1;
 end;
until (k=11);
end;
 
procedure drawzmey;
var
x,y,i:integer;
begin
setfillstyle(1,12);
for i:=0 to 14 do
if (iz[i]>0) and (jz[i]>0) then
begin
 x:=nx+jz[i]*dx;
 y:=ny+iz[i]*dy;
 bar(x,y,x+dx,y+dy);
end;
end;
 
procedure drawpole;
var
i,j,x,y:integer;
begin
 for i:=0 to n do
 for j:=0 to m do
  begin
   x:=j*dx+nx;
   y:=i*dy+ny;
   case pole[i,j] of
0:begin
   setcolor(1);
   setfillstyle(1,0);
   bar(x,y,x+dx,y+dy);
   rectangle(x,y,x+dx,y+dy);
  end;
-1:begin
    setfillstyle(1,white);
    bar(x,y,x+dx,y+dy);
  end;
1:begin
   setfillstyle(1,14);
   bar(x,y,x+dx,y+dy);
  end;
  end;
  end;
end;
 
procedure schet(xw,yw,n:integer);
var
s:string;
begin
 setfillstyle(1,1);
 bar(xw,yw,xw+40,yw+20);
 setcolor(14);
 settextstyle(0,0,1);
 str(n,s);
 outtextxy(xw+5,yw+5,s);
end;
 
procedure movezmey;
var
i,kz,hi,hj,x,y:integer;
stop:boolean;
ch:char;
 
procedure rul;
begin
 ch:=readkey;
 if ch=#0 then
  begin
   ch:=readkey;
   case ch of
   left:if hj=0 then
   begin
    hi:=0;
    hj:=-1;
   end;
   right:if hj=0 then
   begin
    hi:=0;
    hj:=1;
   end;
   up:if hi=0 then
   begin
    hi:=-1;
    hj:=0;
   end;
   down:if hi=0 then
   begin
    hi:=1;
    hj:=0;
   end;
end;
begin
hi:=0;
hj:=-1;
kz:=3;
 
stop:=false;
repeat
 setfillstyle(1,0);
 x:=nx+jz[kz]*dx;
 y:=ny+iz[kz]*dy;
 bar(x,y,x+dx,y+dy);
 setcolor(1);
 rectangle(x,y,x+dx,y+dy);
 izk:=iz;
 jzk:=jz;
 
for i:=1 to kz do
 begin
  iz[i]:=izk[i-1];
  jz[i]:=jzk[i-1];
 end;
if keypressed then rul;
iz[0]:=iz[0]+hi;
jz[0]:=jz[0]+hj;
 setfillstyle(1,12);
 x:=nx+jz[0]*dx;
 y:ny+iz[0]*dy;
 bar(x,y,x+dx,y+dy);
if pole[iz[0],jz[0]]=1 then
 begin
  kz:=kz+1;
  ochki:=ochki+10;
  schet(500,10,ochki);
 end;
 for i:=1 to 15 do
 if (iz[i]=iz[0]) and (jz[i]=jz[0]) then
 stop:=true;
 delay(30000);
until
(pole[iz[0],jz[0]]=-1)
or
(ch=esc)
or
stop
or
(kz=14);
 
procedure initdat;
begin
randomize;
 ochki=0;
 dx:=15;
 dy:=15;
 nx:=20;
 ny:=0;
 end;
 
BEGIN
 gd:=detect;
 initgraph(gd,gm,'');
 initdat;
 create_pole;
 createzmey;
 drawpole;
 drawzmey;
 readkey;
 movezmey;
 readln;
 closegraph;
END.
помогите исправить код до рабочего состояния =((
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2010, 21:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Помогите написать самую простейшую игру
Помогите написать самую простейшую игру.

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

Помогите написать какую-нибудь игру в Java
пожайство помогите написать какой нибудь игру в java

Помогите, пожалуйста, написать запрос
Требуется вывести Model с минимальной ценой Price из таблицы Printer(в скриншоте) Я пишу такой...

Помогите пожалуйста написать код
Здраствуйте! Прошу помочь начинающему программисту) Только начал изучать 1С 8.1. В книге &quot;Введение...

Помогите пожалуйста написать программы...
1.Дано натуральное число: - найти произведение цифр числа; - верно ли, что в данном числе нет...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.