|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.02.2012, 14:01 | #1 |
Новичок
Джуниор
Регистрация: 26.02.2012
Сообщений: 1
|
Метод гауса с выбором главного элемента по столбцу
Ребят такая проблема возникла метод гаусса с выбором главного элемента по строке препод даа задание изменить выбор главного элемента по столбцу код в Паскале помогите плиз сделать очень надо!!!
КОД Код Pascal uses crt; const n=3; type Matr = array[1..n,1..n] of real; Vect = array[1..n] of real; procedure Zapoln(var a:Matr;var b:Vect); var i,j:integer; begin randomize; for i:=1 to n do begin for j:=1 to n do a[i,j]:=random*500-250; b[i]:=random*500-250; end; end; procedure Vivod(const a:Matr;const b:Vect); var i,j:integer; begin for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3:2,' '); write('='); writeln(b[i]:3:2,' '); end; writeln; end; var a,a2:Matr; b,x,d,b2:Vect; i,j,m,k,z,p:integer;max,r,g:real; begin Zapoln(a,b); Vivod(a,b); for k:=1 to n do begin b[k]:=b[k]/a[k,k]; for j:=n downto k do a[k,j]:=a[k,j]/a[k,k]; for j:=k+1 to n do begin r:=a[j,k]; for i:=k to n do a[j,i]:=a[j,i]-r*a[k,i]; b[j]:=b[j]-r*b[k]; end; end; Vivod(a,b); for k:=n downto 1 do begin r:=0; for j:=k+1 to n do begin g:=a[k,j]*x[j]; r:=r+g; end; x[k]:=(b[k]-r)/a[k,k]; end; writeln('Korni:'); for i:=1 to n do write('x[',i,']=',x[i]:3:2,' '); writeln; writeln; readln; end. измените плиз эту программу чтоб по столбцу искал очень надо срочно |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Метод Гаусса с выбором главного элемента | Fantom.as | Общие вопросы C/C++ | 2 | 17.02.2011 19:35 |
Метод Гаусса с выбором главного элемента | Fantom.as | Помощь студентам | 1 | 16.02.2011 12:48 |
Помогитепожалуйста написать программу на Паскале .Решить матрицу методом Гауса с выбором главного элемент | Юлёк* | Помощь студентам | 5 | 11.12.2009 08:41 |
Метод Гаусса с выбором главного элемента для решения СЛАУ | lira_slava | Помощь студентам | 3 | 21.05.2009 20:56 |
Решение СЛАУ методом Гаусса с выбором главного элемента | МаXsim | Помощь студентам | 4 | 21.10.2008 19:04 |