Форум: "Основная";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c