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

Вопросы программирования на Free Pascal, использования компилятора и утилит.

Модератор: Модераторы

Сообщение Akkerman » 26.04.2006 13:12:52

Не подскажите как вывести на экран переменную типа real без лишних цифр и указания порядка. Мне нужен вывод до сотых. Пробовал использовать writeln(a:0:2), но если у меня значение ,например, 5.2, то выводится 5.20, что мне не нужно.
Akkerman
незнакомец
 
Сообщения: 9
Зарегистрирован: 26.03.2006 15:19:02
Откуда: Белгород-Днестровский

Сообщение Janus » 26.04.2006 14:41:40

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

Сообщение Akkerman » 26.04.2006 14:50:43

А если я не знаю сколько знаков у меня будет после запятой.
Akkerman
незнакомец
 
Сообщения: 9
Зарегистрирован: 26.03.2006 15:19:02
Откуда: Белгород-Днестровский

Сообщение mif » 26.04.2006 15:22:12

тогда в строку преводи и со строчкой уже работай.
mif
новенький
 
Сообщения: 71
Зарегистрирован: 14.12.2005 10:09:27

Сообщение Akkerman » 26.04.2006 15:50:42

Перевести в строку с помощью str и потом убрать из ее конца лишние нули? Спасибо, попробую. И еще вопрос в lazarus`е можно перевести integer в string с помощью функции IntToStr, а нет ли такого же для real? Просто str не очень удобно пользоваться.
Akkerman
незнакомец
 
Сообщения: 9
Зарегистрирован: 26.03.2006 15:19:02
Откуда: Белгород-Днестровский

Сообщение SovNarKom » 26.04.2006 17:10:05

Akkerman
unit SysUtils

FloatToStr
SovNarKom
постоялец
 
Сообщения: 389
Зарегистрирован: 28.05.2005 10:37:39
Откуда: Воронеж [vrn] [36]

Сообщение Janus » 26.04.2006 17:11:30

Есть в модуле sysutils:
Код: Выделить всё
function FloatToStr(Value: Extended): String;


Кстати, в том же модуле - по-моему, как раз то, что тебе нужно:
Код: Выделить всё
function FloatToStrF(Value: Extended; format: TFloatFormat; Precision: Integer;Digits: Integer) : String;
Janus
постоялец
 
Сообщения: 134
Зарегистрирован: 07.11.2005 17:06:49

Сообщение Akkerman » 26.04.2006 18:29:02

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

Спасибо большое, это то, что нужно :)
Akkerman
незнакомец
 
Сообщения: 9
Зарегистрирован: 26.03.2006 15:19:02
Откуда: Белгород-Днестровский


Вернуться в Free Pascal Compiler

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8

Рейтинг@Mail.ru