程序：

var r,i,j,a,b:longint; ti,tj,best,t:real; beginreadln(r);best:=0;for i:=1 to 2*r-1 dofor j:=1 to 2*r-1 dobeginti:=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) thenbeginbest:=t;a:=i;b:=j;end;end;writeln(a);write(b); end.

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

總結

以上是生活随笔為你收集整理的2017年10月18日普及组 面积最大的全部內容，希望文章能夠幫你解決所遇到的問題。

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