2017年10月18日普及組 面積最大

這裡寫圖片描述

程式:

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.