Форум программистов, компьютерный форум CyberForum.ru

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 20, средняя оценка - 4.65
sonyk18
0 / 0 / 0
Регистрация: 09.04.2012
Сообщений: 35
#1

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

13.04.2012, 19:28. Просмотров 2662. Ответов 7
Метки нет (Все метки)

Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.04.2012, 19:28     Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.
Посмотрите здесь:

Turbo Pascal Вычислить определитель в квадратной матрице третьего порядка
Написать программу, которая вычисляет сумму Turbo Pascal
Turbo Pascal Вычислить определитель квадратной матрицы третьего порядка
Написать программу, которая определяет номер столбца квадратной матрицы, сумма элементов которого максимальна Turbo Pascal
Написать программу, оформив ее в виде функции: вычислить определитель матрицы 4 порядка. Turbo Pascal
Написать программу, которая вычисляет определитель квадратной матрицы любого порядка(универсальная, для порядка n) Turbo Pascal
Написать программу, которая вычисляет доход по вкладу Turbo Pascal
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
BumerangSP
4284 / 1406 / 121
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 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
4284 / 1406 / 121
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
14.04.2012, 14:48     Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка. #4
можно сделать программу покороче?
Можно, но не намного, на пару строчек. Метод такой.
Puporev
Модератор
51332 / 39263 / 12881
Регистрация: 18.05.2008
Сообщений: 89,559
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
39 / 39 / 5
Регистрация: 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.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2012, 19:02     Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.
Еще ссылки по теме:

Определитель квадратной матрицы второго порядка Turbo Pascal
Написать программу , которая вычисляет определитель квадратной матрицы второго порядка Turbo Pascal
Turbo Pascal Написать функцию, которая находит определитель матрицы 3*3
Turbo Pascal пожалуйста,нужно написать комментарии к каждой строке(находим определитель матрицы 5-го порядка)
Составить программу которая бы вычисляла определитель квадратной матрицы Turbo Pascal

Искать еще темы с ответами

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru