Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Excel VBA, CAD, Софт, ОС, Windows, Ubuntu, Android, VPS
Win Api, Assembler, C++, Java, Pascal, Lazarus, Delphi, OpenGL, DirectX
C#, Qt, .NET, ASP.NET, Windows Forms, ADO.NET, Framework, WPF, UWP, WinRT, XAML
HTML, CSS, JavaScript, Ajax, PHP, Perl, Python, Ruby, SQL, WordPress, API, XML, JSON, ActionScript, Flash

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

Здравствуйте, имеется код паскаль/делфи, так как знаний мало, никак не могу активировать этот код, пытался приписать определение функции 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, 23:02   #2
newbieee
Пользователь
 
Регистрация: 24.10.2014
Сообщений: 20
Репутация: 10
По умолчанию

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



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
активировать книгу 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 20:23
Активировать гиперссылки Verano naranjo Microsoft Office Excel 1 19.01.2011 13:11




23:11.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru