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

Рыжий

Дата 2.11.2006, 03:10 (ссылка)

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

Загрузка ...

Помешанный

Профиль
Группа: Завсегдатай
Сообщений: 1423
Регистрация: 19.9.2004

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

Здравствуйте!
Подскажите пожалуйста, какк сгенерировать трех значное число, чтобы в нем была пределенная цифра.
Например если задали цифру 4, ответ:
452 или 854 или 794 и т.д.
Спасибо!
Сув.

digs

Дата 2.11.2006, 03:34 (ссылка)

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

Загрузка ...

Шустрый

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

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

Генерируешь любое трех значное число и заменяешь в нем любую цифру на 4

Snowy

Дата 2.11.2006, 03:35 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Код


var
  s: string;
  i: integer;
  c: byte;
begin
  c := 4; // цыфер, который нам нужен
  Randomize;
  repeat
    i := Random(900) + 100;
    str(i, s);
  until pos(chr(c + 48), s) > 0;
end;

В результате выполнения, нужное число будет в i

Рыжий

Дата 2.11.2006, 03:51 (ссылка)

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

Загрузка ...

Помешанный

Профиль
Группа: Завсегдатай
Сообщений: 1423
Регистрация: 19.9.2004

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

Snowy, Молодец, я когда думал перебирать до появления цифры - не нешился на это. (Думал может оно никогда не подберет цифру....) Хотя убедился что все ОК ;)

Snowy

Дата 2.11.2006, 04:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

А куда оно денется smile

Вероятность 33.3%
В среднем за 3-4 прохода нужное число появится.

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