題目描述

在觀看完戰馬檢閱之后，來自大草原的兩兄弟決心成為超級“馬農”，專門飼養戰馬。兄弟兩回到草原，將可以養馬的區域，分為 N*N 的單位面積的正方形， 并實地進行考察，歸納出了每個單位面積可以養馬所獲得的收益。接下來就要開始規劃他們各自的馬場了。首先，兩人的馬場都必須是矩形區域。同時，為了方便兩人互相照應，也為了防止馬匹互相走散，規定兩個馬場的矩形區域相鄰，且只有一個交點。最后，互不認輸的兩人希望兩個馬場的收益相當，這樣才不會影響他們兄弟的感情。現在，兄弟兩找到你這位設計師，希望你給他們設計馬場，問共有多少種設計方案。

輸入

第一行一個整數 N，表示整個草原的大小為 N*N。
接下來 N 行，每行 N 個整數 A(i,j)，表示第 i 行第 j 列的單位草地的收成。
（注意：收益可能是負數，養馬也不是包賺的，馬匹也可能出現生病死亡等意外。）

輸出

輸出符合兩人要求的草原分配方案數。

樣例輸入

3
1 2 3
4 5 6
7 8 9

樣例輸出

2

【樣例解釋】

數據范圍限制

【數據范圍】
40%的數據， N<=10。
100%的數據， N<=50, -1000< A(i,j)<1000。

程序：

var a,s:array[0..100,0..100] of longint; b:array[-2500000..2500000] of longint; c:array[1..100000] of longint; n,i,j,k,u,x,l:longint; ans:qword;procedure init; beginreadln(n);fillchar(s,sizeof(s),0);for i:=1 to n do for j:=1 to n dobeginread(a[i,j]);s[i,j]:=s[i-1,j]+s[i,j-1]-s[i-1,j-1]+a[i,j];end;ans:=0;fillchar(b,sizeof(b),0); end;procedure work; beginfor i:=1 to n dofor j:=1 to n dobeginl:=0;for k:=1 to i dofor u:=1 to j dobeginx:=s[i,j]-s[i,u-1]-s[k-1,j]+s[k-1,u-1];inc(b[x]);inc(l);c[l]:=x;end;for k:=i+1 to n dofor u:=j+1 to n dobeginx:=s[k,u]-s[k,j]-s[i,u]+s[i,j];inc(ans,b[x]);end;for k:=1 to l do b[c[k]]:=0;l:=0;for k:=1 to i dofor u:=j to n dobeginx:=s[i,u]-s[k-1,u]-s[i,j-1]+s[k-1,j-1];inc(b[x]);inc(l);c[l]:=x;end;for k:=i+1 to n dofor u:=1 to j-1 dobeginx:=s[k,j-1]-s[k,u-1]-s[i,j-1]+s[i,u-1];inc(ans,b[x]);end;for k:=1 to l dob[c[k]]:=0;end; end;beginassign(input,'farmer.in');assign(output,'farmer.out');reset(input);rewrite(output);init;work;writeln(ans);close(input);close(output); end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500084.html

總結

以上是生活随笔為你收集整理的JZOJ__Day 8:【普及模拟】马农的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。