[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи из заказов » Заказ 07.01.07 Pascal
Задана матрица второго порядка. Найти её определитель.
{
  -----------------------------------------------------------------------

   6. Задана матрица второго порядка. Найти её определитель.

  -----------------------------------------------------------------------
}

var
  a: array[1..2,1..2] of longint;
  i, j, det : longint;

begin
  writeln('Ввод матрици:');
  for i:=1 to 2 do
    for j:=1 to 2 do begin
      write('Введите a[', i, ',', j, '] = ');
      readln(a[i,j]);
    end;
  det := a[1,1]*a[2,2]-a[1,2]*a[2,1];
  writeln('Опредилитель этой матрици равен ', det);
end.


Категория: Заказ 07.01.07 Pascal | Добавил: solver (07.01.2007)
Просмотров: 1101