.


:




:

































 

 

 

 





, . , , . , , . , ( ), ( ). , .

. :

 

for I:=1 to N do //

begin

......

for J:=1 to M do //

begin

......

end; //

......

for K:=1 to L do //

begin

......

end; //

......

end; //

 

 

for I:=1 to N do

for J:=1 to M do

for K:=1 to L do

A[I,J,K]:=I*J*K;

 

.

( ).

 

for I:=1 to N do //

begin

......

for J:=1 to M do //

begin

......

for K:=1 to L do //

begin

......

end; //

......

end; //

......

end; //

 

, , () . . . , M , N , , M*N , .. , . , M=N=100, 10000 :

 

// 1 100

for I:=1 to 100 do

for J:=1 to 100 do

begin

K:=I*J; // 10000

Write(K:6);

end;

 

. , . . , , , , , .

. . , :

1 2

S:=0; S:=0;

for I:=1 to M do for J:=1 to N do

for J:=1 to N do for I:=1 to M do

S:=S+A[I,J]; S:=S+A[I,J];

. , , .

1 () 2 ()

for I:=1 to M do for J:=1 to N do

begin begin

S:=0; S:=0;

for J:=1 to N do for I:=1 to M do

S:=S+A[I,J]; S:=S+A[I,J];

WriteLn(S:7:2); WriteLn(S:7:2);

end; end;

, , . .





:


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


:

:

! . .
==> ...

1664 - | 1453 -


© 2015-2024 lektsii.org - -

: 0.011 .