noip2001-統計單詞個數2008.11.5
心得：1.dp
前，可能要對資料進行處理 2.
拿到乙個題目，要看有沒有和以前做過的題目相似的地方。 3.
一定要靜態差錯，多查幾遍，又是乙個字母打錯，就掛了！
program1:算從i
到j有多少個單詞時，wa了
2組
program noip;
const fin='tjdcgs.in';fout='tjdcgs.out';
var a:array[1..6]of string;
b:array[1..6]of longint;
x,x1:string;
y,s,p,m,l,i,j,k,n:longint;
sum:array[1..200,1..200]of longint;
c:array[1..200]of longint;
f:array[0..200,0..40]of longint;
f1,f2:text;
procedure init;
begin
fillchar(sum,sizeof(sum),0);
fillchar(c,sizeof(c),0);
fillchar(f,sizeof(f),0);
readln(f1,p,m);l:=p*20;x:='';
for i:=1 to p do
begin readln(f1,x1);
x:=x+x1;
end;
readln(f1,s);
for i:=1 to s do
begin
readln(f1,a[i]);
b[i]:=length(a[i]);
end;
for i:=1 to s-1 do
for j:=i+1 to s do
if b[i]>b[j] then
begin
x1:=a[i];a[i]:=a[j];a[j]:=x1;
p:=b[i];b[i]:=b[j];b[j]:=p;
end;
end;
procedure clear;
var i,j:longint;xx:string;
begin xx:='*'+x;
for i:=1 to l do
begin xx:=copy(xx,2,length(xx)-1);
for j:=1 to s do
if pos(a[j],xx)=1 then
begin c[i]:=b[j];break;
end;
end;
for i:=1 to l do
for j:=i to l do
for k:=i to j do
if (c[k]+i-1<=j)and(c[k]<>0) then inc(sum[i,j]);
應為：if (c[k]+k-1<=j)and(c[k]<>0) then inc(sum[i,j]);
end;
procedure dp;
var i,j,k:longint;
begin
for j:=1 to m do
for i:=1 to l do
if i>=j then
for k:=i-1 downto j-1 do
if sum[k+1,i]+f[k,j-1]>f[i,j] then f[i,j]:=sum[k+1,i]+f[k,j-1];
writeln(f2,f[l,m]);
end;
begin
assign(f1,fin);reset(f1);
assign(f2,fout);rewrite(f2);
readln(f1,n);
for y:=1 to n do
begin
init;
clear;
dp;end;
close(f1);close(f2);
end.
program2：ac
program noip;
const fin='tjdcgs.in';fout='tjdcgs.out';
var a:array[1..6]of string;
b:array[1..6]of longint;
x,x1:string;
y,s,p,m,l,i,j,k,n:longint;
sum:array[1..200,1..200]of longint;
c:array[1..200]of longint;
f:array[0..200,0..40]of longint;
f1,f2:text;
procedure init;
begin
fillchar(sum,sizeof(sum),0);
fillchar(c,sizeof(c),0);
fillchar(f,sizeof(f),0);
readln(f1,p,m);l:=p*20;x:='';
for i:=1 to p do
begin readln(f1,x1);
x:=x+x1;
end;
readln(f1,s);
for i:=1 to s do
begin
readln(f1,a[i]);
b[i]:=length(a[i]);
end;
for i:=1 to s-1 do
for j:=i+1 to s do
if b[i]>b[j] then
begin
x1:=a[i];a[i]:=a[j];a[j]:=x1;
p:=b[i];b[i]:=b[j];b[j]:=p;
end;
end;
procedure clear;
var i,j,u:longint;xx:string;
begin xx:='*'+x;
for i:=1 to l do
begin xx:=copy(xx,2,length(xx)-1);
for j:=1 to s do
if pos(a[j],xx)=1 then
begin c[i]:=b[j];break;
end;
end;
for i:=1 to l do
for j:=1 to l do
for u:=i to j do
if (c[u]+u-1<=j)and(c[u]<>0) then inc(sum[i,j]);
end;
procedure dp;
var i,j,k,u,v:longint;
begin
for j:=1 to m do
for u:=j to l do
for v:=u to l do
if f[u-1,j-1]+sum[u,v]>f[v,j] then
f[v,j]:=f[u-1,j-1]+sum[u,v];
writeln(f2,f[l,m]);
end;
begin
assign(f1,fin);reset(f1);
assign(f2,fout);rewrite(f2);
readln(f1,n);
for y:=1 to n do
begin
init;
clear;
dp;end;
close(f1);close(f2);
end.
noip2001統計單詞個數
本題字串處理需要注意 單詞個數的計算 先算s i 表示以i開頭的單詞，若有則s i 1,否則為0.這要充分注意題目的要求 考試時很難想到。另外在算 i,j 中單詞的個數時，如果以i為開頭，需要判斷這個單詞結尾有沒有超過j，沒有才可計入。同樣需要注意有些狀態是達不到的，這時若不賦初值在動規時判斷，狀態...
NOIP2001 統計單詞個數
題三 統計單詞個數 30分 問題描述 給出乙個長度不超過200的由小寫英文本母組成的字母串 約定 該字串以每行20個字母的方式輸入，且保證每行一定為20個 要求將此字母串分成k份 1樣例 輸入 11 3 thisisabookyouareaoh4is aoksab輸出 說明 不必輸出 7 this ...
noip2001統計單詞個數
最近，迷戀上debug 1.首先暴力一遍num i j 即從i到j串裡包含多少個子串 注意首字母的使用 2.f i j 表示前i個數劃分j次，最多單詞個數 f i j max f i j f k j 1 num k 1 i 注意j,k範圍 include define re return defin...