新型计算机

 

新型计算机

 

T小朋友正在摆弄着他设计的“计算机”，他认为这台计算机原理很独特，因此利用它可以解决许多难题。

但是，有一个难题他却解决不了，是这台计算机的输入问题。新型计算机的输入也很独特，假设输入序列中有一些数字（都是自然数），计算机先读取第一个数字S₁，然后顺序向后读入S₁个数字。接着再读一个数字S₂，顺序向后读入S₂个数字……依此类推。不过只有计算机正好将输入序列中的数字读完，它才能正确处理数据，否则计算机就会进行自毁性操作！

T小朋友现在有一串输入序列。但可能不是合法的，也就是可能会对计算机造成破坏。于是他想对序列中的每一个数字做一些更改，加上一个数或者减去一个数，当然，仍然保持其为自然数。使得更改后的序列为一个新型计算机可以接受的合法序列。

不过T小朋友还希望更改的总代价最小，所谓总代价，就是对序列中每一个数操作的参数的绝对值之和。

写一个程序：

       从文件中读入原始的输入序列；

       计算将输入序列改变为合法序列需要的最小代价；

       向输出文件打印结果。

数据范围：数列长度N≤10⁶     

输入格式：

        第一行是一个数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分)

-----------------------------