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

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