{$N+}
program Ball;
 var N,M:byte;
     Nail:array [1..50,1..50] of byte;
     Poss:array [0..50,0..50] of comp;

 procedure init;
  var i,j:byte;
      c:char;
 begin
  readln(N,M);
  for i:=1 to N do
   for j:=1 to i do
    begin
     repeat
      read(c);
      until c in ['*','.'];
     if c='*' then Nail[i,j]:=1
              else Nail[i,j]:=0;
    end;
 end;

 procedure main;
  var i,j:byte;
  begin
   fillchar(Poss,sizeof(Poss),0);
   Poss[0,0]:=1;
   for i:=1 to N do
    Poss[0,0]:=Poss[0,0]*2;
   for i:=0 to N-1 do
    for j:=0 to i do
     if Nail[i+1,j+1]=0 then Poss[i+2,j+1]:=Poss[i+2,j+1]+Poss[i,j]
			else begin
			      Poss[i+1,j]:=Poss[i+1,j]+Poss[i,j]/2;
			      Poss[i+1,j+1]:=Poss[i+1,j+1]+Poss[i,j]/2;
			     end;
  end;

 procedure outit;
  var a,b:comp;
  begin;
   a:=Poss[N,M];
   if a=0 then writeln('0/1')
	  else begin
		b:=a/2;
		while b*2=a do
		 begin
		  a:=b; b:=a/2;
		  Poss[0,0]:=Poss[0,0]/2;
		 end;
		writeln(a:0:0,'/',Poss[0,0]:0:0);
	       end;
  end;

 begin
  init;
  main;
  outit;
 end.

• Help (0) My_loves 2005-08-22 14:57:52
  • sorry,看 pascal很吃力，而且没有注释的 (0) sunmoonstar_love 2005-08-22 14:59:24
  • 或者给数据吧！ (7) My_loves 2005-08-22 15:17:32
    • ..... (11) sunmoonstar_love 2005-08-22 15:18:27
  • 谁有数据？发来看看 (0) My_loves 2005-08-22 15:20:55
• 抄的吧?-_-... (1218) Lucifer 2005-09-29 03:06:11
• Re:现在看pascal跟甲骨文似的... (1218) mixter 2005-09-29 11:07:07
  • haha,,同感 (0) Essence_me 2005-09-29 12:49:12