VPF::Перевод в экспоненциальную форму

Digo

Дата 19.11.2004, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 194
Регистрация: 30.9.2004
Где: Ростов на Дону

Репутация: нет
Всего: нет

Приветствую всех обитателей форума.
У меня вопрос: как в Delphi перевести число из простой формы в экспоненциальную.
Например 0,00001 --> 1E-5 ??? Нужно для округления...

--------------------

640кб оперативной памяти хватит миру по самые уши (Билл Гейтс )

maxim1000

Дата 19.11.2004, 12:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 4
Всего: 110

Код


var
  e:integer;
  x:real;
begin
  e:=0;
  while(x<1)do
  begin
    x:=x*10;
    dec(e);
  end;
  while(x>=10)do
  begin
    x:=x/10;
    inc(e);
  end;
end;

"нормализует" до промежутка [1,10)
работает только для положительных чисел smile

--------------------

qqq

Snowy

Дата 19.11.2004, 12:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string; overload;

Смотри хельп. В TFloatFormat устанавливай нужный тебе вариант.

type TFloatFormat = (ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency);

Digo

Дата 19.11.2004, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 194
Регистрация: 30.9.2004
Где: Ростов на Дону

Репутация: нет
Всего: нет

Спасибо, разобрался smile

--------------------

640кб оперативной памяти хватит миру по самые уши (Билл Гейтс )

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »