|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
14.04.2014, 21:34 | #11 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Матан разве? Лин. алгебра. Вроде 30 лет назад было, могу и попутать.
Для тс: Дальше-то не читали? На паскале приведен метод Гаусса, а не Гаусса-Жордана. Этот метод приведен на си. Далее описывается отличие этих методов и приписка, что паскалевская программа выдает иногда неточные результаты. |
15.04.2014, 00:14 | #12 | |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
Цитата:
|
|
15.04.2014, 00:20 | #13 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
В яндексе вбить поиск "метод гаусса-жордана паскаль", ответ самый первый. Проверяйте на своих данных.
|
15.04.2014, 18:58 | #14 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
program labI4(input,output);
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'); readln(n); For i:=1 to n do For k:=1 to n do begin write('a[',i,',',k,']=');readln(a[i,k]);a5[i,k]:=a[i,k]; end; writeln('Vvedite svobodnye chleny B'); For i:=1 to n do begin write('b[',i,']=');readln(b[i]);b5[i]:=b[i]; 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; 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]; 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. НЕ РАБОТАЕТ В ПАСКАЛЬABC.NET ПИШЕТ ЧТО Program1.pas(41) : Нельзя изменять значение переменной цикла внутри этого цикла вот тут показывает ошибку , почему? If i=k Then i:=i+1; Последний раз редактировалось now2; 15.04.2014 в 19:22. |
16.04.2014, 09:43 | #15 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Закрыто за кросспост.
тема тут - http://www.programmersforum.ru/showthread.php?p=1365163 |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
PascalABC.Net | now2 | Помощь студентам | 2 | 27.03.2014 21:03 |
PascalABC.NET | v1ktor | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 21.06.2011 13:58 |
Цикл FOR в PascalABC.NET | Bizunov | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 18.04.2011 20:55 |
PascalABC.net | gogomon93 | Помощь студентам | 5 | 17.04.2011 18:48 |
PascalABC.net | *stRong* | Помощь студентам | 2 | 10.06.2010 17:50 |