Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

Random   Найти похожие ветки 

 
Son!K ©   (2003-07-23 04:21) [0]

Доброе время суток уважаемые гуру.
У меня вопрос, мне надо передать в фунцкию рэндомизное значение, пробую так:

var
rx, ry : Integer;
begin
Randomize;
TPut("текст", random(rx), random(ry), FOREGROUND_RED);
ReadLn;
end

не получаеться, сам я новичёк, помогите пожалуйста разобраться :)


 
PKT   (2003-07-23 04:55) [1]

Из Help-а
Random returns a random number within the range 0 <= X < Range

В Вашем случае Range - это rx и ry. Присвойте им максимально допустимые
значения, иначе они инициализируются "мусором".


 
Son!K ©   (2003-07-23 05:08) [2]

Огромное спасибо!


 
Son!K ©   (2003-07-23 05:22) [3]

Ещё вопрос, почему эта функция выдаеёт от 1-3х символов в консоле?

var
i: Integer;
begin
for i := 1 to 20 do
begin
Randomize;
TPut("#", random(20), random(20), FOREGROUND_GREEN);
end;
ReadLn;
end.

повторяться должна она 20 раз, не ужели так много совпадений с рендомом?



{
function TPut(text: String; X: Integer; Y: Integer; color: Word): Bool;
begin
CCoord.X := X; CCoord.Y := Y;

SetConsoleTextAttribute(GetCHandle, color);
SetConsoleCursorPosition(GetCHandle, CCoord);

WriteLn(text);
end;
}


 
ЮЮ ©   (2003-07-23 05:40) [4]

Randomize следует вынести из цикла (и, вообще, достаточно использовать всего один раз)



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

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
14-10445
Vorobyev Sergey
2003-07-17 09:38
2003.08.04
Кто-нибудь встречал конверторы hlp файлов в chm?


14-10431
Кен
2003-07-09 02:59
2003.08.04
Рождение жизнь и смерть ЛЮБОГО форума


6-10325
Евгения
2003-05-26 15:57
2003.08.04
FastNet - NMStrm


14-10365
Igor_thief
2003-07-17 15:34
2003.08.04
Рисунок в меню


1-10184
race1
2003-07-22 14:52
2003.08.04
прозрачность TGraphicControl а