Количество клеток внутри окружности Опции

[Dranik7]

Текст задачи:

На клеточной бумаге нарисовали окружность целого радиуса с центром на пересечении линий.
Найти количество клеток, целиком лежащих в этой окружности (напр.: радиус = 3, клеток = 16)

Помогите решить.

Сообщение отредактировано: Dranik7 - 9.10.2010 22:43

[TarasBer]

Сам квадратный корень считается точно.

procedure WriteE(e: extended);
var
  a: record
    mant: array [0 .. 7] of byte;       
    ex: word;
  end absolute e;
  i: integer;

begin
  Write(IntToHex(a.ex, 4), ' ');
  for i := 7 downto 0 do Write(IntToHex(a.mant[i], 2));
  WriteLn;
end;

begin
  for i := 1 to 40000 do writee(sqrt(sqr(i)));
  WriteLn('END');  
  writee(1-5e-20);
  writeln(trunc(1-5e-20));
  ReadLn;
end.

Ровный ряд нулей в правом столбике доказывает это.

Я не знаю, как там сопроцессор спаян, если там корень столбиком считается (в этот метод, правда, сам вкурить не могу), то там всё точно.
Trunc отрезает всё, даже если там сплошные единицы, последние две строки вывода доказывают это.