|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
12.04.2014, 16:43 | #1 | |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
I. Напишите программу решения системы линейных уравнений
методом Жордана-Гаусса. II. Решите систему линейных уравнений и осуществите проверку найденного решения. III. Решите систему линейных уравнений, если известно количество неизвестных и формулы по которым вычисляются элементы основной матрицы системы ����,�� и столбца свободных членов ���� . Осуществите проверку найденного решения. Что является точным решением системы. Обоснуйте полученные результаты. Цитата:
Код:
Последний раз редактировалось Stilet; 12.04.2014 в 17:13. |
|
12.04.2014, 17:11 | #2 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
|
12.04.2014, 22:15 | #3 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
program Gauss_Classic;
uses crt; type vec=array[1..10] of real; mas=array[1..10] of vec; var a:mas;b,x:vec; h:real; i,j,k,n:integer; Begin {Начало основной программы} Clrscr; write('Введите количество уравнений: ');read(n); for i:=1 to n do begin writeln('Уравнение ',i); writeln('Введите коэффициенты'); for j:=1 to n do begin write('a[',i,',',j,']=');read(a[i,j]);end; writeln('Введите правую часть уравнения'); write('b[',i,']=');read(b[i]); end; Clrscr; writeln('Исходная матрица'); for i:=1 to n do begin write(i); for j:=1 to n do write(a[i,j]:10:5); writeln(b[i]:10:5) end; writeln; writeln; writeln; {Прямой ход - исключение переменных} for i:=1 to n-1 do for j:=i+1 to n do begin a[j,i]:=-a[j,i]/a[i,i]; for k:=i+1 to n do a[j,k]:=a[j,k]+a[j,i]*a[i,k]; b[j]:=b[j]+a[j,i]*b[i] end; x[n]:=b[n]/a[n,n]; {Обратный ход - нахождение корней} for i:=n-1 downto 1 do begin h:=b[i]; for j:=i+1 to n do h:=h-x[j]*a[i,j]; x[i]:=h/a[i,i]; end; writeln('Корни уравнения'); for i:=1 to n do writeln('x(',i,')=',x[i]:10:5); readkey end. спасибо большое , а можете пояснить программу как она работает , просто не понятны некоторые моменты |
12.04.2014, 22:32 | #4 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
program Gauss_Classic;
uses crt; type vec=array[1..30] of real; mas=array[1..30] of vec; var a:mas;b,x:vec; h:real; i,j,k,n:integer; Begin {Начало основной программы} Clrscr; write('Введите количество уравнений: ');read(n); for i:=1 to n do begin writeln('Уравнение ',i); writeln('Введите коэффициенты'); for j:=1 to n do begin write('a[',i,',',j,']=');read(a[i,j]);end; writeln('Введите правую часть уравнения'); write('b[',i,']=');read(b[i]); end; Clrscr; writeln('Исходная матрица'); for i:=1 to n do begin write(i); for j:=1 to n do write(a[i,j]:10:5); writeln(b[i]:10:5) end; writeln; writeln; writeln; {Прямой ход - исключение переменных} for i:=1 to n-1 do for j:=i+1 to n do begin a[j,i]:=-a[j,i]/a[i,i]; for k:=i+1 to n do a[j,k]:=a[j,k]+a[j,i]*a[i,k]; b[j]:=b[j]+a[j,i]*b[i] end; x[n]:=b[n]/a[n,n]; {Обратный ход - нахождение корней} for i:=n-1 downto 1 do begin h:=b[i]; for j:=i+1 to n do h:=h-x[j]*a[i,j]; x[i]:=h/a[i,i]; end; writeln('Корни уравнения'); for i:=1 to n do writeln('x(',i,')=',x[i]:10:5); readkey end. ВОТ ВООБЩЕМ ЧТО ПОЛУЧИЛОСЬ , СПАСИБО ВСЕМ БОЛЬШОЕ)))) А НЕ ПОДСКАЖИТЕ ТРЕТЬЕ ЗАДАНИЕ С НИМ ЧТО ДЕЛАТЬ ??? |
12.04.2014, 22:44 | #5 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
почему корни выдает разные , в программе одни а если решать в инете онлайн то корни совершенно другие и не все отрицательные ??????
|
12.04.2014, 22:52 | #6 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
задание третье
не понимаю к чему это и что с ним надо сделать ((((???? |
12.04.2014, 22:52 | #7 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
задание к этой же системе
|
13.04.2014, 13:14 | #8 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
помогите!!!!!!!ПЛИИИИИИИИИИИИИИИЗЗЗ ЗЗЗЗЗЗЗЗ, что делать с третьим заданием и почему п программе одни корни а решаешь в инете-онлайн другие получаются
|
14.04.2014, 19:47 | #9 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
помогитееееееееееееееееееееееееееее еееееееееееееееееееееееееееееееее плииииииииииииииииииииииииизззззззз зззззззззззззззззззззззззззззз
|
14.04.2014, 20:33 | #10 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Я как-то по матану сам ниче не бэльмэса...
I'm learning to live...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |