2017年10月18日普及组面积最大

最新推荐文章于 2018-10-24 21:28:14 发布

原创最新推荐文章于 2018-10-24 21:28:14 发布 · 255 阅读

0 ·

CC 4.0 BY-SA版权

普及模拟赛专栏收录该内容

91 篇文章

订阅专栏

本文介绍了一个寻找二维坐标中最佳组合的算法实现。该程序通过计算特定公式下的坐标组合得分，并找出得分最高的组合。

这里写图片描述

程序：

var
r,i,j,a,b:longint;
ti,tj,best,t:real; 
begin
    readln(r);
    best:=0;
    for i:=1 to 2*r-1 do
    for j:=1 to 2*r-1 do
    begin
        ti:=sqrt(r*r-(i/2)*(i/2))*2;
        tj:=sqrt(r*r-(j/2)*(j/2))*2;
        t:=ti*i+tj*j-i*j;
        if (t>best) then
        begin
            best:=t;
            a:=i;
            b:=j;
        end;
    end;
    writeln(a);
    write(b);
end.