Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Turbo Pascal
Восстановить пароль Регистрация

Ответ Создать новую тему
 
13.04.2012, 19:28   #1
sonyk18
Новичок
Регистрация: 09.04.2012
Сообщений: 35
Репутация: 0 (0)
Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка. / Turbo Pascal

Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.
13.04.2012, 19:28
AdAgent
Объявления
13.04.2012, 19:39   #2
BumerangSP
Супер-модератор
Регистрация: 16.12.2010
Сообщений: 2,837
Репутация: 4071 (1328)
Записей в блоге: 3
Лучшие ответы: 28
Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.

Код 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.
Другие темы раздела
Сортировка Turbo Pascal
Помогите пожалуйста с сортировкой, заранее спасибо Сортировочный узел имеет Т образную форму. С правой стороны собрано некоторое количество вагонов двух типов (например белые и черные), общим количеством N>100. Тупик (депо) может вмещать 2N вагонов. Используя три сортировочных операции: В, ИЗ,...
Turbo Pascal с помощью процедуры найти кол-во положит и отрицат элементов строк матрицыА(3х3)
Помогите пожалуйста с решением задачи: С помощью процедуры найти кол-во положительных и отрицательных элементов строк матрицыА(3х3) Зарание спасибо!
14.04.2012, 13:27  [ТС]   #3
sonyk18
Новичок
Регистрация: 09.04.2012
Сообщений: 35
Репутация: 0 (0)
Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.

Спасибо, но можно сделать программу покороче?
В любом случае спасибо!!!
14.04.2012, 14:48   #4
BumerangSP
Супер-модератор
Регистрация: 16.12.2010
Сообщений: 2,837
Репутация: 4071 (1328)
Записей в блоге: 3
Лучшие ответы: 28
Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.

можно сделать программу покороче?
Можно, но не намного, на пару строчек. Метод такой.
14.04.2012, 14:48
AdAgent
Объявления
14.04.2012, 15:43   #5
Puporev
Модератор
Регистрация: 18.05.2008
Сообщений: 64,871
Репутация: 41994 (30514)
Лучшие ответы: 1,717
Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.

Определитель третьего порядка.

Код 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];
01.05.2012, 20:49  [ТС]   #6
sonyk18
Новичок
Регистрация: 09.04.2012
Сообщений: 35
Репутация: 0 (0)
Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.

Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.
01.05.2012, 20:57   #7
Мaкc
Форумчанин
Регистрация: 16.03.2012
Сообщений: 86
Репутация: 38 (38)
Лучшие ответы: 8
Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.

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.
02.05.2012, 19:02  [ТС]   #8
sonyk18
Новичок
Регистрация: 09.04.2012
Сообщений: 35
Репутация: 0 (0)
Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка. / Turbo Pascal

Это полюбому правильно?!
В любом случае огромное спасибо!
02.05.2012, 19:02
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal: Написать программу , которая вычисляет определитель квадратной матрицы второго порядка
Написать программу , которая вычисляет определитель квадратной матрицы второго порядка .ниже представлен рекомендуемый вид экрана во время работы программы. Введите матрицу второго порядка После ввода элементов строки нажмите enter -> 5 -7 -> 1 3 Определитель матрицы -5.00 -7.00 -1.00...
Turbo Pascal Simonvl 17.05.2014 08:56
C (СИ): Написать программу, которая вычисляет определитель квадратной матрицы второго порядка
Написать программу, которая вычисляет определитель квадратной матрицы второго порядка
C для начинающих Raskolbas 11.12.2013 16:14
Turbo Pascal: Написать программу, которая вычисляет определитель квадратной матрицы любого порядка(универсальная, для порядка n)
Помогите написать программу, которая вычисляет определитель квадратной матрицы любого порядка(универсальная, для n порядка) .Программа должна работать для матрицы любого порядка.
Turbo Pascal татьянка95 10.12.2013 09:33
Delphi: Программа которая вычисляет определитель квадратной матрицы третьего порядка.
Программа которая вычисляет определитель квадратной матрицы третьего порядка. Помогите пожалуйста очень надо, ГОРЮ ПАЦАНЫ!
Delphi для начинающих Andronxxxxx 05.05.2011 16:45
Опции темы

Текущее время: 21:43. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.