vijos-p1063 2008.11.6

vijos-p1063 2008.11.6

背景 Background 

HNSDFZ的同学们为了庆祝春节，准备排练一场舞会。 

描述 Description  

表演者排成n排，构成一个向前的正三角形（在屏幕上,即向下）。而就每个人，他有可能正面朝前（小的向前正三角形）、或向后三角形（小的向后正三角形）。

然而这些人在服装上有明显区别——一部分穿冬季校服，其他的穿夏季校服。

现在给出每个人的着衣情况，请你求穿夏季校服的同学所构成的最大正三角形,输出所含人数。

输入格式 Input Format 

第一排为n。

接下来n排，第i排有2*i-1个有效字符（‘#’或‘-’，分别表示此同学穿冬季校服或穿夏季校服）。输入文件中出现空格，且空格只是为了保持整个三角形的形状。

输出格式 Output Format 

输出人数。

样例输入 Sample Input  

 5

#-##----#

 -----#-

  ---#-

   -#-

    -

 

output

9

program1:错误的dp

program p1063;
const maxn=100;
var 
      f:array[0..maxn+1,0..maxn+1]of longint;
      a:array[0..maxn+1,0..maxn+1]of boolean;
      n,i,j,max:longint;
procedure init;
var i,j,p:longint;x:string;
begin

    readln(n);fillchar(a,sizeof(a),false);
    for i:=1 to n do
      begin readln(x);p:=n-i+1;
           for j:=i to 2*p-2+i do
              if x[j]='-'  then a[i,j-i+1]:=true;
      end;

end;
procedure dp;
var i,j:longint;
begin
    fillchar(f,sizeof(f),0);max:=0;
    for j:=n*2-1 downto 1 do
       for i:=n-(j div 2) downto 1 do
        begin
          if (a[i,j]) then
            begin
                 f[i,j]:=1;
                 if (a[i+1,j])and(a[i,j+1])then f[i,j]:=f[i+1,j]+f[i,j+1]+f[i,j];
            end;
          if f[i,j]>max then max:=f[i,j];
        end;
       writeln(max);
end;
begin init;
    dp;

end.

Program 2:过9组，剩下的那组，我实在是调不出来了

program p1063;
const maxn=550;
var f1,f2:text;
      f:array[0..maxn+2,0..maxn+2]of longint;
      a:array[0..maxn+2]of string;
      b:array[1..3]of longint;
      m,n,i,j,max,max1:longint;flag:boolean;
procedure init;
var i,j,p:longint;x:string;
begin
     readln(n);fillchar(a,sizeof(a),false);
    for i:=1 to n do readln(a[i]);flag:=false;
end;
function min(x1,x2,x3:longint):longint;
var i,j,pp:longint;
begin
  pp:=100000000;
  if x1<pp then pp:=x1;
  if x2<pp then pp:=x2;
  if x3<pp then pp:=x3;
  min:=pp;


end;
   procedure dp;
var i,j,p:longint;
begin
    fillchar(f,sizeof(f),0);max:=0;
    m:=2*n;
    for i:=1 to n do
       for j:=i to m-i do if (a[i,j]='-') then begin f[i,j]:=1;flag:=true;end;
    for i:=2 to n do
       for j:=i to m-i do
         if (a[i,j]='-')and(f[i-1,j]>0)and(f[i-1,j-1]>0)and(f[i-1,j+1]>0)
              then begin
                     p:=min(f[i-1,j-1],f[i-1,j],f[i-1,j+1]);
                     f[i,j]:=p+(trunc(sqrt(p+1)))*2+1;
                     if (f[i,j]>max)then max:=f[i,j];
              end;
  if not(flag) then writeln(0)
   else if max=0 then writeln(1) else write(max);
  
end;
begin init;
    dp;

    end.