1067【动态规划基础】最长公共子序列1068【动态规划基础】合并沙子(IOI1995).docVIP

【动态规划基础】最长公共子序列 Time Limit:10000MS? Memory Limit:65536KTotal Submit:46 Accepted:27 Description 　　输入2个字符串A和B，要求找出A和B共同的最长子序列，可以不连续，但顺序不能起颠倒。例如：A＝‘abdcef’ , B=‘jakfdaca’, 此时存在下列子序列：‘adc’,长度为3，在A和B中都存在，且顺序相同，所以是符合要求的子序列。 [要求]从文件substr.in中读入两个字符串A和B（文件中有二行，第一行为字符串A，第二行为字符串B，字符串的最大长度不超过200），找出A和B中最长公共子序列，并输出最长公共子序列的长度，结果输出到substr.out。 Input 　　文件中有二行，第一行为字符串A，第二行为字符串B，字符串的最大长度不超过200。 Output 　　输出最长公共子序列的长度。 Sample Input abdcef jakfdaca Sample Output 3 Source var i,j,n:longint; s,s2:string; a:array[0..200,0..200] of longint; begin readln(s); readln(s2); for i:=1 to length(s) do for j:=1 to length(s2) do if s[i]=s2[j] then a[i,j]:=a[i-1,j-1]+1 else if a[i-1,j]a[i,j-1] then a[i,j]:=a[i-1,j] else a[i,j]:=a[i,j-1]; writeln(a[length(s),length(s2)]); end. 【动态规划基础】合并沙子（IOI1995） Time Limit:10000MS? Memory Limit:65536KTotal Submit:67 Accepted:31 Description 　　设有N沙子排成一排，其编号为1，2，……，N（N小于500），每堆子有一定的数量，用a[k]表示第K堆沙子的数量值，现在要将N堆沙子归并成为一堆，归并的过程为每次只能将相邻的两堆沙子堆成一堆，合并后的这堆沙子的代价为这两堆沙子的数值和，这样经过N-1次归并之后，最后成为一堆。不同的归并方案的总代价值是不同的。现给出N堆沙子的数量后，找出一种合理的归并方法，使总的归并代价为最小。 Input 　　有 n+1 行，第一行为n的值，从第2行开始，为n个正整数，表示各堆沙子的数量值。 Output 　　只有一行，表示最小的总代价，结果保证小于2^31。 Sample Input 10 { n 值 } 12 { 以下，每行一个数值，共n行 } 3 13 7 8 23 14 6 9 34 Sample Output 398 Source var i,j,k,n,min:longint; a:array[1..500] of longint; b,c:array[0..500,0..500] of longint; begin readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do for j:=i to n do b[i,j]:=b[i-1,j-1]+a[j]; for i:=2 to n do c[2,i]:=b[2,i]; for i:=3 to n do for j:=i to n do begin min:=maxlongint; for k:=1 to i-1 do if c[k,j-i+k]+c[i-k,j]min then min:=c[k,j-i+k]+c[i-k,j]; c[i,j]:=min+b[i,j]; end; writeln(c[n,n]); end.