Forum Webscript.Ru

Программирование => Perl => Тема начата: polo от 25 Апреля 2001, 23:22:45

Название: Помогите написать программу
Отправлено: polo от 25 Апреля 2001, 23:22:45

Имеются следующие параметры:
число- скажем 0
шаг-1
кол-во - 5
Как написать программу чтобы она сгенерировала ряд чисел, в данном случае 5
1
2
3
4
5
Тоесть программа должна взять число 0, прибавило 0+1, запомнила 1, далее 1+1, 2+1 и так до кол-ва 5.

Название: Помогите написать программу
Отправлено: lodevar от 26 Апреля 2001, 09:58:48

$begin=0;
$shag=2;
$max=5;

for($i=0;$i<$max;$i++)
{
 push(@array,$begin+$shag);
 $begin+=$shag;
}

Название: Помогите написать программу
Отправлено: polo от 26 Апреля 2001, 21:37:42

Все работает

Название: Помогите написать программу
Отправлено: polo от 27 Апреля 2001, 01:45:34

Большое спасибо, lodevar

Название: Помогите написать программу
Отправлено: polo от 27 Апреля 2001, 02:02:43

А как изменить так чтобы при вводе цифры 000 то выдавался результат 001 002 003 и т.д.

Название: Помогите написать программу
Отправлено: lodevar от 27 Апреля 2001, 10:03:16

Цитировать

polo (27-04-2001 02:02):
А как изменить так чтобы при вводе цифры 000 то выдавался результат 001 002 003 и т.д.

Цифры 000 нету! Это нолик! А вот строка "000" есть. Так что получаешь результат, переводишь в строку и врезаешь в твои нолики.

Название: Помогите написать программу
Отправлено: polo от 27 Апреля 2001, 23:48:46

А если по другому, вводить например 1000, а потом удалить первый символ 1, как удаляется первый символ?

Название: Помогите написать программу
Отправлено: cj от 28 Апреля 2001, 07:49:43

Цитировать

polo (27-04-2001 23:48):
А если по другому, вводить например 1000, а потом удалить первый символ 1, как удаляется первый символ?

$string =~ s/^\\d//;
Оно тебе это надо?

PS Hint:
my $number = 3;
my $pads = 3;
my $format = "\\%0$pads"."d";

my $out = sprintf($format, $number);
print $out;

# 003

Название: Помогите написать программу
Отправлено: polo от 28 Апреля 2001, 13:42:57

Спасибо, все отлично работает