Показать сообщение отдельно
  #3  
Старый 30.11.2011, 22:28
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию

округление так надо

Код:
  if (Frac(k)>0.5) or (Frac(k)=0.5) then n2:=k+1-Frac(k)
  else if (Frac(k)<0.5)  then n2:=k-Frac(k);
и все правильно
Ответить с цитированием