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

    +103

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    // Будет св. время - рефакторить данный кусок.
   typeArray[0] := (Char(Ord(Value[1])- 1)) + IntToStr(StrToInt(Value[2]) - 1);
   typeArray[1] := (Char(Ord(Value[1]) - 1)) + Value[2];
   typeArray[2] := (Char(Ord(Value[1]) - 1)) + IntToStr(StrToInt(Value[2]) + 1);
   typeArray[3] := Value[1] + IntToStr(StrToInt(Value[2]) - 1);
   typeArray[4] := Value[1] + IntToStr(StrToInt(Value[2]) + 1);
   typeArray[5] := (Char(Ord(Value[1]) + 1)) + IntToStr(StrToInt(Value[2]) - 1);
   typeArray[6] := (Char(Ord(Value[1]) + 1)) + Value[2];
   typeArray[7] := (Char(Ord(Value[1]) + 1)) + IntToStr(StrToInt(Value[2]) + 1);
//-------!!!!!!!-----------

    Таки у погромистов тоже бывает полшестого!

    Запостил: Govnocoder#0xFF, 02 Апреля 2011

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

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