30.11.2011, 22:28
|
|
Специалист
|
|
Регистрация: 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);
и все правильно
|