Random (Pascal)

[spinogryz_ua]

Moжно ли задать рандом что бы выводил символы от "0"(48 в таблице ASCII) до "z"(122 в той же таблице), но при этом игнорировал символы типа "@", ">", "<", "=", "?", ";" и т.д., которые присутсвуют в диапазоне 48-122 вышепредставленой таблицы?

[kventin_zhuk]

Сообщение от spinogryz_ua

Moжно ли задать рандом что бы выводил символы от "0"(48 в таблице ASCII) до "z"(122 в той же таблице), но при этом игнорировал символы типа "@", ">", "<", "=", "?", ";" и т.д., которые присутсвуют в диапазоне 48-122 вышепредставленой таблицы?

Сделать множество из символов что вам не нужны, сделать генерацию значений в цикле, и проверять сгенерированное значение на вхождение. Если входит - повторить цикл ещё раз. В таблице АSCII символы идут почти по порядку) ну т.е группками по несколько символов) можно вырвать из таблицы начало и конец, тем самым сделать диапазоны ненужных чисел в цикле.

[Serge_Bliznykov]

так не проще/быстре/надёжнее/универсальнее/гибче ?

const
  NeedChars : string = 
    '0123456789'+
    'ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
    'abcdefghijklmnopqrstuvwxyz';

begin
  Randomize;

  Write( NeedChars[Random(Length(NeedChars)+1)] );

end.

[spinogryz_ua]

Благодарствую!