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

Формулировка задачи:

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

function cdet(var x:mat; t:integer):real;
var i,j,k:integer; s:real; monor:mat;
begin 
if t=1 then calcul:=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];
if odd(k) then s:=s+x[1,k]*cdet(minor, t-1) 
else s:=s-x[1,k]*cdet(minot, t-1);
end;
cdet:=s;
end;
end;

Решение задачи: «Вычислить определитель матрицы»

Листинг программы

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.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая обеспечивает функции для работы с числами с плавающей точкой.
Затем определяется константа nmax, которая ограничивает размер матрицы до 10 строк.
Определяется тип данных mat, который представляет собой массив целых чисел размером nmax x nmax.
Определяется функция cdet, которая вычисляет определитель матрицы. Функция принимает матрицу x и параметр t, который определяет, какую строку или столбец нужно вычислить.
Внутри функции cdet объявляются переменные i, j и k, которые будут использоваться для итерации по матрице.
Затем объявляются переменные s и b, которые будут использоваться для хранения промежуточных результатов.
В цикле for k=1 до t do выполняется итерация по столбцам матрицы.
Внутри цикла for i=1 до t-1 do выполняется итерация по строкам матрицы.
Для каждой строки и столбца вычисляется меньший диагональный элемент с помощью подмассива minor.
Если k - это первый столбец, то значение minor [i,j] присваивается значению x[i+1,j], иначе оно присваивается значению x[i+1,j+1].
После завершения итерации по всем строкам и столбцам, функция cdet возвращает значение s.
В основной части программы создается переменная a типа mat, которая будет представлять матрицу размером n x n.
Цикл repeat-until используется для ввода размера матрицы от пользователя.
В цикле for i=1 до n do выполняется итерация по строкам матрицы.
Для каждой строки вычисляется значение a[i,j] с помощью функции randomize, которая генерирует случайное число в диапазоне от -5 до 10.
После завершения итерации по всем строкам, значение a[i,j] выводится на экран с помощью функции write.
Затем вызывается функция cdet с аргументами a и n, чтобы вычислить определитель матрицы.
Значение cdet выводится на экран с помощью функции write.