石子归并

来源：互联网发布：软件外包公司是什么编辑：程序博客网时间：2024/05/02 14:20

1048 石子归并
时间限制: 1 s
空间限制: 128000 KB
题目等级 : 黄金 Gold
题目描述 Description
有n堆石子排成一列，每堆石子有一个重量w[i], 每次合并可以合并相邻的两堆石子，一次合并的代价为两堆石子的重量和w[i]+w[i+1]。问安排怎样的合并顺序，能够使得总合并代价达到最小。

输入描述 Input Description
第一行一个整数n（n<=100）

第二行n个整数w1,w2...wn (wi <= 100)

输出描述 Output Description
一个整数表示最小合并代价

样例输入 Sample Input
4

4 1 1 4

样例输出 Sample Output
18

var  w:array[0..105]of longint;  f,sum:array[0..105,0..105]of longint;  i,n,j,x,y,k:longint;function min(x,y:longint):longint;  begin    if x>y      then min:=y      else min:=x  end;begin  readln(n);  for i:=1 to n do    read(w[i]);  fillchar(sum,sizeof(sum),0);  fillchar(f,sizeof(f),char(-1));  for i:=1 to n do    for j:=1 to n do      for k:=i to j do        inc(sum[i,j],w[k]);  for i:=n-1 downto 1 do    for j:=i+1 to n do      begin        f[i,j]:=maxlongint;        for k:=i to j do          f[i,j]:=min(f[i,j],f[i,k]+f[k+1,j]+sum[i,j])      end;  writeln(f[1,n]);end.

0 0