bzoj 1800 暴力枚举

最新推荐文章于 2018-12-19 18:55:41 发布

weixin_33721344

最新推荐文章于 2018-12-19 18:55:41 发布

阅读量133

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/BLADEVIL/p/3500879.html

本文介绍了一个用于解决特定矩形判定问题的算法。该算法通过暴力枚举四个点并判断其是否能够构成矩形来实现。具体步骤包括读取输入数据，进行四层循环枚举点集，并通过计算不同边长来验证矩形条件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

直接暴力枚举四个点，然后判断是否能组成矩形就行了

注意枚举的点的标号从小到大，保证不重复枚举

/**************************************************************
    Problem: 1800
    User: BLADEVIL
    Language: Pascal
    Result: Accepted
    Time:0 ms
    Memory:224 kb
****************************************************************/
 
//By BLADEVIL
var
    n                           :longint;
    sum                         :array[0..21] of longint;
    i, j, k, l                  :longint;
    a, b, c, d                  :longint;
    tot, ans                    :longint;
     
function min(a,b:longint):longint;
begin
    if a>b then min:=b else min:=a;
end;
     
begin
    read(n);
    for i:=2 to n+1 do read(sum[i]);
    for i:=2 to n+1 do inc(tot,sum[i]);
    for i:=1 to n do sum[i]:=sum[i]+sum[i-1];
    for i:=1 to n do
        for j:=i+1 to n do
            for k:=j+1 to n do
                for l:=k+1 to n do
                begin
                    a:=sum[j]-sum[i];
                    a:=min(tot-a,a);
                    b:=sum[k]-sum[j];
                    b:=min(tot-b,b);
                    c:=sum[l]-sum[k];
                    c:=min(c,tot-c);
                    d:=abs(sum[l]-sum[i]);
                    d:=min(d,tot-d);
                    if (a=c) and (b=d) then inc(ans);
                end;
    writeln(ans);
end.