Begin
SignRow:=false; Exit
End
Else
Begin
Inc(i); Dec(j);
End;
CondHigh:=a[k,1]<a[k,2]; { }
If CondHigh then { }
For j:=2 to (n div 2)-1 do { }
If a[k,j]>a[k,j+1] then { }
Begin { }
SignRow:=false; Exit
End;
If not CondHigh then { - }
For j:=2 to (n div 2)-1 do { }
If a[k,j]<a[k,j+1] then
Begin
SignRow:=false; Exit
End;
End { SignRow };
{ --------------------------------- }
Begin
m, n, A
Cond:=false;
For i:=1 to m do
IfSignRow(i) then
Begin
Cond:=true; k:=i; Goto 10
End;
10:
If Cond then
Writeln(' ',k)
Else
Writeln(' ');
End.
22.
, . .
, .
, ,
5.8 -4.4 10.0 8.7 14.6 11.9
. , ,
10.0 8.7 14.6 11.9 5.8 -4.4
C - .
Task222 , k, . k > 0 ( ), , k ( k 1). , . k < 0 .
Program Task222;
Const Nmax = 30;
Type Matrix = array [1..Nmax,1..Nmax] of real;
Var i,j,n,
jmax: byte; { . }
k: shortint; { Amax }
{ a[i,i] }
Amax, { }
Buf, { }
Trace: real; { }
A: Matrix; { }
{ --------------------------------------------------- }
Procedure TraceMatrix;
{ }
Var i: byte;
Begin
Trace:=0;
For i:=1 to n do
Trace:=Trace+a[i,i];
End { TraceMatrix };
{ --------------------------------------------------- }
Begin
n, A
TraceMatrix;
Writeln(' Trace = ',Trace:8:2);
|
|
For i:=1 to n do
Begin
Amax:=a[i,1]; jmax:=1; { }
For j:=2 to n do { }
If a[i,j]>Amax then { i- }
Begin
Amax:=a[i,j]; jmax:=j
End;
k:=i-jmax;
If k>0 then
While k>0 do { }
Begin { }
Buf:=a[i,n];
For j:=n downto 2 do
a[i,j]:=a[i,j-1];
a[i,1]:=Buf; Dec(k);
End
Else
If k<0 then
While k<0 do { }
Begin { }
Buf:=a[i,1];
For j:=1 to n-1 do
a[i,j]:=a[i,j+1];
a[i,n]:=Buf; Inc(k);
End;
End;
n, A
TraceMatrix;
Writeln(' Trace = ',Trace:8:2);
End.
12
: .
: , , . , .
1. , . , .
2. , c ( ) .
3. . .
4. .
5. , .
6. . ( , ). .
7. - () , , .
8. , .
9. . , , , . , , , , .
10. . , , , . , , .
11. , .
|
|
12. , .
13. , , , .
14. , , , , . . .
15. , - , .
16. , .
17. , , . , .
6 ´ 8 :
1 2 3 4
5 6 7 8
9 10 11 12
18. , , . .
19. , ( , ).
20. , , .
21. , , .
22. . , , , .
23. , , , .
. - , , 4 .
24. , , ( ).
25. . , . .
26. , . , .
27. , , , , . .
28. 90 .
29. , , ( ).
30. , , - - , . ( ) ( , -1,..., , 1, 2,..., ) , , .
|
|
31. , . , . , .
32. 0, 1,..., 9. , (W - O), (N - S) (SW - NO NW - SO), . N, S, W, O , . , .
33. , , , , .
34. , , , , , , .
35. . .
.
36. , . . .
37. , , NW - SO. : .
38. 0 1, 1. , , , . . , .