. ' . "" [14]. . :
.
. "" : .
:
.
. , 2 . 1. : (1 3/2 2 1/2 1/2 0 0 0). 0, . (4) 0. :
: (0 2 1 0 2 1 0 0).
(2) 0. : (0 4 7 1 1 0 1 0) ( ).
(6) 0. :
(0 4 7 2 3 0 0 1) ( ).
1:
.
, 1 .
. 1 , 2 , 2:
( ) (0 1 1/2 0 1 1/2 0 0).
"" . , (3/2) 1 :
( ) (1 0 0 1/4 5/4 1 7 4 3/4 0).
(4) 1 :
( ) (0 0 5 1 3 2 1 0).
(4) 1. :
( ) (0 0 5 2 1 2 0 1).
2 :
.
ϳ 2 .
. 2 , 5, 3. :
( ) (0 0 1 1/5 3/5 2/5 1/5 0).
2, . (5/4) 2. :
( ) (1 0 0 1/4 5/4 1/4 1/4 0). (1/2), 2. :
( ) (0 1 0 1/10 13/10 7/10 1/10 0).
(5), 2. :
( ) (0 0 0 1 2 1 1).
3:
.
ϳ , 3 , .
. 3 , +1. A 4, (1/4) 3. :
|
|
( ) (1 0 0 0 7/4 1/4 0 1/4).
(+1/10) 3. :
( ) (0 1 0 0 3/2 7/10 1/5 1/10).
(1/5) 3. : ( ) (0 0 1 0 1 2/5 2/5 1/5). A 4, :
.
ϳ :
, -1 ', , 4. :
.
, :
.
:
.
Turbo Pascl abba BASIC ABC , , 0= Å .
Program abba;
Const m=4; n=8; Label 2,3,4, 99;
Type g1= array [1..m,1..m] of real;
q2=ar ray [1..m,1..m] of real;
Var AÆ,A1,A2,A3,A4: q2;A,A11,l1:q1;
I, j, k: intger; S: real;
Begin
For i:=1 to m do begin
For j:=1 to n do begin
Writeln ( Æ[i,j]= );
Readln (AÆ[i,j]); end; end;
Writeln ( );
For j:=1 to m do
A1[1,j]:=AÆ[1,j]/AÆ[1,1];
For i:=2 to m do begin
For i:=1 to n do begin
A1[1,j]:=AÆ[i,j]-A1[1,j]*AÆ[i,1]
End; end;
Writeln ( );
If(A1[2,2]=Æ) then goto 2;
For j:=1 to n do
A2[2,j]:=AÆ[2,j]/AÆ[2,2];
For i:=1 to m do begin
For j:=1 to n do begin
If(i=2) then i:=i+1;
A2[i,j]:=A1[i,j]-A2[2,j]*A1[i,2]; end;end;
Writeln ( );
If(A2[3,3]=Æ) then goto 3;
For j:=1 to n do
A3[3,j]:=A2[3,j]/A2[3,3];
For i:=1 to m do begin
For j:=1 to n do begin
A3[i,j]:=A2[i,j]-A3[3,j]*A2[i,3]; end;end;
Writeln ( );
If(A3[4,4]=Æ) then goto 4;
For j:=1 to n do
A4[4,j]:=A3[4,j]/A3[4,4];
For i:=1 to m-1 do begin
For j:=1 to n do begin
A[i,j]:=A3[i,j]-A4[4,j]*A3[i,4]; nd;nd;
For i:=1 to m do begin
For j:=1 to m do begin
A11[i,j]:=A4[i,j+m];
A[i,j]:=AÆ[ij];end; end;
{11 ; - }[i,j] [ij] [i,j] [i,j] [i,j]
for i:=1 to m do begin
for i:=1 to m do begin
Writeln (`a11[.ij.]=`, A1[ij]:1Æ:4); end;end;
Writeln ( );
For i:=1 to m do begin
For j:=1 to m do begin
S:=Æ;
For k:=1 to m do begin
S:=S+A[i,k]*A11[kj];end;
II[i,j]:= S; Writeln (`II, [`,ij],` ]=`, I1[i,j]); end;end;goto 99;
2: Writeln (` A1[2,2]=Æ`); goto 99;
3: Writeln (` A2[3,3]=Æ`); goto 99;
4: Writeln (` A3[4,4]=Æ`);
99: End.
"ABC":
05 PRINT".PROGRAM "ABC.."
10 REM +1
20 INPUT N,M
30DIM
Al(M,N),A2(M,N),A3(M,N),A4(M,N),A0(M,N)A0(M,N),A(M,N)
31 REM ֲ +
40 FOR 1=1 TO M
50 FOR J=1 TO N
60 PRINT "A0(, J)=
70 INPUT AO(I,J)
80 NEXT J
90 NEXT I
100 REM ֲ
110 FOR J=l TO N
120 Al(l,J)=A0(l,J)/A0(l,l)
130 NEXT J
140 FOR =2 TO M
150 FOR J=l TO N
160 A1(I,J)=AO(I,J)-A1(1,J> A0(U)
170 NEXT J
180 NEXT
190 REM ֲ
|
|
200 IF Al(2,2)-0 GOTO 661
210 FOR J=l TO N
220 A2(2,J)-A1(2,J)/A1(2,2)
230 NEXT J
240 FOR =1 TO M
250 FOR J=l TO N
260 IF 1=2 THEN =+1
270 A2(U)-A1(I,J)-A2(2,J)* A1(I,2)
280 NEXT J
290 NEXT
300 REM ֲ
310 IF A2(3,3)=0 GOTO 662
320 FOR J=l TO N
330 A3(3,J)=A2(3,J)/A2(3,3)
340 NEXT J
350 FOR =1 TO M
360 FOR J=l TO N
361 IF =3 THEN =+1
370 A3(I,J)=A2(I,J)-A3(3,J)* A2(I,3)
380 NEXT J
390 NEXT I
400 REM ֲ
410 IF A3(4,4)=0 GOTO 663
420 FOR J=l TO N
430 A4(4,J)=A3(4,J)/A3(4,4)
440 NEXT J
450 FOR 1=1 TO M-l
460 FOR J=l TO N
470 A4(I,J)=A3(I,J)-A4(4,J)* A3(I,4)
480 NEXT J
490 NEXT I
500 FOR =1 TO M
510 FOR J=l TO N
520 A0(I,J)=A4(I,J+M)
530 A(I,J)=A0(I,J)
531 PRINT A0(,J)=;A0(I,J)
540 NEXT J
550 NEXT I
560 FOR =1 TO M
570 FOR J=l TO N
590 REM ² A^-1 * A=l
600 A0(I,J)=0
610 FOR K=l TOM
620 0(,J)=0(,J)+(,)* A0(K,J)
640 NEXT
641 PRINT A0(,J)=;A0(I,J)
650 NEXT J
660 NEXT I
661 PRINT Al (2,2)=0
662 PRINT A2(3,3)=0
663 PRINT A3(4,4)=0
680 END