Произведение определителей матриц. Паскаль

[Nyuta555]

Даны две квадратные матрицы второго и третьего порядка. Найти произведение определителей этих матриц.

Насколько я помню из математики, произведение определителей матриц равно определителю от произведения.

Если возможно, обьясните для "брюнетко" последовательность составления программы....нашла вычисление определителя с использованием разложения по первой строке..у меня волосы дыбом встали)))...

[Stilet]

матрицы второго и третьего порядка.

Если не секрет что это за матрицы, как выглядят и формируются.

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

Код в студию )

[Nyuta555]

Сообщение от Stilet

Если не секрет что это за матрицы, как выглядят и формируются.

Код в студию )

Дословно: "Даны две квадратные матрицы -А-второго порядка и В- третьего порядка. Найти С-произведение определителей этих матриц.

Сообщение от Stilet

Код в студию )

Издеваетесь..я прочитать-то это не могу, не то что повторить)))

[Stilet]

Nyuta555

Дык подожди, я думал ты чей-то код нашла, но разобраться не можешь...
Я лично просто не знаю формул, потому и думал что код у тя есть.

[Nyuta555]

Сообщение от Stilet

Дык подожди, я думал ты чей-то код нашла, но разобраться не можешь...
Я лично просто не знаю формул, потому и думал что код у тя есть.

Тааак....Ясно...
У меня проблемы с языком, у Вас с математикой)))

Принцип решения написать?)

[Stilet]

у Вас с математикой)))

Еще какие. Но искать я умею так что нашел формулу на http://vm.psati.ru/online-math-sem-1...1-1-03-01.html

program Project1;

uses
  crt;
var
  m2:array[1..2,1..2] of integer;
  o2:integer;
  m3:array[1..3,1..3] of integer;
  o3:integer;
  i,j:integer;
begin
{Заполняем первую матриццу}
 for i:=1 to 2 do begin
  for j:=1 to 2 do begin
   m2[i,j]:=random(50);
   write(m2[i,j]:4);
  end;
  writeln;
 end;
 writeln;
 {Заполняем вторую матриццу}
 for i:=1 to 3 do begin
  for j:=1 to 3 do begin
   m3[i,j]:=random(20);
   write(m3[i,j]:4);
  end;
  writeln;
 end;
 {Первый определитель}
 o2:=m2[1,1]*m2[2,2]+m2[1,2]*m2[2,1];
 {второй определитель}
 o3:=m3[1,3]*(m3[2,1]*m3[3,2]+m3[3,1]*m3[2,2]);
 o3:=o3-(m3[2,3]*(m3[1,1]*m3[3,2]+m3[3,1]*m3[1,2]));
 o3:=o3+(m3[3,3]*(m3[1,1]*m3[2,2]+m3[2,1]*m3[1,2]));

 writeln('opredeli=',o2,' I ',o3);
 write('Proizvedenie opredel=',o2*o3);
 readln;

  { TODO  -oUser -cConsole Main : Insert code here }
end.

Это тебе нужно? Елс нет то Принцип решения написать хе-хе )

Если вопросы по коду могу пояснить.

[Consol]

а что тут писать

opra:=a[1,1]*a[2,2]-a[1,2]*a[2,1];
oprb:=(b[1,1]*b[2,2]*b[3,3]+b[1,2]*b[2,3]*b[1,3]+b[1,3]*b[1,2]*b[3,2])-
         (b[1,3]*b[2,2]*b[1,3]+b[1,2]*b[2,1]*b[3,3]+b[1,1]*b[2,3]*b[3,2]);
c:=opra*oprb;

[Nyuta555]

Это тебе нужно? Елс нет то Принцип решения написать хе-хе )

Если вопросы по коду могу пояснить.

Глупый вопрос: функция Random(a) по какому принципу выбираете интервал [0;50] и (20). В остальном принцип понятен))) Спасибо огромное.

Кстати у меня пять лабороторных работ по пятнадцать заданий в каждой)))) Так что не прощаюсь)))

[Stilet]

функция Random(a) по какому принципу выбираете интервал [0;50]

Такой же ответ параметр задаваемый ей это максимум от нуля, т.е.
в моем примере случайное число будет выкинуто именно в пределе [0;50]

В остальном принцип понятен)

Это гут.

Так что не прощаюсь)

Никто и не говорит Goodbye.

[Nyuta555]

Сообщение от Consol

а что тут писать

opra:=a[1,1]*a[2,2]-a[1,2]*a[2,1];
oprb:=(b[1,1]*b[2,2]*b[3,3]+b[1,2]*b[2,3]*b[1,3]+b[1,3]*b[1,2]*b[3,2])-
         (b[1,3]*b[2,2]*b[1,3]+b[1,2]*b[2,1]*b[3,3]+b[1,1]*b[2,3]*b[3,2]);
c:=opra*oprb;

Впервые в жизни сталкиваюсь с Паскалем. Если бы для меня всё было так легко. наверное не задавала бы глупых вопросов)))