Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: не работает  (Прочитано 4330 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Гектор
Гость
« : 08-11-2005 10:31 » 

как заставить работать такую конструкцию?   r:word;

 r:= random(9);
case r of
1: ----;
2: ----;
  - - - ;
9: ----;
end;
если просто присвоить r:= тогда работает а  с random() нет:(
Записан
PooH
Глобальный модератор

ru
Offline Offline
Пол: Мужской
... и можно без хлеба!


« Ответ #1 : 08-11-2005 11:37 » 

 перед вызовом random, Randomize стоит?
Записан

Удачного всем кодинга! -=x[PooH]x=-
Oldy
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #2 : 08-11-2005 11:45 » 

Используйте Randomize procedure
т.е.:
Код:
Var
  r : word;
Begin
  Randomize;
  r := Random(9);
  Case r of
    1:;
    2:;
  End;
End;
Записан

С уважением, Oldy.
Гектор
Гость
« Ответ #3 : 09-11-2005 09:38 » 

с Randomize; работает спасибо!
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines