Неверов Евгений Викторович
QR-код
Меню сайта
Категории раздела
Программирование на языке Паскаль [26]
В данной категории представлены новые функции, созданные на языке Паскаль, которые могут пригодиться при написании своих программ
Программирование на Delphi [19]
В данной категории представлены полезные подпрограммы, которые могут пригодиться при написании своих программ, а также рассматриваются примеры готовых проектов, создаваемых в среде программирования Delphi
Программирование на HTML [1]
В данной категории рассматриваются примеры готовых проектов, создаваемых на языке HTML
Мои программы [1]
Описание разработанных автором программ.
Online-программы [2]
Прочее [42]
Свободная тематика
Мини-чат
200
Наш опрос
Существуют ли инопланетяне?
Всего ответов: 11
Статистика

Онлайн всего: 2
Гостей: 2
Пользователей: 0

Случайный набор символов (генератор новых слов)
function WordRandom(len: integer; PROPIS, rus, eng, num: boolean): string;
var b: array[0..255] of boolean;
    i, n: integer;
begin
   Result:='';
   if not PROPIS and not rus and not eng and not num then
      Exit;
   for i:=0 to 255 do
      b[i]:=false;
   if num then
      for i:=48 to 57 do
         b[i]:=true;
   if PROPIS and eng then
      for i:=65 to 90 do
         b[i]:=true;
   if eng then
      for i:=97 to 122 do
         b[i]:=true;
   if PROPIS and rus then
      for i:=192 to 223 do
         b[i]:=true;
   if rus then
      for i:=224 to 255 do
         b[i]:=true;
   n:=0;
   while n<len do
   begin
      Inc(n);
      i:=Random(256);
      if b[i] then
         Result:=Result+Char(i) else
         Dec(n);
   end;
end;

где:

  • len – длина строки;
  • PROPIS – включить прописные буквы;
  • rus – включить русские буквы;
  • eng – включить английские буквы;
  • num – включить цифры.

Например,

  • WordRandom(5, true, true, true, true) выведет случайным образом строку длиной в 5 символов (например, 'r5фSЦ').

Примечание. В современных версиях языка Паскаль русские буквы могут иметь другие коды из-за различия в кодировках.

Категория: Программирование на языке Паскаль | Добавил: newerow1989 |
Просмотров: 1188 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email:
Код *:
Вход на сайт
Поиск
Друзья сайта
Заработок в Интернете
Для начала необходим Электронный PAYEER® кошелек!
Copyright MyCorp © 2025
Версия для мобильных устройств. Яндекс.Метрика Анализ сайта Проверить мой сайт на ScamAdviser.com