.


:




:

































 

 

 

 


4.2




. 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

.....................

 

.





:


: 2016-11-22; !; : 317 |


:

:

80% - .
==> ...

1782 - | 1638 -


© 2015-2024 lektsii.org - -

: 0.025 .