, . , , . , , . , ( ), ( ). , .
. :
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;
, , . .