Округление по длине мантиссы

[Serge_BN]

mserg писал(а):

Serge_BN, большое спасибо. Но должен Вас разочаровать, я немного подправил свое последнее сообщение. Можете запустить (VS2005) и убедиться, что все работает правильно.

Всем спасибо, толку от вас никакого.

V$, наверное, хорошая IDE.
Если можно, приведите, плз, результаты работы вашей программы.
Все замечания остаются в силе. И кроме того, ваша программа должна свалиться после первого обращения за пределы массива.

[mserg]

p - длина мантиссы

x=4.666666666666667, p=1, down(x)=4, up(x)=8
x=4.666666666666667, p=2, down(x)=4, up(x)=6
x=4.666666666666667, p=3, down(x)=4, up(x)=5
x=4.666666666666667, p=4, down(x)=4.5, up(x)=5
x=4.666666666666667, p=5, down(x)=4.5, up(x)=4.75
x=-4.666666666666667, p=5, down(x)=-4.75, up(x)=-4.5
x=-14, p=5, down(x)=-14, up(x)=-14
x=4.6666624731982853e-318, p=1, down(x)=0, up(x)=2.2250738585072014e-308
x=4.6666624731982853e-318, p=10, down(x)=0, up(x)=4.3458473798968777e-311

[Serge_BN]

Прокомментируйте,плз, эти результаты.

[mserg]

x - число,
p - длина мантиссы,
down - округление по длине мантиссы вниз,
up - округление по длине мантиссы вверх.

См. также документацию по внутреннему представлению числе double.