呼啦啦呼啦啦

哟哟哟噗噗噗~~

新型计算机

 

新型计算机

 

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分)

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

 

阅读更多
文章标签: output input 扩展
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭