Автор 1_and_0 задал вопрос в разделе Другие языки и технологии
Pascal , Метод Гаусса и получил лучший ответ
Ответ от Wd28 _[гуру]
Твои главные ошибки:1)Pascal2)двумерные массивы ( это даже индусам непростительно )3)статические массивы ( но это простительно школьнику )4)использование разных стилей написания для одной и той же переменной ( DOP и dop, 4 exapmle )5)использование незначащих и (о ужас! ) однобуквенных названий для переменныхТвои второстепенные ошибки:1)Вместо b[1,1]:=a[1,1];должно быть b[k,k]:=a[k,k];2)Вместо a[i,j]:=b[i,j]+(b[i,k]/b[k,k])*a[k,j];должно быть a[i,j]:=b[i,j]-(b[i,k]/b[k,k])*a[k,j];3)Строка write(OutFile,a1[i,j],' ') ;не имеет смысла, так как до этого массив a1 нигде не использовался и не определялся4)Этот кусок кодаFor j:=1 to (n+1) dobegindop[j]:=a[1,j];a[1,j]:=a[2,j];a[2,j]:=dop[j];dop[j]:=a[3,j];a[3,j]:=a[4,j];a[4,j]:=dop[j];end;end;абсолютно бессмысленен ( зачем нам менять 1-2 и 3-4 строки матрицы? )неясно, зачем вообще нужен массив bесли мы везде заменим b на a, то все будет работать точно так жеВроде, всеP.S. надеюсь, тебе еще нет 17, иначе тебя уже не вылечитьИ да, используй функции, так удобнее дебажить и разбирать чужой код