Вычислить определитель матрицы - Turbo Pascal

  1. При этом необходимо в программе использовать следующую функцию:


textual

Код к задаче: «Вычислить определитель матрицы - Turbo Pascal»

uses crt;
const nmax=10;
type mat=array[1..nmax,1..nmax] of real;
function cdet(var x:mat; t:integer):real;
var i,j,k:integer;
    s,b:real;
    minor:mat;
begin
if t=1 then cdet:=x[1,1]
else
 begin
  s:=0;
  for k:=1 to t do
   begin
    for i:=1 to t-1 do
    for j:=1 to k-1 do
    minor [i,j]:=x[i+1,j];
    for i:=1 to t-1 do
    for j:=k to t-1 do
    minor [i,j]:=x[i+1,j+1];
    b:=cdet(minor, t-1);
    if odd(k) then s:=s+x[1,k]*b
    else s:=s-x[1,k]*b;
   end;
  cdet:=s;
 end;
end;
var a:mat;
    n,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы от 1 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+10*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
write('Определитель=',cdet(a,n):0:0);
readln
end.

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.867 из 5



Похожие ответы
  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Вычислить С при любых значениях x, а, b:

  1. По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.

  1. Напишите программу Pascal Вычислить объём конуса:

  1. Дан произвольный одномерный массив (элементы вводятся с клавиатуры). Формирование элементов массива, обработку и если нужно вывод массива оформить отдельными подпрограммами. Вычислить сумму нечетных элементов, а все остальнве удвоить.

  1. Никак не могу додуматься как сделать :с