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

    +92

    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
    {$R-}
    fal:=true;
    ty:= length(mas1);
    while(fal=true)  do
      for j:=0 to kp-1 do
      begin
        for i:=i+k+j to length(mas2)-1 do
        begin
          while mas2[i+k]= ty do
          begin
            s:=s+c[i,j];
            inc(k);
          end;
        end;
        nl:=mas1[ty-1];
        if nl=0 then
          mas_Mj[ty]:=0
        else
          mas_Mj[ty-1][j]:=s/nl;
        s:=0;
      end;

    Запостил: TAX, 30 Декабря 2009

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

    • Это вообще компилится? Особенно сочетание строчек 17 и 19.
      А вот с {$R-} я поржал. Типа "да пошли вы со своими сообщениями об ошибках, ничего не буду править".
      Ответить
    • type
      er= array of real;
      err= array of er;
      var
      mas_Mj:err;
      //======================================== =======
      mas_Mj[ty]:=0 //[Warning] Unit1.pas(795): Constant 0 converted to NIL
      Ответить
    • Если скомпилили- дождались ответа программы? )))
      Ответить
    • Моя задача была исправить все "invalid pointer operation", "Access Violation", "overflow" и вернуть программу автору. Вот пусть он и дожидается.
      Ответить

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