Про дробную часть

[-=SCiP=-]

Как сделать так
a#=2,5548
s%=5548
и наоборот!

[dimond]

Сообщение от -=SCiP=-

Прошу большое извенение за дополнительный вопрос на не в тему!
Как сделать так
a#=2,5548
s%=5548
и наоборот!

Вовчик, сначала обьясни нормально что именно
поменять местами что ли

[MiXaeL]

Может тебе это надо

 
s#=a#-Floor(a#)
repeat 
 s=s*10
until s<>int(s)
s=int(s)

(Если я только не перепутал Floor и Ceil)

[HolyDel]

еще со знаком "-" надо поиметь близкие отношения.

[Platon]

Сообщение от Michael

Может тебе это надо

 
s#=a#-Floor(a#)
repeat 
 s=s*10
until s<>int(s)
s=int(s)

(Если я только не перепутал Floor и Ceil)

Жуть =-O

s = a - Int(a)

[impersonalis]

s = a - Int(a)

s=0

[HolyDel]

Cyan, не прокатит.
int - округлит.
2.9 - int(2.9)
2.9 - 3
-0.1
Imper, неправда ваша, а то может быть дробным.

[impersonalis]

Сообщение от HolyDel

-0.1
Imper, неправда ваша, а то может быть дробным.

По условиям задачи а дробное (но причём здесь это?), s - целое

a#=2.5548
s%=5548
s = a - Int(a)
Print s

[HolyDel]

точно, был неправ. s то целое.
вот, извращенское, но изящное решение:

a#=2.5548
d#=a# Mod 1
s=d*(10^(Len(Str(d))-2))
Print s

[dimond]

что-то я стормозил, сразу на цифры не посмотрел
использовать строку будет тормозно, а если у него тысячи таких вычислений.
мой вариант

a#=-2.5548
s%=(Abs(a)-Floor(Abs(a)))*Sgn(a)*10000

количество нулей в множителе определяет кол-во чисел после запятой

[HolyDel]

а если у него разное количество цифр после запятой?

[-=SCiP=-]

Не как не получается так как нужно!
a#=255.2487487 <Любое кол.
b#=< мне необходимо чтоб 2487487 стало цело численое!

[dimond]

Просто я всегда явно задаю параметры, без доп. вычислений, так проще и быстрее. ок, будет время, сделаю с вычислением.

[HolyDel]

a#=255.2487487
Print a#
Дядя, ето вы загнули, где это вы видали 4-х байтовое вещественное с такой точностью?

юзай строки

a$="255.2487487"
s%=0
s=Int(Mid(a,Instr(a,".",1)+1,100))
Print s

[-=SCiP=-]

Огромное всем спасибо!
Эту тему можно закрыть