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

    +101.6

    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
    procedure GaussMas ( n:integer;a: Matr;var rezult:V10);
    var
    s,s1:extended;
    m,i,j,k,km,jm:integer;
    z,d: array [0..10] of Extended ;
    label m2;
    begin
    //..............................
        for i := 1 to n  do
        begin
            for j := 1 to n do
    	   if (a[i][j]>0.9) then
               begin
               rezult[j]:=a[i][m];
               goto m2;
               end;
    m2:      continue;
    end;
    end;

    Процедура расчета матрицы по методу Гаусса.
    Форматирование сохранено как есть.

    Запостил: Grizzly, 01 Февраля 2010

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

    • Тупость выкладывать сюда школьные примеры.
      Даешь промышленный говнокод!
      Ответить
    • Ты не поверишь! Это промышленный гавнокод!!! Это используется для расчета приготовления продуктов предприятия, если быть точнее. Предприятие очень большое.
      Ответить
    • Тут случай по типу выхода из вложенного цикла. Только тут не выход, а продолжение. Гото тут приемлемо.
      Ответить
      • Нет. Это именно прерывание внутреннего цикла. А поскольку continue стоит в самом конце внешнего, это аналогично простому break во внутреннем цикле.
        Ответить
        • Между внутренним циклом и гото ещё могло быть много чего. И такая конструкция означает не только, что нам нужно выйти из внутреннего цикла, но и то, что нам надо начать внешний цикл сначала.
          Ответить
          • Все что идет до и после
            "//.............................."
            оставлено как есть
            Ответить
    • За гото руки надо отрывать в любом случае, вроде же на первом курсе еще учат что гото - зло. Тут либо аффтар школьнег, либо код где-то дернут не думая о содержимом, нагуглили, затетсили - работает - норм, оставили.
      Ответить
      • За "За гото руки надо отрывать в любом случае" надо отрывать голову в любом случае. Я сам против goto, но иногда вполне норм. В конце концов, пусть из языка убирают, чтобы никто не использовал.
        Ответить
      • Далеко не школьник, просто по специальности не связан с IT. Но у нас разрешают писать код кому попало и после этого почти всегда приходится переделывать другим.
        Ответить
    • В данном случае вместо goto нужно использовать break;
      Он обеспечит выход из внутреннего цикла и продолжение внешнего.
      Ответить
    • гасмяс - за название убить надо сразу
      Ответить
      • О! Вот и я читаю газмяс и недоумеваю =)
        Ответить
    • показать все, что скрытогде здесь C++?
      Ответить
    • дельфи-говно
      Ответить
    • Поведайте, почему такое странное обращение к элементу массива?
      На Pascal:
      if (a[i,j]>0.9) then
      begin
      rezult[j]:=a[i,m];
      goto m2;
      end;
      а a[i][j] - это же в Си-семантических языках..
      Ответить
    • Кстати готу - реально использовать когда у тебя 10 вложенных циклов, и необходимо выйти из всех по условию.
      с брейками залюбишься проверки делать. ЫМХО
      ОЛООЛО я идиот убейте меня ктонибудь !!!!!11111адинадинадин
      Ответить
      • >> Кстати готу - реально использовать когда у тебя 10 вложенных циклов, и необходимо выйти из всех по условию

        возбуждаешь EAbort и вываливаешься, куда надоть, т.е. туда, где except нанего поставил, ну или ваще нах, вопщем, по ситуации
        Ответить
    • здесь разве не рекурсия?
      Ответить

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