见《数学与程序设计》P255
program poj3440;
var
p,q,m,n,i,j,k:longint;
squ,s,c,t:extended;
begin
read(p);
for q:=1 to p do
begin
writeln('Case ',q,':');
read(n,m,t,c);
c:=c/2;
squ:=n*t*m*t;
s:=(t-c)*(t-c)*4+(t-2*c)*(t-c)*2*(n+m-4)+(t-2*c)*(t-2*c)*(n-2)*(m-2);
writeln('Probability of covering 1 tile = ',s/squ*100:0:4,'%');
s:=(t-2*c)*(2*c)*((n-1)*(m-2)+(m-1)*(n-2))+(t-c)*(2*c)*2*(n+m-2);
writeln('Probability of covering 2 tiles =......
阅读全文