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

    +144.9

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    function ... : Integer;
var
  i:integer;
begin
  Result := 0;
  for i := 1 to ... do
    if bla-bla then
      inc(Result);
  Result := Result;
end;

    Запостил: popa, 14 Января 2010

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

    • ava xXx_totalwar 14.01.2010 19:26 # −2.2

      Result := <something> ;
      аж перетряхивает от этого
      Ответить

      • ava TarasB 16.01.2010 14:38 # 0

        Вообще-то функции на дельфах именно так и пишутся? Или тебя вообще от дельфы перетряхивает?
        Ответить

        • ava xXx_totalwar 16.01.2010 16:27 # −1.2

          все же у поцкаля/делфи унылый синтаксис
          да и вообще после функциональщины отвыкаешь от всех этих result, return, etc
          Ответить

    • ava TarasB 16.01.2010 14:39 # 0

      Автору - а как этот код должен на самом деле выглядеть? Под бла-бла может быть что угодно, так что код вполне нормален.
      Или теперь модно всё, что связано с Дельфи, называть говном?
      Ответить

      • ava uncle Lem 17.01.2010 13:25 # 0 

        Result := Result;


        Ну да, и эта строка тоже преисполнена смысла.
        Ответить

    • ava guest 16.01.2010 15:16 # −1

      мне кажется автору не нравится строчка, когда переменная присваивается самой себе)
      Result := Result;
      Дак и выложил бы одну эту строку)
      Ответить

    • ava popa 16.01.2010 15:23 # 0

      да именно Result := Result; меня убил...
      Ответить

    • ava guest 17.01.2010 12:48 # 0

      Постер - лох.
      Result:=Result - крайне полезная конструкция. Она вырезается оптимизатором, если он включён (например, релиз) и остаётся, если оптимизатор выключен (например, в отладочной версии). В последнем случае можно поставить на эту строчку брейкпоинт и узнать, что там навычисляла функция, т.к. внутри функции подобной структуры никак иначе нельзя это сделать (теряются регистровые переменные).
      Ответить

      • ava TarasB 17.01.2010 13:51 # 0

        Во, всё толково разъяснил.
        Ответить

      • ava guest 05.02.2010 14:55 # −1

        В дебаге оптимизация работает, вы перепутали с каким-то говноязыком. А для этих целей есть либо отладочный вывод, либо
        {$IFDEF DEBUG}
        {$O-}
        {$ENDIF}
        Ответить

    • ava popa 17.01.2010 13:03 # 0

      спс, буду знать
      Ответить

    • ava Grizzly 01.02.2010 11:27 # 0

      А на inc(Result) поставить breakpoint нельзя или на условие if?! На вызов функции и посмотреть что она вернула в конечном итоге? По-моему "Result:=Result - крайне полезная конструкция" - это полная фигня и бред.
      Ответить

    • ava guest 03.02.2010 15:54 # −1

      2Grizzly
      если нужно именно значение функции - то нельзя. или ты хочешь каждую итерацию цикла отлаживать? или ставить кучу брекпоинтов во всех местах где вызывается эта функция?
      PS: хотя я при отладке ставлю бряку на конечный end
      Ответить

      • ava Grizzly 15.03.2010 17:17 # 0

        "или ставить кучу брекпоинтов во всех местах где вызывается эта функция?"
        хм... ладно убедили :) может кому-то и удобно
        Ответить

    • ava guest 19.02.2010 17:46 # −1

      а result:=... вместо дебильного цикла написать нельзя было?
      Ответить

    • ava bugmenot 01.06.2010 22:01 # 0

      syntax error != говнокод
      апстена.
      Ответить

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