1. Pascal / Говнокод #7472

    +120

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 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.

    Запостил: dos, 06 Августа 2011

    Комментарии (14) RSS

    Добавить комментарий