[Van-89]

Здравствуйте подскажите пожалуйста в чем проблема...
Время от времени появляется Random числа вне диапазона...

Описание программы:

Программа использует canvas и рисует шары которые отталкиваются по диагонали от стенок...

Кнопка Больше увеличивает на 1 количество шаров и задаёт каждому новому шару случайные параметры в заданном диапазоне...

Параметры каждого шара заносятся в массив... так же движения шаров обрабатывает созданный модуль 'mod1'...

[Aristarh Dark]

Все верно, у тебя случайно вычисляются координаты центра окружности, т.о. получается что до центра она может заползать за пределы рамки.

[Van-89]

Но я в Random'e делал поправку на это...
По идее ничего не должно вылезать... да и еще так сильно...

[poli-smen]

Сообщение от Van-89

Но я в Random'e делал поправку на это...
По идее ничего не должно вылезать... да и еще так сильно...

У тебя в проверке на отражении такой код:

Код:

    If (y<27) or (y>477) then yy:=-yy;
    If (x<27) or (x>621) then xx:=-xx;

Будем считать что это правильные значения, значит x должно принимать значения от 27 до 621, а y от 27 до 477, что в виде кода так:

Код:

x := 27 + Random(621 - 27 + 1);
y := 27 + Random(477 - 27 + 1);

У тебя же в коде написано так:

Код:

      mass[m1,0,0,1]:=27+random(477);
      mass[m1,0,1,1]:=27+random(621);

Конечно будет вылезать.

[Van-89]

Спасибо разобрался))

К сожаление у меня довольно часто возникают проблемы с установкой диапазона((

[poli-smen]

Сообщение от Van-89

К сожаление у меня довольно часто возникают проблемы с установкой диапазона((

В таком случае можно написать функцию-обёртку над стандартной функцией Random и пользоваться ею:

Код:

function Random2(A, B: Integer): Integer;
begin
  Result := A + Random(B - A + 1);
end;

Или например так:

Код:

function Random2(A, B: Integer): Integer;
begin
  Result := Min(A, B) + Random(Abs(A - B) + 1);
end;

И теперь если нужно получить случайные числа например от 27 до 621 то вместо:

Код:

x := 27 + Random(621 - 27 + 1);

Делаешь просто:

Код:

x := Random2(27, 621);

А при использовании второго варианта функции Random2 можно и так:

Код:

x := Random2(621, 27);

[Van-89]

Спасиб)

Есть еще один вопрос только из другой темы...
Мне в label нужно вывести символ "█" из таблицы ascii... или аналогичный ему... возможно ли это?...

Если просто скопировать его то он отображается как точка... а если использовать его код "219" то он выводится как буква "Ы"

[lmikle]

Сообщение от Van-89

Спасиб)

Есть еще один вопрос только из другой темы...
Мне в label нужно вывести символ "█" из таблицы ascii... или аналогичный ему... возможно ли это?...

Если просто скопировать его то он отображается как точка... а если использовать его код "219" то он выводится как буква "Ы"

В Винде есть такая программка - CharacterMap.
Согласно ей, твой символ - 2588 (█).

[poli-smen]

Сообщение от Van-89

Мне в label нужно вывести символ "█" из таблицы ascii... или аналогичный ему... возможно ли это?...

Если просто скопировать его то он отображается как точка... а если использовать его код "219" то он выводится как буква "Ы"

Если тебе нужно чтобы в TLabel символы из второй половины таблицы отображались не в кодировке Windows-1251, а в старой DOS-овской CP866 то выбери соответствующий шрифт для этого, например "Terminal".
Если же тебе нужно чтобы в TLabel можно было применять любое разнообразие символов, то тебе нужно установить TLabel с поддержкой юникода, вот например последняя бесплатная версия компонент TNT.

[Van-89]

Спасиб еще раз) всё работает))