Random

← →
OlegM (2003-02-27 09:01) [0]

Здрассте!
Мне нужно получить случайным образом выбранную букву из массива

Simb:array [0..25] of string =("A","B","C","D","E","F","G","H","I",
"J","K","Lw","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z");

а как что то разобратьсяя не могу. Подскажите кто знает.

← →
neXt (2003-02-27 09:04) [1]

задай случайное число от 0 до 25 и возьми из массива случайный смвол по этому индексу

← →
Alexandr B. (2003-02-27 09:24) [2]

что то вроде
const str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
begin
randomize;
showmessage(str[random(length(str))]);
end;

← →
Юрий Зотов (2003-02-27 09:29) [3]

Чуть подправлю, с Вашего разрешения. Во избежание нулевого символа строки:
ShowMessage(Str[1 + Random(Length(Str) - 1)]);

← →
Anatoly Podgoretsky (2003-02-27 09:31) [4]

Юрий Зотов © (27.02.03 09:29)
Можно и мне
ShowMessage(Str[1 + Random(Length(Str))]);

← →
blackman (2003-02-27 09:44) [5]

Кому верить ? Только себе ?

← →
mrcat (2003-02-27 09:53) [6]

const MAX_SIMB_LENGTH = 25; Simb:array [0..MAX_SIMB_LENGTH] of string = ( "A","B","C","D","E","F","G","H","I", "J","K","Lw","M","N","O","P","Q","R", "S","T","U","V","W","X","Y","Z"); begin Randomize; ShowMessageFmt("Выбранный символ: %s", [Simb[Random(MAX_SIMB_LENGTH)]]); end;

← →
Anatoly Podgoretsky (2003-02-27 10:23) [7]

См. еще раз Anatoly Podgoretsky © (27.02.03 09:31)
Про +- единицу, ну или попробуй на бумажке прогнать алгоритм, или ответь на вопрос максимальный и минимальный номер от Random(25) сколько будет?

← →
OlegM (2003-02-27 10:28) [8]

Спасибо всем!

← →
Sheriff (2003-02-27 10:41) [9]

прошу прощения за офф
ShowMessage(Chr(Random(26)+65));
:)

← →
Alexandr B. (2003-02-27 11:47) [10]

> прошу прощения за офф
> ShowMessage(Chr(Random(26)+65));
> :)

Ну или ShowMessage(chr(ord("A") + Random(25))), что бы не завязываться на числа.

← →
Anatoly Podgoretsky (2003-02-27 14:28) [11]

Alexandr B. (27.02.03 11:47)
Еще раз в наборе 26 букв, а не 25

← →
Alexandr B. (2003-02-28 08:56) [12]

> Anatoly Podgoretsky © (27.02.03 14:28)
> Alexandr B. (27.02.03 11:47)
> Еще раз в наборе 26 букв, а не 25

ах да сорьки

Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range

0 <= X < 1.

Я думал что 0 <= X < = Range

Random Найти похожие ветки