Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
2 / 2 / 2
Регистрация: 10.03.2014
Сообщений: 124
1

Правило Саррюса (правило треугольников, метод звездочки) Pascal

28.04.2014, 22:05. Просмотров 1733. Ответов 2
Метки нет (Все метки)

привет, всем активным участникам форума. помогите, пожалуйста, написать программу на языке Pascal .

задание:
нужно написать программу, чтобы она решала матрицу по правилу Саррюса (правило треугольников)
картинка этого правила - Нахождение определителя матрицы методом "Звездочки" (он же метод треугольников, правило Саррюса)

вот так нужно, чтобы считалась матрица:
=(a11*a22*a33)+(a12*a23*a31)+(a13*a21*a32)-(a13*a22*a31)-(a11*a32*a23)-(a12*a21*a33)

вод код на Pascal, но его нужна модернизировать:
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
program zd;
Const n=3; m=3;
 
Type
matr  = array[1..n,1..m] of integer;
 
Const
A: matr = ( ( 2, 10, 1 ),
            ( 3, 4, -1 ),
            ( 1, 6, 2 )
           );
Var
S:Real;
Begin
S:=(   ( ( A[1,1] )*( A[2,2] )*( 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] ) )-
       ( ( A[1,1] )*( A[3,2] )*( A[2,3] ) )-
       ( ( A[1,2] )*( A[2,1] )*( A[3,3] ) )  );
 
Writeln('( A[1,1] )*( A[2,2] )*( 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] ) - ( A[1,1] )*( A[3,2] )*( A[2,3] ) - ( A[1,2] )*( A[2,1] )*( A[3,3] ) = ',
 A[1,1],'*',A[2,2],'*',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],'-',A[1,1],'*',A[3,2],'*',A[2,3],'-',A[1,2],'*',A[2,1],'*',A[3,3],'=', S:0,4 );
END.
всем огромное спасибо за помощь и внимание!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2014, 22:05
Ответы с готовыми решениями:

Нахождение определителя матрицы методом "Звездочки" (он же метод треугольников, правило Саррюса)
привет, всем активным участникам форума. помогите, пожалуйста, написать программу на С++. ...

Правило Саррюса
Здравствуйте. Нужно вычислить определитель матрицы, любой размерности Вот мой код, правда еще...

Правило Саррюса, правильное произношение
Я прошу прощения, вопрос вроде и не из области математики, но всё же не дает мне покоя. Изучаю я...

Правило Крамера. Метод обратной матрицы
Помогите! нужна программа которая будет решать по методу Крамера! желательно с объяснением кода!

2
Аналитик
79 / 79 / 63
Регистрация: 24.04.2014
Сообщений: 465
Записей в блоге: 15
28.04.2014, 22:28 2
Pascal
1
2
Writeln('( A[1,1] )*( A[2,2] )*( 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] ) - ( A[1,1] )*( A[3,2] )*( A[2,3] ) - ( A[1,2] )*( A[2,1] )*( A[3,3] ) = ',
 A[1,1],'*',A[2,2],'*',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],'-',A[1,1],'*',A[3,2],'*',A[2,3],'-',A[1,2],'*',A[2,1],'*',A[3,3],'=', S:0,4 );
Зачем столько пихать можно просто:
Pascal
1
writeln('определитель матрицы ',  s)
1
2 / 2 / 2
Регистрация: 10.03.2014
Сообщений: 124
28.04.2014, 22:37  [ТС] 3
Зотов_из_ОСА , вы конечно правы. но мне нужно расписанное решение.
а может возможно реализовать эту программу на Delphi или С++?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.04.2014, 22:37

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Правило
Можно ли прописать в .htaccess правило так. Что мол страница без правила site.ru/ttt/22/ А с...

Правило удаления
Здравствуйте! Ситуация следующая: в IBExpert созданы две таблицы - родительская и дочерняя. При...

Правило Лопиталя
Ребята, всем привет! В этом году поступил на 1 курс в университет, перед этим учился в обычной...

Правило Рунге
S_n (x),S_n^' (x),при n=2,3,4,5,6,где S_n (x)=1+a_1 x+a_2 x^2+⋯+a_n...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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