Ответ
 
Опции вопроса Поиск в этом вопросе Опции просмотра
  #1  
Старый 29.09.2011, 21:33
Аватар для Guest
Guest
Вопрос
Сообщений: n/a
По умолчанию

Вызываем функцию:dec2bin("1234.456")Код:function dec2bin(decstring)'предполагается, что decstring уже сформирована как строка, содержащая только арабский цифры, знаки "," , "."tmp=isnumeric(decstring)decstring=val (decstring)' здесь получаем правильное десятичное представление строки =1234,456decstring=str(decstring) ' чтобы убрать возможные пробелыpoint_pos=instr(decstring,".")' первый способ выделить целую и дробную части. intpart=val(decstring) \1 'получаем правильное значение 1234drobpart=val(decstring)-decstring ' А вот здесь fail! получаем значение 0,455999999999904 !!!!'Что получаем? intpart, как и должно быть получаем равным 1234, а drobpart получаем равной 0,455999999999904'Поэтому приходится идти через задницу'intpart=cdbl(mid(decstring,1,poi nt_pos-1)drobpart=mid(decstring,point_pos,len(d ecstring)drobpart=val(drobpart)a=""For i=len(decstring) to 1 step -1if i
Ответить с цитированием
Ответ



Похожие вопросы
Тема Автор Раздел Ответов Последний вопрос или ответ
Не работает аська на Sony Ericsson W950i, оператор Билайн. Может что-то не тк делаю? Guest Новый архив 3 0 12.03.2012 08:04
округление чисел Guest Продолжение старого архива 0 16.10.2011 15:00
Округление до десятых Guest Продолжение старого архива 0 01.10.2011 03:03
Runtime error. This application has requested the Runtime to terminate it in an Guest Новый архив 3 0 29.09.2011 20:58



© www.otvetnemail.ru - Форум вопросов и ответов.