Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

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



Страницы: 1 вся ветка

Текущий архив: 2003.03.10;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.015 c
4-30199
gav
2003-01-20 22:08
2003.03.10
переключение языка английский/русский


8-29968
_Ed_
2002-11-29 05:55
2003.03.10
Момент окончания воспроизведения *.wav


14-30010
Феликс
2003-02-24 02:26
2003.03.10
Как эта пестня называется?


14-30006
DimonXP
2003-02-20 11:49
2003.03.10
Не срабатываб точки остнова


1-29827
SeNtiMeL
2003-02-22 02:42
2003.03.10
Как Сделать красным надпись на ярлыке TabSheet