![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 18.01.2010
Сообщений: 26
|
![]()
Написать программу решения по методу Гаусса системы линейных уравнений
4х1+0,24х2-0,08х3=8 0,09х1+3х2-0,15х3=9 0,04х1-0,08х2+4х3=20 Правильно ли прога написана? Прога: uses crt; const n=3; a:array[1..n,1..n] of real=((4,0.24,-0.08), (0.09,3,-0.15), (0.04,-0.08,4)); b:array[1..n] of real=(8,9,20); var x:array[1..3] of real; i,j,k:integer;z,r,g:real; begin clrscr; {приведение матрицы к треугольному виду} for k:=1 to n do begin for j:=k+1 to n do begin r:=a[j,k]/a[k,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; {вычисление корней} 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('Корни системы:'); for i:=1 to n do write('x[',i,']=',x[i]:0:2,' '); readln; end. |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Гаусс | shkiper123 | Microsoft Office Excel | 5 | 27.12.2010 20:49 |
гаусс-зейдель дополните прогу | Shifter | Помощь студентам | 0 | 09.12.2010 20:57 |