Рандомная буква английского алфавита

Рандомная буква английского алфавита

С помощью сервиса для генерации новых слов вы быстро сможете создать новые слова из их частей. Применений у данного сервиса может быть много, например, вам захочется придумать имена персонажей для книги или названия предметов для компьютерной игры, а может быть вы экспериментируете с созданием своего языка — этот сервис также может помочь вам в этом.

Внимание! В этом генераторе предусмотрены три различных режима работы для создания новых слов. В каждый момент времени можно работать только в одном режиме, а данные, введенные в другие — будут утеряны.

Есть-ли в Делфи, стандартный генератор случайных символов, наподобии функции Random, но для букв. Или только ручками писать надо?


Fay © ( 2006-01-08 12:47 ) [1]

2 BiggieSmalls (08.01.06 12:33)
ручками — только массив интересующих символов.


Anatoly Podgoretsky © ( 2006-01-08 12:49 ) [2]

Что за символы и не подойдет ли стандартные генератор.


NaziGhost ( 2006-01-08 13:01 ) [3]

можно попробовать вот так

var
niz,verh,rnd: byte;
res: char;
begin

niz := ORD("A");
verh := ORD("z"); // для англицких есесно

rnd:=random(verh);
if rnd > niz then
res:= Chr(rnd);

код не проверл, так написал, поправьте если что не так и не судите строго =)


jack128 © ( 2006-01-08 13:10 ) [4]

NaziGhost (08.01.06 13:01) [3]
niz := ORD("A");
verh := ORD("z"); // для англицких есесно

rnd:=random(verh);
if rnd > niz then
res:= Chr(rnd);

А может просто Result := Chr(Random(Ord("Z") — Ord("a")) + Ord("a")) ??


NaziGhost ( 2006-01-08 14:27 ) [5]


Piter © ( 2006-01-08 14:43 ) [6]

jack128 © (08.01.06 13:10) [4]
А может просто Result := Chr(Random(Ord("Z") — Ord("a")) + Ord("a")) ??

Читайте также:  Как понизить dpi мыши

агы, Ord("a") сокращается. и что у нас остается? :))

Ну идея понятно, только надо учесть, что символы a..z идут не сразу после A..Z (точно не уверен, но по крайней мере для русских "А".."Я" и "а".."Я" это точно так).

То есть, сначала можно рандомно выбрать — какую буквку генерировать (заглавную или прописную), а потому же из нужного диапазона генерировать.


Piter © ( 2006-01-08 14:44 ) [7]

Piter © (08.01.06 14:43) [6]
но по крайней мере для русских "А".."Я" и "а".."Я"

но по крайней мере для русских "А".."Я" и "а".."я"


Piter © ( 2006-01-08 14:46 ) [8]

jack128 © (08.01.06 13:10) [4]

Сори, я скобочку не заметил, спутал 🙂


TUser © ( 2006-01-08 21:19 ) [9]


VirEx © ( 2006-01-08 22:03 ) [10]

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
form1.Caption:=char(57-random(9)); //0 — 9
form1.Caption:=char(90-random(25));//A — Z
form1.Caption:=char(122-random(25));//a — z
form1.Caption:=char(223-random(31));//А — Я
form1.Caption:=char(224-random(31));//в — я
end;


VirEx © ( 2006-01-08 22:03 ) [11]

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
form1.Caption:=char(57-random(9)); //0 — 9
form1.Caption:=char(90-random(25));//A — Z
form1.Caption:=char(122-random(25));//a — z
form1.Caption:=char(223-random(31));//А — Я
form1.Caption:=char(224-random(31));//а — я
end;


VirEx © ( 2006-01-08 22:07 ) [12]


> [11] VirEx © (08.01.06 22:03)

ну енто конечно можно и form1.Caption:=char(ord("0")-random(9)); //0 — 9 и по аналогии с остальными

Правила: Перед вами страница которая показывает выбранные случайным образом слова из нашего словаря. Здесь вы можете протестировать ваши знания Русского или Английского языка. Просто отметьте Не показывать перевод слова, и запросите следующее слово. Проверьте ваш ответ нажав на линк Показать перевод.

Ссылка на основную публикацию
При каком альфа векторы компланарны
Единого обозначения компланарность не имеет. Свойства компланарности Пусть — векторы пространства . Тогда верны следующие утверждения: Если хотя бы один...
Нет msvcr120 dll что делать
Если, попытавшись включить любимую игру, вы натыкаетесь на окно, которое гласит, что запуск программы невозможен по причине отсутствия mscvr120.dll —...
Нет беспроводного сетевого соединения windows 7
На панели задач в Windows или в меню «Центр управление сетями» нет иконки Wi-Fi? Это не значит, что вышло из...
При каком значении m прямая параллельна плоскости
Точка C(—3, 4,1) найдена. 6. Написать уравнение плоскости, проходящей через точки M1(1, —2, 1), M2(4, 2, 3) и параллельной вектору...
Adblock detector