Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];

Вниз

Функции   Найти похожие ветки 

 
Гость   (2003-05-11 07:29) [0]

Как приписать функции значения random?
Т.е. чтоб функция выполняло действия столько столько random.
(Бред:))


 
Rocker   (2003-05-11 08:51) [1]

Неясен вопрос!


 
Great_Lesh   (2003-05-11 09:42) [2]

Если я правильно понял - по функция должна выполняться random число раз.
Если так - тогда:
var
i: integer;
begin
Randomize;
i := random(20)+1; //[1..20], т.к. если 0 - выполняться не будет
while i > 0 do begin
dec(i);
showmessage("Осталось "+inttostr(i)+" раз");
end;


 
Гость   (2003-05-11 15:10) [3]

Great_Lesh Спасибо большое.


 
Ihor Osov'yak   (2003-05-11 15:28) [4]

2 Great_Lesh (11.05.03 09:42)

Одна очень плохая вещь. Randomize должно вызываться в течении работы программы только один раз. Почему - рассказывать долго.

Randomize лучше вынести в секцию инициализации или в *.dpr




Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.006 c
7-70530
CMOK
2003-03-23 23:43
2003.05.22
Загрузка CPU/процесс


1-70364
Денчез
2003-05-09 20:42
2003.05.22
Как сделать так чтобы окошко появлялось плавно(прелоадер в 3DMark


3-70170
Oleon
2003-04-29 14:13
2003.05.22
Какие минусы при использовании IDENTITY для первичного ключа.


14-70519
KSergey
2003-05-01 12:00
2003.05.22
Изображения TIFF и JPEG


1-70358
tytus
2003-05-09 20:31
2003.05.22
servers





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский