1) 4×4 , .
. matrix, . stroka, i 4- . , matrix i . . ' , i, j , r stroka k- integer . , ' , , matrix. , , .
, . - , write, writeln.
˳ :
Program lab_8;
uses crt;
type
stroka=array [ 1.. 4 ] of integer;
matrix=array [ 1.. 4 ] of stroka;
var
a: matrix; { }
r: stroka; {i }
i, j, k: integer;
begin { }
for i: =1 to 4 do
for j: =1 to 4 do read (a [ i, j ]); { }
writeln (' : ');
for i:=1 to 4 do
begin
for j: =1 to 4 do write (a [ i, j ]: 4);
writeln
end; { }
k: =3;
for i: =1 to 2 do
begin r: =a [ i+k ];
a [ i+k ]: =a [ i ];
a [ i ]: =r;
k: =1
end;
{ }
writeln;
writeln (': ');
for i: =1 to 4 do
begin
for j: =1 to 4 do write (a [ i, j ]: 4);
writeln; end; end.
:
:
1 3 6 8
0 5 6 3
4 5 7 8
2 3 4 4
:
2 3 4 4
4 5 7 8
0 5 6 3
1 3 6 8
-
2) 5×3 .
. matrix , , , . . , . max , l k (). j i.
˳ :
|
|
|
Program lab_8_2; uses crt;
type
matrix=array [ 1.. 5, 1.. 3 ] of real;
var a: matrix; { }
i, j: integer; { }
max: real; { }
l, k: integer; {i }
begin
{ }
for i: =1 to 5 do
for j: =1 to 3 do read (a [ i, j ]);
{ }
writeln (' : ');
for i: =1 to 5 do
begin
for j:=1 to 3 do write(a[i,j]: 8: 3);
writeln; end;
{ }
max: =a [ 1, 1 ]; l: =1; k: =1;
for i: =1 to 5 do
for j: =1 to 3 do
if a[i,j] >max then begin max:=a[i,j];
l: =i; k: =j
end;
{ : }
writeln;
writeln (' i', max:8:3);
writeln(' ',l,',', k,' '); end.
:
:
2,000 5,800 34,900
0,450 3,560 5,760
2,120 2,320 3,610
0,080 4,710 9,930
0,680 0,560 7,290
i 9,930 4 , 3 .
-
3) 3- .
˳ :
Program MULT; { }
Const n=3; { }
Type Matr=array[1..n,1..n] of real; { }
{ }
const A: Matr=((1.1,1.1,1.1),(2.1,2.1,2.1),(3.1,3.1,3.1));
B: Matr=((4.1,4.1,4.1),(3.1,3.1,3.1),(4.1,4.1,4.1));
{ , }
var C: Matr; s: real; i,j: integer;
begin
for i:=1 to n do
for j:=1 to n do begin
S:=0;
for k:=1 to n do
S:=S+A[i, k]*B[k, j];
C[i, j]:=S;
end;
writeln (=);
for i:=1 to n do begin
for j:=1 to n do
write (C[i, j]:4:1); writeln;
end; readln; end.
1. , ?
2. ? , ?
3. ?
4. 䳿 ? ?
5. < i> ?
____________ . .
