Cho số N nguyên dương. Hãy xây dựng công thức để tính các phần tử của bảng kích thước N*N, dựa theo quy luật sau:
N=5
9 7 5 3 1
7 5 3 1 2
5 3 1 2 4
3 1 2 4 6
1 2 4 6 8
N=6
11 9 7 5 3 1
9 7 5 3 1 2
7 5 3 1 2 4
5 3 1 2 4 6
3 1 2 4 6 8
1 2 4 6 8 10
Uses crt;
Trả lờiXóaVar n,i,j,d,o:longint;
f:array[1..100,1..100] of longint;
Begin
readln(n);
o:=n*2-1;
for i:=1 to n do
Begin
d:=o;
For j:=1 to n do
Begin
f[i,j]:=d;
d:=d-2;
If d<0 then break;
end;
o:=o-2;
end;
For i:=1 to n do
For j:=1 to n do
If f[i,j]=0 then Begin f[i,j]:=2; break; end;
For i:=1 to n do
For j:=1 to n do
If f[i,j]=0 then f[i,j]:=f[i,j-1]+2;
for i:=1 to n do
Begin
For j:=1 to n do
Write(f[i,j]:4);
writeln;
end;
readln;
end.