Найти наименьший определитель матриц А, В, С

@Malavit · Регистрация: 06.06.2013

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста!

Нужно сформировать три диагональные матрицы А(5,5), В(4,4) и С(6,6). Найти наименьший определитель матриц А, В, С (определитель диагональной матрицы – произведение элементов главной диагонали). Формирование матрицы оформить в виде процедуры. Вычисление значения определителя оформить в виде процедуры-функции.

Новичок · 28.06.2013, 17:38

Pascal

type matrix=array[1..6,1..6]of Integer;
procedure matrix_create(var a:matrix;n:Integer);
var i,j:Integer;
begin
for i:=1 to n do
a[i,i]:=Random(9)+1;
for i:=1 to n do
begin
for j:=1 to n do Write(a[i,j]:3);
Writeln;
end;
end;
 
function opr(a:matrix;n:Integer):Integer;
var i,p:Integer;
begin
p:=1;
for i:=1 to n do p:=p*a[i,i];
opr:=p
end;
 
var a,b,c:matrix;
min:Integer;
begin
Randomize;
Writeln('Матрица A:');
matrix_create(a,5);
Writeln('Матрица B:');
matrix_create(b,4);
Writeln('Матрица C:');
matrix_create(c,6);
if opr(a,5)<opr(b,4) then min:=opr(a,5) else min:=opr(b,4);
if opr(c,6)<min then min:=opr(c,6);
Writeln('Наименьший определитель:',min);
Readln;
end.

@Malavit · 28.06.2013, 18:01 **[ТС]**

и снова, огромное Вам спасибо!!!

@Malavit 0 / 0 / 0 Регистрация: 06.06.2013 Сообщений: 11
		1
	Найти наименьший определитель матриц А, В, С 28.06.2013, 17:15. Показов 1186. Ответов 2 Метки нет (Все метки) Помогите пожалуйста! Нужно сформировать три диагональные матрицы А(5,5), В(4,4) и С(6,6). Найти наименьший определитель матриц А, В, С (определитель диагональной матрицы – произведение элементов главной диагонали). Формирование матрицы оформить в виде процедуры. Вычисление значения определителя оформить в виде процедуры-функции. 0

@Malavit 0 / 0 / 0 Регистрация: 06.06.2013 Сообщений: 11
	28.06.2013, 18:01 [ТС]	3
	и снова, огромное Вам спасибо!!! 0

Найти наименьший определитель матриц А, В, С

Решение