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

    • ava TarasB 30.12.2009 19:15 # +1

      Это вообще компилится? Особенно сочетание строчек 17 и 19.
      А вот с {$R-} я поржал. Типа "да пошли вы со своими сообщениями об ошибках, ничего не буду править".
      Ответить

    • ava TAX 31.12.2009 10:32 # 0

      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
      Ответить

    • ava guest 31.12.2009 15:45 # −1

      Если скомпилили- дождались ответа программы? )))
      Ответить

    • ava TAX 31.12.2009 17:27 # 0

      Моя задача была исправить все "invalid pointer operation", "Access Violation", "overflow" и вернуть программу автору. Вот пусть он и дожидается.
      Ответить

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