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

    +98

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    for j:=k+1 to n+1 do
    	begin
    	r:=a[j,k]/a[k,k];
    	for i:=k to n do
                    begin
                    a[j,i]:=power(((a[j,i]-r*a[k,i]):a[i,j]),a[j,i]);
                    end;

    К сожалению, я уже забыл, какой идентификатор что значит :(
    Придется переписывать.

    Запостил: Lioncure, 12 Сентября 2011

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

    • А говно где?
      Ответить
      • Писечка в том, что после переопределения значения одной переменной от строки 6 осталось
        a[j,i]:=a[j,k]/a[k,k];

        Не говоря уж о том, что и в других местах накручено не меньше.
        Ответить
    • Лаба?
      Ответить
      • Если бы... Задачка "типа единственному программисту в классе". 9 класс. Паскаль.
        *хочет удавиться*
        Ответить
    • Да, придётся...
      Ответить
    • Индентация оригинала сохранена?
      Давно я не видел Whitesmiths style...
      Ответить
      • Интендация сохранена, отступы только так и делаю. Хорошо научили.
        Ответить
        • Я предпочитаю 1TBS, для паскаля я бы использовал Allman style. Дело вкуса.
          Ответить
    • а что оно делает?
      Ответить
      • Память жрет по-ходу.
        Ответить
        • Ну кто так жрёт?! Надо жрать по вот так:
          #include <stdlib.h> /* for calloc() */
          #include <unistd.h> /* for sleep() */
          int main() {
              void *eater = null;
              while (1) {
                  eater = calloc(1000, 10000);
                  sleep(10); /* ну, поели, можно и поспать ;] */
              }
              return 0;
          }
          Ответить
          • коммент очарователен!
            Ответить
          • Сделайте sleep поболее, некоторые еще и имеют пагубную привычку курить после еды.
            Ответить
            • Вы предлагаете курить во сне?
              Ответить
              • Нет, я за то, чтобы подольше поспать после курения, ибо когда курил мне этого так не хватало :D
                Ответить
    • А оно скомпилируется? Не могу припомнить, чтобы в Дельфи в математических выражениях использовалось двоеточие.
      Ответить
      • По памяти писал, видимо.
        Ответить
        • Похоже, это ещё и не скомпилировалось бы. Пичалька...
          Хотя работало же. Не, действительно ошибся, перепечатывая. Копипастофобия во все поля, ага :3
          Ответить
    • показать все, что скрытоvanished
      Ответить

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