Anonymous user
Determinant and permanent: Difference between revisions
→{{header|Simula}}: reduced overspecification; conditional index instead of four-branch-if-else in firstMINOR
(→{{header|Simula}}: reduced overspecification; conditional index instead of four-branch-if-else in firstMINOR) |
|||
Line 1,978:
BEGIN
INTEGER PROCEDURE LENGTH(A);
LENGTH := UPPERBOUND(A, 1) - LOWERBOUND(A, 1) + 1;
PROCEDURE MINOR(A, X, Y, MAT); ARRAY A, MAT; INTEGER X, Y;
BEGIN
INTEGER I, J, rowA, M; M := LENGTH(A) - 1; ! not a constant;
FOR I := 1 STEP 1 UNTIL M DO BEGIN
FOR J := 1 STEP 1 UNTIL M DO
BEGIN▼
▲ ELSE IF I < X AND J >= Y THEN
▲ MAT(I, J) := A(I + 1, J + 1)
END MINOR;
Line 2,045 ⟶ 2,039:
INTEGER I, J;
FOR I := 1 STEP 1 UNTIL SIZE DO BEGIN
! may be need here: INIMAGE;
FOR J := 1 STEP 1 UNTIL SIZE DO
A(I, J) := INREAL
OUTTEXT("DETERMINANT ... : "); OUTREAL(DET (A), 10, 20); OUTIMAGE;
OUTTEXT("PERMANENT ..... : "); OUTREAL(PERM(A), 10, 20); OUTIMAGE;
END
! 2
! 1 2
Line 2,073 ⟶ 2,066:
! PERMANENT: 6778800.0 ;
END</lang>
Input:
<pre>
| |||