新型计算机
T小朋友正在摆弄着他设计的“计算机”,他认为这台计算机原理很独特,因此利用它可以解决许多难题。
但是,有一个难题他却解决不了,是这台计算机的输入问题。新型计算机的输入也很独特,假设输入序列中有一些数字(都是自然数),计算机先读取第一个数字S1,然后顺序向后读入S1个数字。接着再读一个数字S2,顺序向后读入S2个数字……依此类推。不过只有计算机正好将输入序列中的数字读完,它才能正确处理数据,否则计算机就会进行自毁性操作!
T小朋友现在有一串输入序列。但可能不是合法的,也就是可能会对计算机造成破坏。于是他想对序列中的每一个数字做一些更改,加上一个数或者减去一个数,当然,仍然保持其为自然数。使得更改后的序列为一个新型计算机可以接受的合法序列。
不过T小朋友还希望更改的总代价最小,所谓总代价,就是对序列中每一个数操作的参数的绝对值之和。
写一个程序:
从文件中读入原始的输入序列;
计算将输入序列改变为合法序列需要的最小代价;
向输出文件打印结果。
数据范围:数列长度N≤106
输入格式:
第一行是一个数n,表示长度为n
接下来是n个数
输出格式:一行,表示最小的合法代价。
样例输入;
10
1 1 1 1 1 1 1 1 1 1
样例输出:0
===================================
方法1
DP可以过7个点...
时间复杂度O(n^2)
方法2.
BFS先扩展0步可走到的点
在扩展1步能走到的点
……………………
……………………
…………………………
最多扩展n次...时间复杂度O(n)
=======================
dp(70分)
------------------
var
n:longint;
a:array[1..1000000]of longint;
f:array[0..1000001]of longint;
procedure init;
begin
assign(input,'computer.in');
assign(output,'computer.out');
reset(input); rewrite(output);
end;
procedure terminate;
begin
close(input); close(output);
halt;
end;
procedure main;
var
i,j:longint;
t:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
fillchar(f,sizeof(f),$7);
f[1]:=0;
for i:=2 to n+1 do
for j:=i-1 downto 1 do
begin
t:=f[j]+abs(a[j]-i+j+1);
if t<f[i] then f[i]:=t;
end;
writeln(f[n+1]);
end;
begin
init;
main;
terminate;
end.
==========================
BFS(100分)
-----------------------------