Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.04.2010, 18:37   #1
Monte Kristo
Новичок
Джуниор
 
Регистрация: 30.03.2009
Сообщений: 1
Вопрос Проблема

Помогите пожалуйста! Как сделать генератор случайных чисел, чтобы число состояло из 4 цифр и они не повторялись?
Monte Kristo вне форума Ответить с цитированием
Старый 07.04.2010, 18:41   #2
Google2010
Форумчанин
 
Регистрация: 16.02.2010
Сообщений: 316
По умолчанию решение!

icq:553-566-179
недорого

Последний раз редактировалось Google2010; 07.04.2010 в 18:41. Причина: решение!
Google2010 вне форума Ответить с цитированием
Старый 07.04.2010, 20:44   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
var
  m : array[1..4] of integer;
  i, j, t : integer;
  FlagExist : boolean;
  Chislo : integer;
begin
   Randomize;
   {первая цифра не может быть нулём, будет от 1 до 9}
   m[1] := Random(9)+1;
   for i:=2 to 4 do begin
      repeat
        FlagExist := false;
        t := random(10);
        for j:=1 to i-1 do
          if m[j]=t then FlagExist := true;
      until Not FlagExist;
      m[i] := t;

   end;

   Chislo := m[1]*1000 + m[2]*100+m[3]*10 + m[4];

  writeln(Chislo);
end.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с рамами/Проблема с ЖД DRAGGER Компьютерное железо 6 04.01.2009 23:37