VPF::Случайные числа!? - Форум программистов

Nookie

Дата 21.7.2005, 23:02 (ссылка)

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

Загрузка ...

Бывалый

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

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

есть ли в perl функци случайных чисел!??

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

Хочу знать все!!!

korob2001

Дата 22.7.2005, 03:22 (ссылка)

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

Загрузка ...

Эксперт

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

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

Случайное число в диапазоне от 0 до 1:

Код


#!/usr/bin/perl -w
use strict;
print rand();

Случайное число от 1 до 100:

Код


my $num = int(rand()*100)+1;

Думаю пояснений здесь не нужно, но всё же если что-то не понятно, пиши.

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

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

sharq

Дата 22.7.2005, 11:25 (ссылка)

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

Загрузка ...

Perl Liker

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

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

Код


srand();

my $rand = int rand(100);

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

[color=gray]There's More Than One Way To Do It[/color]

Sadok

Дата 23.7.2005, 12:40 (ссылка)

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

Загрузка ...

Шустрый

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

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

sharq
srand() вроде не нужен в последних версиях. он разве автоматом не вызывается?

sharq

Дата 23.7.2005, 14:57 (ссылка)

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

Загрузка ...

Perl Liker

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

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

Sadok вроде да, но я это так по старинки пишу. smile

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

[color=gray]There's More Than One Way To Do It[/color]

Anarki

Дата 27.7.2005, 13:31 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


int( rand ($MAX-$MIN+1) ) + $MIN

случайное число в [$MIN,$MAX]

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

Мой блог

Psixolog

Дата 30.10.2005, 13:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


#!/usr/bin/perl 

$random=int(rand(4))+1;
print "$random\n";

Будет выводит одно из чисел от 1 до 4 # 1,2,3 или 4

Также можно поменять

Код


#!/usr/bin/perl 

$random=int(rand(59))+25;
print "$random\n";

Уже будет выводить другие числа

Ещё можно использовать как случайный вывод картинки или текста

Код


$random=int(rand(4))+1;
print ('<img src="images/'.$random.'.gif" border="0">');

Usya

Дата 30.10.2005, 22:06 (ссылка)

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

Загрузка ...

Бывалый

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

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

Psixolog, а ты не смотрел дату последнего сообщения?

smile

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

Я не волшебник, я только учусь...

korob2001

Дата 2.11.2005, 20:41 (ссылка)

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

Загрузка ...

Эксперт

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

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

М	Тема закрыта

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

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

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