POJ2329 Nearest number - 2-Dp 역겨운 문제
6181 단어 number
세심함과 인내심을 극도로 고찰했지만 데이터는 비교적 약했다.
코드:
program poj2329;
const
maxn=205;
var
i,j,m,p,q,n :longint;
map,f,dp :array[0..maxn,0..maxn]of longint;
rec,g :array[0..maxn,0..maxn]of record x,y:longint;end;
function min(i,j:longint):longint;
begin
if i<j then exit(i);exit(j);
end;
begin
readln(n);
for i:=1 to n do for j:=1 to n do read(map[i,j]);
fillchar(dp,sizeof(dp),127);
for i:=1 to n do
for j:=1 to n do
if map[i,j]<>0 then
begin
dp[i,j]:=0;
rec[i,j].x:=i;
rec[i,j].y:=j;
end else
begin
dp[i,j]:=min(dp[i,j-1],dp[i-1,j])+1;
if dp[i,j]<maxint then
begin
if dp[i,j-1]=dp[i-1,j] then
begin
if (rec[i,j-1].x=rec[i-1,j].x)and(rec[i,j-1].y=rec[i-1,j].y) then
rec[i,j]:=rec[i,j-1] else
begin
rec[i,j].x:=i;
rec[i,j].y:=j;
end;
end else if dp[i,j-1]<dp[i-1,j] then
begin
if (map[i,j-1]=0)and(rec[i,j-1].x=i)and(rec[i,j-1].y=j-1) then
begin
rec[i,j].x:=i;rec[i,j].y:=j;
end else rec[i,j]:=rec[i,j-1];
end else
begin
if (map[i-1,j]=0)and(rec[i-1,j].x=i-1)and(rec[i-1,j].y=j) then
begin
rec[i,j].x:=i;rec[i,j].y:=j;
end else rec[i,j]:=rec[i-1,j];
end;
end;
end;
fillchar(f,sizeof(f),127);
for i:=1 to n do
for j:=1 to n do
begin
g[i,j].x:=0;g[i,j].y:=0;
end;
for i:=1 to n do
for j:=n downto 1 do
if map[i,j]<>0 then
begin
f[i,j]:=0;
g[i,j].x:=i;
g[i,j].y:=j;
end else
begin
f[i,j]:=min(f[i,j+1],f[i-1,j])+1;
if f[i,j]<maxint then
begin
if f[i,j+1]=f[i-1,j] then
begin
if (g[i,j+1].x=g[i-1,j].x)and(g[i,j+1].y=g[i-1,j].y) then
g[i,j]:=g[i,j+1] else
begin
g[i,j].x:=i;
g[i,j].y:=j;
end;
end else if f[i,j+1]<f[i-1,j] then
begin
if (map[i,j+1]=0)and(g[i,j+1].x=i)and(g[i,j+1].y=j+1) then
begin
g[i,j].x:=i;g[i,j].y:=j;
end else g[i,j]:=g[i,j+1];
end else
begin
if (map[i-1,j]=0)and(g[i-1,j].x=i-1)and(g[i-1,j].y=j) then
begin
g[i,j].x:=i;g[i,j].y:=j;
end else g[i,j]:=g[i-1,j];
end;
end;
if f[i,j]<dp[i,j] then
begin
dp[i,j]:=f[i,j];
rec[i,j]:=g[i,j];
end else if f[i,j]=dp[i,j] then
begin
if (rec[i,j].x=0)and(rec[i,j].y=0)then rec[i,j]:=g[i,j];
if ((g[i,j].x<>rec[i,j].x)or(g[i,j].y<>rec[i,j].y))and((g[i,j].x<>0)or(g[i,j].y<>0)) then
begin
rec[i,j].x:=i;rec[i,j].y:=j;
end;
end;
end;
fillchar(f,sizeof(f),127);
for i:=1 to n do
for j:=1 to n do
begin
g[i,j].x:=0;g[i,j].y:=0;
end;
for i:=n downto 1 do
for j:=n downto 1 do
if map[i,j]<>0 then
begin
f[i,j]:=0;
g[i,j].x:=i;
g[i,j].y:=j;
end else
begin
f[i,j]:=min(f[i,j+1],f[i+1,j])+1;
if f[i,j]<maxint then
begin
if f[i,j+1]=f[i+1,j] then
begin
if (g[i,j+1].x=g[i+1,j].x)and(g[i,j+1].y=g[i+1,j].y) then
g[i,j]:=g[i,j+1] else
begin
g[i,j].x:=i;
g[i,j].y:=j;
end;
end else if f[i,j+1]<f[i+1,j] then
begin
if (map[i,j+1]=0)and(g[i,j+1].x=i)and(g[i,j+1].y=j+1) then
begin
g[i,j].x:=i;g[i,j].y:=j;
end else g[i,j]:=g[i,j+1];
end else
begin
if (map[i+1,j]=0)and(g[i+1,j].x=i+1)and(g[i+1,j].y=j) then
begin
g[i,j].x:=i;g[i,j].y:=j;
end else g[i,j]:=g[i+1,j];
end;
end;
if f[i,j]<dp[i,j] then
begin
dp[i,j]:=f[i,j];
rec[i,j]:=g[i,j];
end else if f[i,j]=dp[i,j] then
begin
if (rec[i,j].x=0)and(rec[i,j].y=0)then rec[i,j]:=g[i,j];
if ((g[i,j].x<>rec[i,j].x)or(g[i,j].y<>rec[i,j].y))and((g[i,j].x<>0)or(g[i,j].y<>0)) then
begin
rec[i,j].x:=i;rec[i,j].y:=j;
end;
end;
end;
for i:=1 to n do
for j:=1 to n do
begin
g[i,j].x:=0;g[i,j].y:=0;
end;
fillchar(f,sizeof(f),127);
for i:=n downto 1 do
for j:=1 to n do
if map[i,j]<>0 then
begin
f[i,j]:=0;
g[i,j].x:=i;
g[i,j].y:=j;
end else
begin
f[i,j]:=min(f[i,j-1],f[i+1,j])+1;
if f[i,j]<maxint then
begin
if f[i,j-1]=f[i+1,j] then
begin
if (g[i,j-1].x=g[i+1,j].x)and(g[i,j-1].y=g[i+1,j].y) then
g[i,j]:=g[i,j-1] else
begin
g[i,j].x:=i;
g[i,j].y:=j;
end;
end else if f[i,j-1]<f[i+1,j] then
begin
if (map[i,j-1]=0)and(g[i,j-1].x=i)and(g[i,j-1].y=j-1) then
begin
g[i,j].x:=i;g[i,j].y:=j;
end else g[i,j]:=g[i,j-1];
end else
begin
if (map[i+1,j]=0)and(g[i+1,j].x=i+1)and(g[i+1,j].y=j) then
begin
g[i,j].x:=i;g[i,j].y:=j;
end else g[i,j]:=g[i+1,j];
end;
end;
if f[i,j]<dp[i,j] then
begin
dp[i,j]:=f[i,j];
rec[i,j]:=g[i,j];
end else if f[i,j]=dp[i,j] then
begin
if (rec[i,j].x=0)and(rec[i,j].y=0)then rec[i,j]:=g[i,j];
if ((g[i,j].x<>rec[i,j].x)or(g[i,j].y<>rec[i,j].y))and((g[i,j].x<>0)or(g[i,j].y<>0)) then
begin
rec[i,j].x:=i;rec[i,j].y:=j;
end;
end;
end;
for i:=1 to n do
begin
for j:=1 to n-1 do
write(map[rec[i,j].x,rec[i,j].y],' ');
writeln(map[rec[i,n].x,rec[i,n].y]);
end;
end.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
숫자와 문자숫자의 기초적인 개념 자바 스크립트에서 숫자라는 개념은 다른 언어와는 다르게 int double float long short 이렇게 숫자의 타입을 엄격하게 세분화 하지 않고 크게 number로 사용한다. 위의 코드...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
