1. Си / Говнокод #3478

    +137

    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
    /*
sub iterm(i,ne(2),na(2),x(2),xx(2),d(2),p(2),mp,np,ii,im)
shared nkp
fl = 0
FOR k = 1 TO na(0, i): ma = na(k, i): me = ne(k, i)
FOR j = 1 TO mp
x=x(j,ma): d=x(j,me)-x: x=x+p(1,i)*d: x(j,ma)=x: ad=ABS(d)
IF ad > ABS(p(2, i) * x) AND it<im THEN fl = 1
NEXT j, k: it=it+1: IF fl = 1 THEN ii = p(nkp, i) - 1 else it=0
 end sub: REM ИТЕР-БЛОК (мод.)
*/

 void iterm(int i, int ne[4][7],int na[3][7], float x[3][6],
float d, float p[3][7], int mp, int np, int ii, int im)
{extern int nkp; float xx,ad; static int it=0;
int fl = 0, k, j, ma, me;
for (k = 1; k<=na[0][ i];++k)
{ ma = na[k][ i]; me = ne[k][ i];
for( j = 1;j<= mp;++j)
{xx=x[j][ma]; d=x[j][me]-xx; xx=xx+p[1][i]*d; x[j][ma]=xx; ad=fabs(d);
if( ad > fabs(p[2][ i] * xx) && it<im) fl = 1;
}} it=it+1; if( fl == 1)  ii = p[nkp][ i] - 1; else it=0;
} // ИТЕР-БЛОК (мод.)

/*
cls
? fnpr$;  REM ПОДГОТОВКА ДАННЫХ
REM ОРГАНИЗУЮЩАЯ ПОДПРОГРАММА
call op(ne(),na(),x(),s(),pr(),md(),n,mp,np,p(),mk,ki,im)
?: ?"Общее число итераций ="ki". Жми пробел.": S$=input$(1)
*/

    как обычно вместо того чтобы написать программу с нуля,был найден код на бейсике и начал безжалостно копипаститься в С
    ну и сам код на бэйсике естественно тоже говно

    Запостил: tz-lom, 14 Июня 2010

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

    • ava Kirinyale 14.06.2010 23:20 # +5

      Я даже боюсь представить, кого можно призвать, если это случайно скомпилировать...
      Ответить

      • ava guest 15.06.2010 03:02 # +3

        Большой опыт в саммонинге демонических сил с применением цифровых архитектур и хакерских ритуалов, скоростное разворачивание хаоса, сглаз, порча, заговоры 8 906 58789728
        Ответить

      • ava xaionaro 15.06.2010 08:06 # 0

        Компилируется :)

        Пришлось только 
        int nkp;
        добавить.

        Вот только что этот код такое и как этим пользоваться - разбираться лень :(
        Ответить

    • ava legolegs 15.06.2010 10:38 # +1

      Новый Си Говнокод со вкусом фортрана!
      Ответить

      • ava xXx_totalwar 15.06.2010 11:34 # +1

        это не фортран
        Ответить

        • ava legolegs 15.06.2010 13:12 # −1

          Всё порты с фортрана на си, которые я видел, выглядели также, если не хуже.
          Ответить

          • ava xXx_totalwar 15.06.2010 13:17 # 0

            посмотри на синтаксис, какие нахуй for в фортране? это какой-то говнодиалект бейсика.
            Ответить

            • ava guest 16.06.2010 00:04 # 0

              оно даже в QB 4.5 компилится, отчего бы этому в любом бейске не работать?
              Ответить

    • ava guest 15.06.2010 10:42 # +2 

      [ i]

      Чувак, то автозаменой работал.
      Ответить

    • ava 3.14159265 15.06.2010 12:17 # 0

      d=x(j,me)-x: x=x+p(1,i)*d //смахивает на интерполяцию отрезком
      if( ad > fabs(p[2][ i] * xx) //а это на проверку погрешности
      it<im .//а это походу на ограничение по итерациям

      короче похоже на какую-то решалку уравнений
      но из-за крайней заговнености трудно сказать определенно
      Ответить

    • ava paranoid 15.06.2010 14:19 # +1

      зато никто не спиздит
      Ответить

      • ava 3.14159265 15.06.2010 15:44 # 0

        спиздят, и перенесут на делфи или пхп ))
        автор же спиздил
        Ответить

    • ava guest 15.06.2010 21:05 # −2

      Жми пробел!
      Жми пробел, сцуко!
      Ответить

      • ava guest 15.06.2010 22:01 # −2

        Ответить

        • ava nil 15.06.2010 22:39 # −1

          Не к ночи был http://ru.wikipedia.org/wiki/Whitespace помянут:)
          Ответить

          • ava guest 16.06.2010 02:35 # −4

                                                                                         


                                                                                         

                                                                                         


                                                                                         


                                                                                         


                                                                                         


                                                                                         


                                                                                         


                                                                                         


                                                                                         


                                                                                         


                                                                                         


                                                                                         
            Ответить

            • ava guest 16.06.2010 06:44 # 0

              Тут ни одной табуляции. Пошёл вон петух. Нет вайтспейса.
              Ответить

      • ava guest 16.06.2010 02:34 # −4

         
        Ответить

    • ava guest 15.06.2010 22:43 # −3

      Ответить

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