Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 26.12.2016, 21:43   #1
newbieee
Пользователь
 
Регистрация: 24.10.2014
Сообщений: 20
По умолчанию Активировать код

Здравствуйте, имеется код паскаль/делфи, так как знаний мало, никак не могу активировать этот код, пытался приписать определение функции Matrix, потом ругается на n, и тд....Буду благодарен, если ответ будет развернутым, спасибо)

P.S: В этом коде удовлетворяет ли всё этим условиям?

Составление следующих процедур:
1) разложение матрицы на множители;
2) решение системы Аx = b;
3) нахождение определителя матрицы;
4) нахождение обратной матрицы;
Разложение получать, воспользовавшись методом LU-разложений (также используется метод Гаусса)
Портрет матрицы:
Матрица A – ленточная матрица, размера n*n с шириной ленты 2k + 1(n и k входящие параметры)

Код:
Procedure M_LU(A : Matrix ; Var L: Matrix ; Var U :Matrix  );
{ Процедура разложения исходной матрицы на нижнюю и верхнюю треугольные}
{                   A = L  *  U                                         }
{     матрицу А (задана в головной программе ) можно представить :
      L(lower)   :  в виде произведения  нижней  треугольной матрицы
                 (т.е. все элементы выше главной диагонали  у нее нулевые)
      U (upper) :  верхней треугольной  матрицы   (ниже главной
                 диагонали у нее нули , а на главной стоят единицы))}
(* Type  Типы , объявленные в программе:
           Matrix=array[1..n,1..n] of real;
           vektor=array[1..n] of real ; *)
{   n - размерность матрицы  }
Var
  i,j,k,m :integer;
  sum:real;
Begin
  for i:=1 to n do      {Столбец 1 матрицы А переписывается как  }
        L[i,1]:=A[i,1]; {         столбец 1 матрицы L             }
  for j:=2 to n do      {      Определяется строка 1   матрицы U }
        U[1,j]:=A[1,j] / L[1,1];
  {Для разложения матрицы А используется компактная схема метода Гаусса }
  for m:=2 to n do
   begin
     for i:=m to n do         {Заполнение матрицы L}
      begin
          sum:=0;
          for k:=1  to m-1 do  sum:=sum+ L[i,k]*U[k,m];
          L[i,m]:=A[i,m]-sum;
      end;
      for j:=m+1 to n do      {Заполнение матрицы U}
          begin
             sum:=0;
             for k:=1 to m-1 do
                 sum:=sum+ L[m,k]*U[k,j];
             U[m,j]:=(A[m,j] - sum) / L[m,m];
          end;
  end;
    for i:=1 to n do  U[i,i]:=1; {заполнение диагонали матрицы U }
 end;
newbieee вне форума
Старый 26.12.2016, 22:02   #2
newbieee
Пользователь
 
Регистрация: 24.10.2014
Сообщений: 20
По умолчанию

Вот что реально надо найти, есть ли всё это в коде....
newbieee вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
активировать книгу roborrr Microsoft Office Excel 4 30.07.2012 16:47
Активировать Memo Ilya_L Общие вопросы Delphi 6 16.06.2012 17:34
активировать horpenst Microsoft Office Excel 6 07.04.2012 17:43
Активировать окно... klmmn Win Api 7 26.03.2011 19:23
Активировать гиперссылки Verano naranjo Microsoft Office Excel 1 19.01.2011 12:11