Kotofrakt |
Дата: Вторник, 2006-10-31, 4:57 PM | Сообщение # 1 |
Лидер Альянса [Patriots]
Группа: Администраторы
Сообщений: 471
Репутация: 15
Статус: Offline |
Решил изучать эти языки програмирования. вопрос:знает ли кто,где можно скачать руссифкацию для делфи 8 версии.Или хороший и понятный самоучитель по делфи или С++?
Каждый человек является творцом, ибо он творит нечто из различных врожденных факторов и возможностей.» А. Адлер |
|
| |
HELL_KNIGHT |
Дата: Вторник, 2006-11-21, 7:41 PM | Сообщение # 2 |
Полковник
Группа: Администраторы
Сообщений: 233
Репутация: 5
Статус: Offline |
Вот прикольный сайт www.alglib.net..правда он на английском ..вот в этой вкладке ALGORITHMS на сайте много интересных алгоритмов и на делфи и на с и на с++ и на визуал бейсике и ..
Per aspera ad astra. |
|
| |
HELL_KNIGHT |
Дата: Суббота, 2006-11-25, 6:26 PM | Сообщение # 3 |
Полковник
Группа: Администраторы
Сообщений: 233
Репутация: 5
Статус: Offline |
Кто знает где мона взять метот крамера решений систем линейных уравнений на С++..позарез надо а времени писать нет
Per aspera ad astra. |
|
| |
Kotofrakt |
Дата: Воскресенье, 2006-11-26, 10:46 AM | Сообщение # 4 |
Лидер Альянса [Patriots]
Группа: Администраторы
Сообщений: 471
Репутация: 15
Статус: Offline |
HELL_KNIGHT, Сам я этого метода не знаю... но кой чего нашёл ================= Решение систем линейных уравнений методом Крамера Позволяет решить неоднородную систему n линейных алгебраических уравнений с n неизвестными, если определитель основной матрицы не равен нулю. Code | {$N+} { Задаем порядок системы уравнений } Const n = 3; Type { Тип, описывающий матрицу системы (включая свободные члены !!!) } Equation = Array[1 .. n, 1 .. Succ(n)] Of Double; matrix = Array[1 .. n, 1 .. n] Of Double; Const a: Equation = ((2, 1, 3, 9), (1, -2, 1, -2), (3, 2, 2, 7)); { Процедура замены очередного столбца матрицы на свободные члены } Procedure GetMatrix(wout: Integer; Var m: matrix); Var i, j: Integer; Begin For i := 1 To n Do For j := 1 To n Do If j <> wout Then m[i, j] := a[i, j] Else m[i, j] := a[i, Succ(n)] End; { Нахождение определителя } Function Det(a: matrix; n: integer): Double; Var i, j, k: Integer; d: Double; Const Eps = 10E-6; Begin For i := 1 To Pred(n) Do Begin If Abs(a[i, i]) < Eps Then Begin Det := 0.0; Exit End; For j := Succ(i) To n Do Begin d := a[j, i] / a[i, i]; For k := i To n Do a[j, k] := a[j, k] - d * a[i, k]; End; End; d := 1.0; For i := 1 To n Do d := d * a[i, i]; Det := d End; Var i: Integer; mx: matrix; Determ: Double; begin GetMatrix(Succ(n), mx); Determ := Det(mx, n); If Abs(Determ) < 1E-6 Then Writeln( 'Определитель исходной матрицы = 0' ) Else For i := 1 To n Do Begin GetMatrix(i, mx); WriteLn( 'x(', i, ') = ', (Det(mx, n) / Determ):7:4 ) End | Это оно? Кстати очень интересный форум называется Всё о Паскале Только это кажись паскаль... а не С++
Каждый человек является творцом, ибо он творит нечто из различных врожденных факторов и возможностей.» А. Адлер
Последний раз сообщение редактировал: Kotofrakt - Воскресенье, 2006-11-26, 10:47 AM |
|
| |
HELL_KNIGHT |
Дата: Воскресенье, 2006-11-26, 4:05 PM | Сообщение # 5 |
Полковник
Группа: Администраторы
Сообщений: 233
Репутация: 5
Статус: Offline |
Пасиб..тока эт правда не на с++ ...Quote (Kotofrakt) | Позволяет решить неоднородную систему n линейных алгебраических уравнений с n неизвестными, если определитель основной матрицы не равен нулю. | ну в общем да..там находишь определитель основной матрицы и матриц получающихся подстановкой вектора со значениями уравнений вместо i-ого столбца матрицы и решение находится путем деления этого определителя на определитель основной матрицы... P.S. Мне бы хоть функцию вычисления определителя матрицы n*n...
Per aspera ad astra. |
|
| |
HELL_KNIGHT |
Дата: Понедельник, 2006-11-27, 9:07 AM | Сообщение # 6 |
Полковник
Группа: Администраторы
Сообщений: 233
Репутация: 5
Статус: Offline |
Вот русифицированная версия того сайта, что я выкладывал
Per aspera ad astra. |
|
| |