Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Turbo Pascal
Восстановить пароль Регистрация

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

Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.
Старый 13.04.2012, 19:39   #2
BumerangSP
Супер-модератор
 
Аватар для BumerangSP
 
Регистрация: 16.12.2010
Сообщений: 2,782
Репутация: 4012 (1305)
Записей в блоге: 3
Лучшие ответы: 26
Код 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. Программирование на языке Turbo Pascal. Помощь в решении задач, ответы на вопросы.
Сортировка 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
Супер-модератор
 
Аватар для BumerangSP
 
Регистрация: 16.12.2010
Сообщений: 2,782
Репутация: 4012 (1305)
Записей в блоге: 3
Лучшие ответы: 26
можно сделать программу покороче?
Можно, но не намного, на пару строчек. Метод такой.
Старый 14.04.2012, 14:48
Google
Объявления
Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка. / Turbo Pascal

Старый 14.04.2012, 15:43   #5
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,118
Репутация: 40864 (29411)
Лучшие ответы: 1138
Определитель третьего порядка.

Код 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
Форумчанин
 
Аватар для М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)
Это полюбому правильно?!
В любом случае огромное спасибо!
Старый 02.05.2012, 19:02
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Pascal (Паскаль) Создать программу, которая вычисляет сумму диагональных элементов квадратной матрицы
Создать программу, которая вычисляет сумму диагональных элементов квадратной матрицы
Skorn
С++ для начинающих определитель квадратной матрицы третьего порядка.
Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.
sonyk18
Delphi для начинающих Программа которая вычисляет определитель квадратной матрицы третьего порядка.
Программа которая вычисляет определитель квадратной матрицы третьего порядка. Помогите пожалуйста очень надо, ГОРЮ ПАЦАНЫ!
Andronxxxxx
С++ для начинающих Написать программу которая вычисляет определитель квадратной матрицы
Написать программу которая вычисляет определитель квадратной матрицы вещественных чисел 3х3.Значения матрицы вводятся пользователем.
dlancer
Опции темы

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

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