Question

Бесконечная клеточная страница состоит из квадратных клеток. сторона каждой клетки равна k единиц. радиус круга равен r единиц. нужно определить, сколько клеток входит в круг (и те, которые входят полностью в круг, и те, которые пересекаются окружностью). k и r - натуральные вход 1 5 выход 88 вход 3 7 выход 32 вход 4 5 выход 12 написать желательно на delphi 7, но и на pascal abc сойдёт.

Answer 1

Var i,k,p,r,m,n: integer;
begin
  write('размер клетки k = ');  readln(k);
  write('радиус круга r = ');  readln(r);
  n:=r div k;
  if ((r mod k)>0) then inc(n);
  m:=0; p:=n-1;
  for i:=1 to n-1 do 
  begin
    if Ceil(sqrt(r*r-k*i*k*i))<=p*k then
    begin
      p:=p-1;
      m:=m+n-i;
    end;  
  end;
  m:=4*n*n-4*m;
  writeln(m);
end.

размер клетки k = 1
радиус круга r = 5
88

размер клетки k = 3
радиус круга r = 7
32

размер клетки k = 4
радиус круга r = 5
12