Народ!! помогите пожалуйста с задачкой, перерыл весь форум, нашёл решение СЛУ методом Гаусса, но препод требует чтоб это всё делалось в динамической памяти, а я не могу переделать чё то (( А скоро уже здать нужно.....умоляю помогите! От этого зависит моя дальнейшая жизнь :molitva:

ссылочку то дай на то что нашел

FAQ: решение СЛУ
А насчет динамической памяти - думаю просто разместить матрицу в куче и всего делов...

Oleg_Z,
:yes: В программу добавляется 2 строчки и еще в 4-х добавляется по одному символу

volvo,
именно поэтому я и написал "и всего делов... "
:P

А где именно изменить не подскажите... :p2: И на что именно изменить....

А вот здесь: выбросить из старой программы основную часть и заменить ее на:

var
b:array[0..nn] of real;
a:^Matrix;                      { <-- #1 }
n,j:word;
s:byte;
Begin
new(a); { 1-я добавленная строка }
readmatr(a^,n);                 { <-- #2 }
printmatr(a^,n);                { <-- #3 }
writeln('press any key'); readkey;
GaussM( a^,n,s,B );             { <-- #4 }
for j:=1 to n do write (b[j],' ');
dispose(a); { 2-я добавленная строка }
writeln('press any key for exit ...'); readkey
end.

А вообще-то стоило бы прочесть про отличия статических переменных от динамических, прежде чем работать с "кучей".

Спасибо за помощь, но когда заменил основную часть, то программка стала выдавать неправильное решение Может в самой процедуре решения нужно что-то ещё поменять? Или саму процедуру всю тоже переделать нужно?

В том то и дело, что больше ничего делать не нужно!
С какими данными прогонялась программа?

Ну я для проверки задал систему из 2 уравнений какую-нибудь простую, наподобии:

2х+у=6
15х-3у=3

Поидее ответ х=1, у=4, а програмка выдавала что нить наподобии 4.967593+Е.
Это если заменить основную часть програмыы, а так в первоначальном виде правильно всё решалось.... <_< У тебя всё нормально чтоли работает? в чём тогда может быть проблема?