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

Turbo Pascal

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

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

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

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

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

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

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

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

Составить программу которая бы вычисляла определитель квадратной матрицы - Turbo Pascal
составить программу которая бы вычисляла определитель квадратной матрицы;матрицу заполнить случайным образом в диапазоне (-40;90)...

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BumerangSP
4286 / 1408 / 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
4286 / 1408 / 121
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
14.04.2012, 14:48 #4
можно сделать программу покороче?
Можно, но не намного, на пару строчек. Метод такой.
Puporev
Модератор
51863 / 39794 / 13160
Регистрация: 18.05.2008
Сообщений: 91,065
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.
sonyk18
0 / 0 / 0
Регистрация: 09.04.2012
Сообщений: 35
02.05.2012, 19:02  [ТС] #8
Это полюбому правильно?!
В любом случае огромное спасибо!
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2012, 19:02
Привет! Вот еще темы с ответами:

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

Создать программу, которая вычисляет сумму диагональных элементов квадратной матрицы - Pascal
Создать программу, которая вычисляет сумму диагональных элементов квадратной матрицы

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

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


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
02.05.2012, 19:02
Ответ Создать тему
Опции темы

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