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

[TarasBer]

Я про это думал.
Под корнем число целое.
sqrt от точного целого квадрата ошибки не даёт.

Специально ещё раз проверил

for i := 1 to 40000 do if i <> trunc(sqrt(sqr(i))) then WriteLn(i);
WriteLn('END');
ReadLn;

[Lapp]

sqrt от точного целого квадрата ошибки не даёт.

Хм.. интересно, на каком уровне это делается - функции или машинных кодов?
Тогда вопрос снят, извиняюсь

+1 за то, что поверял )

[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 отрезает всё, даже если там сплошные единицы, последние две строки вывода доказывают это.

[Lapp]

Я не знаю, как там сопроцессор спаян, если там корень столбиком считается

Собственно, да, там же лишний разряд должен учитываться.. так что округление точное.

[prednisolone acetate ophthalmic]

Achat Rapide Kamagra

[what drugs should not be taken w]

Erectile Dysfunction Drugs

[finasteride without prescription]

marijuana and cialis