1. Список говнокодов пользователя ZLOvar

    Всего: 4

  2. Pascal / Говнокод #4387

    +144

    1. 1
    2. 2
    3. 3
    4. 4
    var boll : boolean;
    //много говна
    If boll = true then boll := false
    else boll := true;

    Увидел как-то у одного студента. Кодомартышковость обыкновенная

    ZLOvar, 18 Октября 2010

    Комментарии (29)
  3. Pascal / Говнокод #4364

    +144

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    Program upra;
    var s:string;
    i:integer;
    begin
    writeln ('vvesti stroku');
    readln(s);
    k:=0;
    for i:=1 to length(s) do
    if s='a' then
    s:='*';
    writeln(k);
    end

    Pascal. Меняем символ "а" на звёздочку. Школота детектед!

    ZLOvar, 13 Октября 2010

    Комментарии (7)
  4. Pascal / Говнокод #3074

    +106

    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
    // Вот так вот говнокодеры встречают конeц света:
    
    Function GetYear(StringYear : String) : Integer;
    Begin
     If StringYear = '2000' then result:=2000;
     If StringYear = '2001' then result:=2001;
     If StringYear = '2002' then result:=2002;
     If StringYear = '2003' then result:=2003;
     If StringYear = '2004' then result:=2004;
     If StringYear = '2005' then result:=2005;
     If StringYear = '2006' then result:=2006;
     If StringYear = '2007' then result:=2007;
     If StringYear = '2008' then result:=2008;
     If StringYear = '2009' then result:=2009;
     If StringYear = '2010' then result:=2010;
     If StringYear = '2011' then result:=2011;
     If StringYear = 'EndOfTheWorld' then result:=2012;
    End;

    Ну, как говорится, no comment :))))))))))

    ZLOvar, 22 Апреля 2010

    Комментарии (11)
  5. Pascal / Говнокод #3064

    +113

    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
    //Удаляем последний символ из мемо :)
    
    Procedure Button1Click(Sender : TObject);
    Begin
    // Some GovnoCode...
     Memo1.Lines.SelLenght := Length(Memo1.Text) - 1;
     Memo1.SelStart;
     Memo1.CopyToClipboard;
     Memo1.Clear;
     Memo1.PasteFromClipboard;
    // Some GovnoCode...
    End;
    
    end.

    Вот так, простенько и со вкусом, мы избавляется от последнего символа из Memo1.Text.

    ZLOvar, 21 Апреля 2010

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