Метод Крамера |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Метод Крамера |
good3p |
11.04.2005 19:29
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Репутация: 0 |
про матрицы. правда только про определитель.
вобщем решение линейного уравнения методом крамера=)) прога есть все работает, только вот разобраться с ней никак не могу... помогите люди добрые, объясните пожалуйста что пошагово в ней (в процедуре) творится (по-русски)! (как можно подробнее) Код { рекурентная } function opr(mt:mas4x4;nm:integer):real; var n,m,d:integer;{ счетчики } s:real; m2:mas4x4; begin if nm=2 then begin s:=mt[1,1]*mt[2,2]-mt[1,2]*mt[2,1]; end else begin s:=0; for d:=1 to nm do begin m2:=mt; for n:=d to nm do for m:=1 to nm-1 do m2[m,n]:=m2[m,n+1]; if (d mod 2 =nm mod 2) then s:=s+mt[nm,d]*opr(m2,nm-1) else s:=s-mt[nm,d]*opr(m2,nm-1); end; end; opr:=s; end; КОД В ТЕГИ! Oleg_Z Плюс к этому, good3p, то что вопрос "связан с матрицей" еще не значит, что его можно кидать в любой другой вопрос на эту же тему. Volvo Сообщение отредактировано: volvo - 11.04.2005 22:20 |
klem4 |
11.04.2005 19:31
Сообщение
#2
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
1) код в теги
2) Крамер есть тут http://forum.pascalnet.ru/index.php?showtopic=3902 klem4, если уже ты даешь ссылку, так давай ее на сообщение, а не на всю ветку... FAQ: Решение систем уравнений (метод Крамера) Сообщение отредактировано: volvo - 11.04.2005 21:59 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
good3p |
12.04.2005 7:29
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Репутация: 0 |
Volvo спасибо за замечания.
klem4 мне код не надо, мне описание надо=( |
volvo |
12.04.2005 8:57
Сообщение
#4
|
Гость |
Цитата(good3p @ 12.04.05 7:29) мне код не надо, мне описание надо=( Тогда тебе сюда: http://alglib.manual.ru/linequations/kramer.php |
Текстовая версия | 7.05.2024 23:54 |