Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
sonyk18
Новичок
0 / 0 / 0
Регистрация: 09.04.2012
Сообщений: 35
13.04.2012, 19:28     Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.
  #1
Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.
AdAgent
Объявления
13.04.2012, 19:28
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.04.2012, 19:28

Посмотрите здесь:

Turbo Pascal Написать программу, которая вычисляет сумму

Turbo Pascal Вычислить определитель квадратной матрицы третьего порядка

Turbo Pascal Написать программу, которая вычисляет

Turbo Pascal Написать программу, которая определяет номер столбца квадратной матрицы, сумма элементов которого максимальна

Turbo Pascal Написать программу, которая вычисляет функцию с=1+1/1!+1/2!.1/н!

Turbo Pascal Написать программу, оформив ее в виде функции: вычислить определитель матрицы 4 порядка.

BumerangSP
Супер-модератор
4087 / 1344 / 29
Регистрация: 16.12.2010
Сообщений: 2,868
Записей в блоге: 3
13.04.2012, 19:39
  #2
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses crt;
type matr = array [1..30,1..30] of integer;
var i,j,n: integer;
    a: matr;
 
procedure del(a:matr; var b:matr; m,i,j:integer);
var ki,kj,di,dj:integer;
  begin
  di:=0;
  for ki:=1 to m-1 do
    begin
    if (ki=i) then di:=1;
    dj:=0;
    for kj:=1 to m-1 do
      begin
      if (kj=j) then dj:=1;
      b[ki,kj]:=a[ki+di,kj+dj];
      end;
    end;
  end;
 
Function Determinant(var a:matr; n:integer):longint;
var i,j,d,k:longint;
    b:matr;
  begin
  d:=0;
  k:=1;
  if (n<1) then
    begin
    writeln('Determinanta net');
    end;
  if (n=1) then
  d:=a[1,1]
  else
   if (n=2) then
    d:=a[1,1]*a[2,2]-a[2,1]*a[1,2]
    else
     for i:=1 to n do
      begin
       del(a,b,n,i,1);
       d:=d+k*a[i,1]*Determinant(b,n-1);
       k:=-k;
      end;
  Determinant:=d;
end;
 
begin
 clrscr;
 n:=3;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10);
     write(a[i,j]:3);
    end;
   writeln;
  end;
  writeln('Det = ',determinant(a,n));
 readln;
end.
sonyk18
Новичок
0 / 0 / 0
Регистрация: 09.04.2012
Сообщений: 35
14.04.2012, 13:27  [ТС]
  #3
Спасибо, но можно сделать программу покороче?
В любом случае спасибо!!!
BumerangSP
Супер-модератор
4087 / 1344 / 29
Регистрация: 16.12.2010
Сообщений: 2,868
Записей в блоге: 3
14.04.2012, 14:48
  #4
можно сделать программу покороче?
Можно, но не намного, на пару строчек. Метод такой.
Puporev
Модератор
42557 / 31071 / 1939
Регистрация: 18.05.2008
Сообщений: 66,299
14.04.2012, 15:43
  #5
Определитель третьего порядка.

Код Pascal
1
2
3
d:= a[1,1]*a[2,2]*a[3,3]-a[1,1]*a[2,3]*a[3,2]
   -a[1,2]*a[2,1]*a[3,3]+a[1,2]*a[2,3]*a[3,1]
   +a[1,3]*a[2,1]*a[3,2]-a[1,3]*a[2,2]*a[3,1];
sonyk18
Новичок
0 / 0 / 0
Регистрация: 09.04.2012
Сообщений: 35
01.05.2012, 20:49  [ТС]
  #6
Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.
Мaкc
Форумчанин
38 / 38 / 8
Регистрация: 16.03.2012
Сообщений: 86
01.05.2012, 20:57
  #7
5 сек подожди

Добавлено через 3 минуты
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Opred;
uses crt;
var xa,ya,za,va,xb,yb,zb,vb,xc,yc,zc,vc,delta:real;
begin
     clrscr;
     writeln('BBEDITE xa,ya,za -> ');
     readln(xa,ya,za);
     writeln('BBEDITE xb yb zb ->');
     readln(xb,yb,zb);
     writeln('BBEDITE xc,yc,zc ->');
     readln(xc,yc,zc);
     writeln('BBEDITE va,vb,vc ->');
     readln(va,vb,vc);
     delta:=(((xa*yb*zc)+(ya*zb*xc)+(za*xb*yc))-((xc*yb*za)+(yc*zb*xa)+(zc*xb*ya)));
     writeln('Opredelitel raven ',delta:7:2);
     readkey;
     end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.05.2012, 19:02

Еще ссылки по теме:

Turbo Pascal Написать программу, которая вычисляет определитель квадратной матрицы любого порядка(универсальная, для порядка n)

Turbo Pascal Необходимо написать программу, где можно будет ввести (любую)матрицу любого порядка и она вычислит ее определитель.

Turbo Pascal Определитель квадратной матрицы второго порядка

Turbo Pascal Написать программу , которая вычисляет определитель квадратной матрицы второго порядка

sonyk18
Новичок
0 / 0 / 0
Регистрация: 09.04.2012
Сообщений: 35
02.05.2012, 19:02  [ТС]     Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.
  #8
Это полюбому правильно?!
В любом случае огромное спасибо!
Yandex
Объявления
02.05.2012, 19:02
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 14:20. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.