|
Member
Регистрация: 29.11.2013
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Можно даже вот так написать, чтобы в сторону не двигать.
PHP код:
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,S1,S2,S3,S4,S5,S6:Integer;
Begin
Writeln('Reshenie matrici : ');
Writeln;
S1:=( ( A[1,1] )*( A[2,2] )*( A[3,3] ) );
S2:=( ( A[1,2] )*( A[2,3] )*( A[3,1] ) );
S3:=( ( A[1,3] )*( A[2,1] )*( A[3,2] ) );
S4:=( ( A[1,3] )*( A[2,2] )*( A[3,1] ) );
S5:=( ( A[1,1] )*( A[3,2] )*( A[2,3] ) );
S6:=( ( A[1,2] )*( A[2,1] )*( A[3,3] ) );
S:=(S1+S2+S3)-(S4+S5+S6);
Writeln(' ( A[1,1] )*( A[2,2] )*( A[3,3] ) +');
Writeln(' + ( A[1,2] )*( A[2,3] )*( A[3,1] ) +');
Writeln(' + ( A[1,3] )*( A[2,1] )*( A[3,2] ) -');
Writeln(' - ( A[1,3] )*( A[2,2] )*( A[3,1] ) -');
Writeln(' - ( A[1,1] )*( A[3,2] )*( A[2,3] ) -');
Writeln(' - ( 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],' = ');
Writeln( ' = (',S1,') + (',S2,') + (',S3,') - (',S4,') - (',S5,') - (',S6,')',' = ', S );
Writeln;
Writeln('Resultat resheniya : (',S,')');
END.
Должно выдать:
PHP код:
Reshenie matrici :
( 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] ) =
= 2*4*2+10*-1*1+1*3*6-1*4*1-2*6*-1-10*3*2 =
= (16) + (-10) + (18) - (4) - (-12) - (60) = -28
Resultat resheniya : (-28)
|