VPF::Вывод чисел в формате 0,00 - Форум программистов

*eug*

Дата 1.2.2004, 19:20 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 17.7.2003

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

Мне необходимо выводить два знака после запятой независимо от того целое число или нет, подскажите как это обеспечить?

korob2001

Дата 1.2.2004, 22:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Код



#!/usr/bin/perl -w
use strict;
my $num = 254.14154;
printf("%.2f", $num);

Если отформатированное число нужно сохранить в переменной, то нужно использовать sprintf. Например:

Код


#!/usr/bin/perl -w
use strict;
my $num = 254.14154;
my $res = sprintf("%.2f", $num);
print $res;

Это сообщение отредактировал(а) korob2001 - 1.2.2004, 22:54

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

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

*eug*

Дата 4.2.2004, 10:23 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 17.7.2003

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

Вот спасибочки!!!!

HalkaR

Дата 8.2.2004, 01:50 (ссылка)

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

Загрузка ...

Пуфыстый назгул

Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

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

Теоретически можно без sprintf

Код

#!/usr/bin/perl -w
use strict;
my $num = 254.14154;
my $res = (int($num*100))/100;
print $res;

korob2001

Дата 8.2.2004, 04:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Цитата

Теоретически можно без sprintf

*eug* хочет что бы прога выводила два знака после запятой не зависимо от того, целое число или нет.
Нижеуказанный код не выполняет поставленной задачи:

Код

 
#!/usr/bin/perl -w
use strict;
my $num = 254;  # Целое число
my $res = (int($num*100))/100;
print $res; # Получаем 254, а не 254.00

Это сообщение отредактировал(а) korob2001 - 8.2.2004, 04:06

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

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

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