Help!, Разряд дробной части числа Опции

[Anches]

Вывести заданный разряд дробной части действительного числа.разряды нумеруются от десятичной точки направо,начиная с 1.используя int,frac.

N:=strtofloat(edit1.text);
i:=0;
 while frac(n)<>0 do 
   begin
   n:=n*10;
   i:=i+1;
   end;
edit2.text:=inttostr(i);

что не так?результат то верный,то че-папальный.пожаиста помогите!

Сообщение отредактировано: мисс_граффити - 23.12.2006 4:48

[мисс_граффити]

у меня почему-то такое ощущение, что:
1) это делфи
2) ты считаешь количество разрядов
...и про теги не забывай.

Можно делать так.
Допустим, есть число 12.3456
надо получить 2 разряд.
выделяем дробную часть
0.3456
умножаем на 10, выделяем дробную
0.456
умножаем на 10, выделяем целую
4

[Anches]

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