. 1) . , . . ( ) 2) , .
, , , . , , .
X2 +1/X2 | [0,2; 2] | |
X3 - X2 6X | [-2;0] | |
cos(2x)/2 sin(x) +2 | [π/3;2π/3] | |
X+2 | [0;10] | |
3X4 -8X3 +6 X2 +2 | [0,1;2] | |
cos(2x)-2cos(x) | [-π/6;π/3] | |
5x -4X | [0;2] | |
X3 - X2 6X | [0; 3] | |
X4 -8X2 -9 | [-1;1] | |
(4x +4-x )/ln(4) | [-1;2] | |
2X2 +7|X-4| +5 | [-1;2] | |
X2 | [1;5] | |
X2 +|X-4| | [-3;3] | |
1/(X2 + X +2) | [-2;2] | |
2X3 +15X2 +36X -30 | [-4;-2,4] | |
X4 -6X3 +8 | [1;6] | |
[0,6] | ||
X3 -5X2 +3X | [1,5;5] | |
2X3 -3X2 | [-2;0,5] | |
log2 (X2 -2 X +5) | [0,2;2] | |
6X - X2 -6 | [0;6] | |
log3 ( 2 X +3- X2) | [0;2] | |
X4 -8X2 -9 | [-4;-0,5] | |
3X4 -8X3 +6 X2 +2 | [-2;0,1] | |
cos(2x)/2 sin(x) +2 | [-π/3;9π/10] | |
2X3 +15X2 +36X -30 | [-2,4;0] | |
X3 -5X2 +3X | [-1;1] | |
2X3 -3X2 | [0,5;3] | |
X4 -8X2 -9 | [0,2;3,5] | |
log2 (3- 4X - 4X2) | [-1,2;0] | |
0,5x -2x | [0;2] | |
8x -6*4x -3*2x | [0;3] | |
[0;2,5] | ||
[2,5;4] |
, . ( ), , ij , i=1, 2,...,m, j=1, 2,,n . , , . , .
, , , ; , .
|
|
, , , , , m£12 n£14, , , (m,n), m£12, n£14. , . , , , 1214 .
const
mMax=12; nMax=14;
type
// tM
tV=array[1..mMax] of Real;
//
tM=array[1..nMax] of tV;
( ).
, tV.
, , .
-
var
X:tM;
,
tM=array[1..mMax, 1..nMax] of Real;
tM=array[1..12, 1..14] of Real;
var
X:array[1.. mMax, 1..nMax] of Real;
X:array[1..12, 1..14] of Real;
, , , .
, , .
- . , .. . () . () () .
, (m,n), m£12, n£14, , :
WriteLn(' ');
ReadLn(M,N);
WriteLn(' ');
for I:=1 to M do //
begin
for J:=1 to N do //
Read(X[I,J]);
ReadLn; //
end;
WriteLn(' ');
for I:=1 to M do //
begin
for J:=1 to N do //
Write(X[I,J]:6:1, ' ');
WriteLn; //
|
|
end;
/ . , , .
. , , .
:
S:=0; Pr:=1;
for I:=1 to M do
for J:=1 to N do
begin
S:=S+A[I,J];
Pr:=Pr*A[I,J];
end;
WriteLn('s=',S:8:2, ' pr=',Pr:8:2);
S:=0; Pr:=1; :
for I:=1 to M do
begin
S:=0; Pr:=1;
for J:=1 to N do
begin
S:=S+A[I,J];
Pr:=Pr*A[I,J];
end;
WriteLn('s=',S:8:2, ' pr=',Pr:8:2);
end;
, .
, :
Amax:=A[1,1]; Imax:=1; Jmax:=1;
Amin:=A[1,1]; Imin:=1; Jmin:=1;
for I:=1 to M do
for J:=1 to N do
if A[I,J]>Amax then
begin
Amax:=A[I,J];
Imax:=I;
Jmax:=J;
end
else if A[I,J]<Amin then
begin
Amin:=A[I,J];
Imin:=I;
Jmin:=J;
end;
WriteLn('amax=',Amax:8:2, ' imax=',Imax:2
,' jmax=',Jmax:2, ' amin=',Amin:8:2
,' imin=',Imin:2, ' jmin=',Jmin:2,);
(Imax:=1; Jmax:=1; Imin:=1; Jmin:=1;). , A[1,1] ().
() , , . , , , .
max:=A[1,1]; Imax:=1; Jmax:=1;
min:=A[1,1]; Imin:=1; Jmin:=1;
for I:=2 to M do
for J:=1 to N do
.....................
.