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

    +99

    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
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    case NumberOfRegionalProblem of
    1:begin
        for i:=0 to N-1 do
          begin
            Mt[0,M+2]:=Fmu1(s[i+1,0].t);
            Mt[M+1,M+2]:=Fmu2(s[i+1,0].t);
            for j:=1 to M do
              Mt[j,M+2]:=sqr(h)*(Y[i,j]+tau*FF(S[i,j].x,S[i,j].t));
            progon(Mt,M,Y[i+1]);
          end;
      end;
    2:begin
        for i:=0 to N-1 do
          begin
            Mt[0,M+2]:=Fmu1(s[i+1,0].t);
            Mt[M+1,M+2]:=Fmu2(s[i+1,0].t);
            for j:=1 to M do
              Mt[j,M+2]:=sqr(h)*(Y[i,j]+tau*FF(S[i,j].x,S[i,j].t));
            progon(Mt,M,Y[i+1]);
          end;
      end;
    3:begin
        for i:=0 to N-1 do
          begin
            Mt[0,M+2]:=Fmu1(s[i+1,0].t);
            Mt[M+1,M+2]:=Fmu2(s[i+1,0].t);
            for j:=1 to M do
              Mt[j,M+2]:=sqr(h)*(Y[i,j]+tau*FF(S[i,j].x,S[i,j].t));
            progon(Mt,M,Y[i+1]);
          end;
      end;
  end;

    Автор наркоман наверное, хз даже... :(

    Запостил: SkuII, 05 Июня 2012

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

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