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;
}

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

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