Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.58 MB
Время: 0.035 c
14-30117
Fedor
2003-02-20 14:35
2003.03.10
ZLib


1-29905
Provodnick
2003-02-26 14:00
2003.03.10
Как работать с Memory Mapped Files?


3-29740
Burlik
2003-02-19 14:02
2003.03.10
Help ! Поиск по индеку в DBF-файле ...


1-29789
Smirnoff
2003-02-26 12:47
2003.03.10
Как сделать прогу, чтобы она запускалась в винде как сервис?


14-30038
Igor_thief
2003-02-24 19:37
2003.03.10
Папки и файлы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский