|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.11.2012, 00:08 | #1 |
Новичок
Джуниор
Регистрация: 06.11.2012
Сообщений: 3
|
Исправьте ошибку!!
Решить уравнение методом Гаусса
5x2+x4+5x5=89 -8x1+4x2-x4+4x5=87 10x1+3x2-9x3-3x4-2x5=-13 -7x1+6x2-6x3+7x4+7x5=217 -7x1+6x2+8x3-7x4+x5=-1 выдает ошибку Error 200: Division by zero Program p1; uses crt; const n=5; a:array[1..n,1..n] of real=((0,5,0,1,5, (-8,4,0,-1,4), (10,3,-9,-3,-2), (-7,6,-6,7,7), (-7,6,8,-7,,1)); b:array[1..n] of real=(89,87,-13,217,-1); var x:array[1..5] 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. Последний раз редактировалось Krivaia_soplea; 07.11.2012 в 00:10. Причина: Забыл дописать |
07.11.2012, 08:52 | #2 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
А чего тут исправлять? Деление на ноль - может возникнуть только во тут:
Код:
Код:
И, да, вроде в методе Гаусса надо использовать не два массива, как у Вас: Код:
Код:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Последний раз редактировалось Sciv; 07.11.2012 в 08:56. |
07.11.2012, 09:21 | #3 |
Новичок
Джуниор
Регистрация: 06.11.2012
Сообщений: 3
|
если Вам не трудно,помогите написать программу,чтоб решить эту систему(метод гаусса). заранее спасибо.
|
07.11.2012, 09:24 | #4 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Вот Вам код, писанный не мной, найденный на просторах нашего необъятного тырнета. Код, увы, без комментариев. Замените в нем матрицу на свою.
В принципе, можно было и по форуму пошариться, тут такие задачи неоднократно уже решались.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
07.11.2012, 11:13 | #5 |
Новичок
Джуниор
Регистрация: 06.11.2012
Сообщений: 3
|
Вот я ввел сюда свою систему, но выдает все значения 0! может что то по другому надо сделать!
Код:
Последний раз редактировалось Stilet; 07.11.2012 в 11:19. |
07.11.2012, 20:15 | #6 | |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Цитата:
Вот что показывает у меня Ваша система:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Исправьте ошибку | 15104 | Общие вопросы C/C++ | 2 | 06.10.2011 11:07 |
Исправьте ошибку.С# | Tase4ka | Помощь студентам | 8 | 12.02.2011 14:09 |
Исправьте ошибку | kipapsih | Помощь студентам | 0 | 07.01.2011 20:19 |
Исправьте ошибку пожалуйста | Алиса_1515 | Помощь студентам | 1 | 03.12.2009 19:12 |