Pascal. Matrix determinant

В рубрике «Лекции» под тегом «pascal» здесь будут выкладываться примеры программ на Паскале для студентов-первокурсников. Пример реализации объекта-матрицы с методом вычисления определителя. type preal = ^real; matrix = object n, m : word; data : preal; constructor create(n_, m_ : word); destructor destroy; function elem(i, j : word) : preal; function minor(i, j : word) : matrix; function det : real; end; destructor matrix.destroy; begin freemem(self.data, self.n * self.m * sizeof(real)); self.n := 0; self.m := 0; end; constructor matrix.create(n_, m_ : word); begin self.n := n_; self.m := m_; getmem(self.data, self.n * self.m * sizeof(real)); end; function matrix.elem(i, j : word) : preal; begin elem := data + (i — 1)*n + j — 1; end; function matrix.minor(i, j : word) : matrix; var mat : matrix; o, p, idx, idy : word; begin mat.create(self.n — 1, self.m — 1); …

Continue reading ‘Pascal. Matrix determinant’ »