" " "
:
4
| x | . | |
| 0,5 | ||
| 0,5 | ||
| 1,5 | ||
| 0,5 | ||
| . |
:
: 165
: 167
:
: _____
2016
4
.
1) Y[1:n, 1:m] A[1:k]. Y , A. .
2) .
. , 1623-> 3162.
1
:
k-, n-, m-, a[1:k]-, y[1:n,1:m]
:
c[1:t] - , y[1:n, 1:m] ;
: kN, nN, mN, k<=100, k<=100, k<=100.
:
2
:
k-, n-, m-, a[1:k]-, y[1:n,1:m] .
:
c[1:t] - , y[1:n, 1:m] ;
: kN, nN, mN, k<=100, k<=100, k<=100.
:
1
1. max = -maxint-1;
min = maxint;
min1 = 0;
max1 = 0;
l = 0;
i = 1,n, j = 1,m
max = y[i, j];
max1 = j, max < y[i, j];
min = y[i, j];
min1 = j, max < y[i, j];
l = l + 1;
d[l] = min1;
l = l + 1;
d[l] = max1;
i = 2;
l1 = 0;
l2 = 0;
l1 = 1, j = 1,k, y[i div 2, d[i - 1]] = b[j];
l1 = 1, j = 1,k, y[i div 2, d[i]] = b[j];
t = t + 1;
c[t] = y[i div 2, d[i - 1]];
t = t + 1;
c[t] = y[i div 2, d[i]];
y[i div 2, d[i]]:= 0;
y[i div 2, d[i - 1]]:= 0, l1 = 0, l2 = 0;
i = i + 2, i <= l;
2
2. x = 0;
i = 1,n
f = a[i];
f = f div 10;
x = x + 1, f div 10 > 0
d[i] = (a[i] mod 10) * power(10,x) + a[i] div 10;
x = 0;
e [3201]" strokecolor="black [3200]" strokeweight="2pt">
1 4 1 <n> <m> :
<y[1,1]><y[1,2]>.<y[1,m]> <y[2,1]><y[2,2]>.<y[2,m]>
<y[n,1]><y[n,2]>.<y[n,m]>
a:<k>
:
<a[1]><a[2]>.<a[k]>
|
|
|
| : <<y[1,1]>><<y[1,2]>>.<<y[1,m]>> <<y[1,1]>><<y[1,2]>>.<<y[1,m]>> <<y[1,1]>><<y[1,2]>>.<<y[1,m]>> : <<a[1]>><<a[2]>>.<<y[t]>> |
2
| 4 2 a: <n> a: <a[1]><a[2]>.<a[k]> : <<d[1]>><<d[2]>>.<<d[t]>> |
1
4
(n)
n <
(<< >>)
n > 0
(m)
m <
(<< >>)
m > 0
(y[1:n, 1:n])
i:= 1 n
max:= -maxint-1;
min:= maxint;
min1:= 0;
max1:= 0;
j:= 1 m
max < y[i, j]
max:= y[i, j];
max1:= j;
min > y[i, j]
min:= y[i, j];
min1:= j;
l:= l + 1;
d[l]:= min1;
l:= l + 1;
d[l]:= max1;
(k)
k < 0
(<< >>)
k > 0
(a[1:k])
i:= 2;
- i <= l
l1:= 0;
l2:= 0;
j:= 1 k
y[i div 2, d[i - 1]] = b[j]
l1:= 1;
y[i div 2, d[i - 1]] = b[j]
l1:= 1;
(l1 = 0) (l2 = 0)
t:= t + 1;
c[t]:= y[i div 2, d[i - 1]];
t:= t + 1;
c[t]:= y[i div 2, d[i]];
y[i div 2, d[i]]:= 0;
y[i div 2, d[i - 1]]:= 0;
i:= i + 2;
t = 0
(<< >>)
(<<y[i, j]>>)
(<<c[i]>>)
1
Var
y: array [1..100,1..100] of integer;
c, d, b: array [1..100] of integer;
n, m, t, i, j, l, l1, l2, k, max, max1, min, min1: integer;
Begin
writeln(' 4');
writeln(' 1');
writeln(' n m:');
l:= 0;
read(n,m);
writeln(' :');
for i:= 1 to n do
for j:= 1 to m do
read(y[i, j]);
for i:= 1 to n do
Begin
max:= -maxint-1;
min:= maxint;
min1:= 0;
max1:= 0;
for j:= 1 to m do
Begin
Ifmax < y[i, j] then
Begin
max:= y[i, j];
max1:= j;
end;
Ifmin > y[i, j] then
Begin
min:= y[i, j];
min1:= j;
end;
end;
l:= l + 1;
d[l]:= min1;
l:= l + 1;
d[l]:= max1;
end;
writeln(' a');
read(k);
writeln(' ');
for i:= 1 to k do
read(b[i]);
i:= 2;
while i <= l do
Begin
l1:= 0;
l2:= 0;
for j:= 1 to k do
Begin
if y[i div 2, d[i - 1]] = b[j] then
l1:= 1;
if y[i div 2, d[i]] = b[j] then
l2:= 1;
end;
if (l1 = 0) and (l2 = 0) then
Begin
t:= t + 1;
c[t]:= y[i div 2, d[i - 1]];
t:= t + 1;
c[t]:= y[i div 2, d[i]];
y[i div 2, d[i]]:= 0;
|
|
|
y[i div 2, d[i - 1]]:= 0;
end;
i:= i + 2;
end;
if t = 0 then writeln(' ')
Else
Begin
writeln(' :');
for i:= 1 to n do
Begin
for j:= 1 to m do
write(y[i, j], ' ');
writeln;
end;
writeln(' :');
for i:= 1 to t do
write(c[i], ' ');
end;
end.
2
Var
r: array [1..100] of real;
a: array [1..100] of integer;
d: array [1..100] of real;
n, i,j,k, f, x: integer;
Begin
writeln(' 4');
writeln(' 2');
writeln(' :');
Repeat
read(n);
Ifn < 0 then
writeln(' ');
until n > 0;
writeln(' :');
for i:= 1 to n do
Begin
Repeat
read(r[i]);
if (r[i] < 0) or (r[i] <> round(r[i])) or (r[i] <= 9) then
writeln(' 9');
until (r[i] > 0) and (r[i] = round(r[i])) and (r[i] > 9);
a[i]:= round(r[i]);
end;
x:= 0;
for i:= 1 to n do
Begin
f:= a[i];
Whilef div10 > 0 do
Begin
f:= f div 10;
x:= x + 1;
end;
d[i]:= (a[i] mod 10) * power(10,x) + a[i] div 10;
x:= 0;
end;
for i:= 1 to n do
write(d[i], ' ');
end.
2
4
(n)
n <
(<< >>)
n > 0
(a[1:n])
x:= 0
i:= 1 n
f:= a[i];
- f div 10 > 0
f:= f div 10;
x:= x + 1;
d[i]:= (a[i] mod 10) * power(10,x) + a[i] div 10;
x:= 0;
(<<d[i]>>)
