![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
![]()
E
Код:
|
![]() |
![]() |
![]() |
#12 | |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
![]() Цитата:
program labI4; Uses crt; Label m1; Var a,a5: array [1..25,1..25] of real; b,b5: array [1..25] of real; k,i,m,n,st:integer; t,x,x1,x2,x3,a1,b1,c1:real; BEGIN clrscr; write('Vvedite razmernost'); n:=12; For i:=1 to n do For j:=1 to n do A[i,j]:=-1/(i+j); write('a[',i,',',k,']=');a[i,k]:=-1/(i+k);a5[i,k]:=a[i,k]; end; writeln('Vvedite svobodnye chleny B'); For i:=1 to n do Begin Sum:=0; For k:=1 to n do Sum:=sum+a[i,k]; B[i]:=sum; end; writeln('Nachalnaya matriza'); For i:=1 to n do begin For k:=1 to n do begin write('a[',i,',',k,']=',a[i,k]:5:2,'':4); end; writeln('b[',i,']=',b[i]:5:2,'':4); end; readln; For k:=1 to n do begin st:=k; For i:=k to n do If a[st,k]<=a[i,k] Then st:=i; For i:=1 to n do begin t:=a[k,i]; a[k,i]:=a[st,i]; a[st,i]:=t; end; t:=b[k]; b[k]:=b[st]; b[st]:=t; i:=1; while i<=n do //For i:=1 to n do begin If i=k Then i:=i+1; If i=n+1 Then goto m1; t:=a[i,k]/a[k,k]; For m:=1 to n do a[i,m]:=a[i,m]-t*a[k,m]; b[i]:=b[i]-t*b[k]; i:=i+1; end; m1: end; writeln(' Konechnaya matriza'); For i:=1 to n do begin For k:=1 to n do begin write('a[',i,k,']=',a[i,k]:5:2,'':4); end; writeln('b[',i,']=',b[i]:5:2,'':4); end; readln; For k:=1 to n do begin x:=b[k]/a[k,k]; writeln('x(',k,')=',x:5:2); a[1,k]:=x; end; readkey END. |
|
![]() |
![]() |
![]() |
#13 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
![]()
Вроде да. Забейте в паскальабц и проверьте заполнение b.
|
![]() |
![]() |
![]() |
#14 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
![]()
указывает ошибку labaa4444.pas(16) : Ожидалось '.'
|
![]() |
![]() |
![]() |
#15 | |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#16 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
![]()
когда нажимаю шифт+9 вот что выдает ? это как понимать
|
![]() |
![]() |
![]() |
#17 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
![]()
Подождите минут 5-7 до компа доберусь.
|
![]() |
![]() |
![]() |
#18 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
![]() |
![]() |
![]() |
![]() |
#19 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
![]()
Проверил заполнение b. Заполняется верно.
Остальное, наверное ![]() Но, раз вы сказали что на тестовых данных верно, то и здесь должно быть норм. Код:
|
![]() |
![]() |
![]() |
#20 | |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
![]() Цитата:
где ж там ответ то ))??? |
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
С++ Программа для решения СЛАУ методом Жордана-Гаусса | Reminaru | Помощь студентам | 6 | 30.05.2013 09:02 |
Решение системы линейных уравнений методом Гаусса. | maliyusha | Помощь студентам | 16 | 18.02.2013 15:44 |
решить методом Гаусса — Жордана | moren | Помощь студентам | 0 | 11.12.2011 14:47 |
Решение системы линейных уравнений методом Гаусса | wizion | Фриланс | 4 | 20.11.2011 22:05 |
Pascal. Решение СЛАУ методом Гаусса-Жордана | 2easy4me | Помощь студентам | 5 | 23.03.2011 18:56 |