- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
VAR
m0:array[0..61,0..41]of byte;
ma:array[1..60,1..40]of byte;
I,J:byte;
BEGIN
randomize;
for I:=0to 61do
for J:=0to 41do
if (I=0) or
(I=61)or
(J=0) or
(J=61)
then m0[I,J]:=0
else m0[I,J]:=random(2);
for I:=1to 60do
for J:=1to 40do
if m0[I,J]=1then ma[I,J]:=9
else ma[I,J]:=m0[ I-1 , J-1 ] +
m0[ I-1 , J ] +
m0[ I+1 , J+1 ]+
m0[ I , J+1 ]+
m0[ I , J-1 ]+
m0[ I-1 , J+1 ]+
m0[ I+1 , J-1 ]+
m0[ I+1 , J ];
... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ...
END.
Начало игры САПЁР. Край массива заполняем нулями,
середину - 0 или 1. В меньшем массиве складываем соседние
клетки (выходит от 0 до 8), если мина - 9.
guest 06.08.2011 16:25 # +23
dosGovno 06.08.2011 16:29 # +23
guest 06.08.2011 16:37 # +21
dos 06.08.2011 16:43 # +22
Алсо, в редакторе можно увидеть мордочку.
dos 06.08.2011 21:32 # +19
guest 06.08.2011 23:10 # +18
GravatarGovno 21.07.2021 00:08 # 0
guest 07.08.2011 16:37 # −22
guest 07.08.2011 18:04 # −24
у нас тоже была лаба на тему 2хмерных массивов, где нужно было написать сапер
KirAmp 08.08.2011 22:21 # +19
guest 08.08.2011 23:40 # +21
TheHamstertamer 19.10.2011 14:34 # +5
dos_ 20.11.2011 00:33 # +2
guest8 09.04.2019 11:17 # −999