 |
|
Модераторы: volvo877, Snowy, MetalFan |
 
|
|
Нужно составить на паскале систему линейных уравн. 
| focus_198411 |
|
|||
 Новичок Профиль Группа: Участник Сообщений: 39 Регистрация: 21.7.2007 Репутация: нет Всего: нет |
Помогите пожалуйсто составить программу, вычисления системного линейного уравнения.
Задание: Найти решение системного уравнения, вида /A1·x + B1·y = C1, \A2·x + B2·y = C2, задонной своими коефициентами A1, B1, C1, A2, B2, C2, если известно, что данная система имеет одно решение. |
|||
|
||||
Загрузка ...
| woodfer |
|
|||
 Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 25.11.2008 Где: Киев Репутация: нет Всего: нет |
Методом Крамера:
det=A1*B2-A2*B1; det(x)=C1*B2-C2*B1; det(y)=A1*C2-A2*C1; x=det(x)/det; y=det(y)/det; Или общая формула для x и y: x=(C1*B2-C2*B1)/(A1*B2-A2*B1); y=(A1*C2-A2*C1)/(A1*B2-A2*B1); |
|||
|
||||
|
|
| Правила форума "Delphi" | |
|
|
Запрещается! 1. Обсуждать и делится взломанными компонентами или программным обеспечением 2. Публиковать ссылки на варез 3. Оффтопить
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема » |
[ Время генерации скрипта: 0.0383 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |