Вывод значений real

[Akkerman]

Не подскажите как вывести на экран переменную типа real без лишних цифр и указания порядка. Мне нужен вывод до сотых. Пробовал использовать writeln(a:0:2), но если у меня значение ,например, 5.2, то выводится 5.20, что мне не нужно.

[Janus]

Ну тогда writeln(a:0:1);
Прото вторая цифра у тебя указывает на количество цифр после запятой - сколько поставишь, столько и будет.

[Akkerman]

А если я не знаю сколько знаков у меня будет после запятой.

[mif]

тогда в строку преводи и со строчкой уже работай.

[Akkerman]

Перевести в строку с помощью str и потом убрать из ее конца лишние нули? Спасибо, попробую. И еще вопрос в lazarus`е можно перевести integer в string с помощью функции IntToStr, а нет ли такого же для real? Просто str не очень удобно пользоваться.

[SovNarKom]

Akkerman
unit SysUtils

FloatToStr

[Janus]

Есть в модуле sysutils:

Код: Выделить всё

function FloatToStr(Value: Extended): String;


Кстати, в том же модуле - по-моему, как раз то, что тебе нужно:

Код: Выделить всё

function FloatToStrF(Value: Extended; format: TFloatFormat; Precision: Integer;Digits: Integer) : String;


[Akkerman]

function FloatToStrF(Value: Extended; format: TFloatFormat; Precision: Integer;Digits: Integer) : String;

Спасибо большое, это то, что нужно