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

Вниз

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

 
lameridze   (2003-05-25 18:04) [0]

Люююди- сами знаете кто,

есть:

var
l:word;
const
arr: array[1..10] of word = (1,2,3,4,5,6,7,8,9,10);
begin
randomize;
l := random(?????);


надо:

вместо ?????? че-нить вставить, чт. происходил выбор значений элементов из arr (т.е. от 1 до 10).


 
MBo   (2003-05-25 18:10) [1]

l := arr[1+random(10)]);
при таком наборе чисел в arr зачем он вообще нужен????



 
Palladin   (2003-05-25 19:41) [2]


> - сами знаете кто

хитёр однако парень...
однако грех не помочь :)


 
Diamond Cat   (2003-05-25 20:28) [3]


> MBo © (25.05.03 18:10)
> l := arr[1+random(10)]);
random(9) :о)


 
Palladin   (2003-05-25 21:30) [4]


> Diamond Cat © (25.05.03 20:28)

нэ, не спорь с MBo, MasterBrain усе таки...
и жутко прав с замечанием по поводу набора чисел...


 
Anatoly Podgoretsky   (2003-05-25 21:56) [5]

Diamond Cat © (25.05.03 20:28)
Ты как прикалываешься или серьезно?


 
Arch-vile   (2003-05-25 21:59) [6]

random(N) никогда не выдаст число N.


 
DrPass   (2003-05-25 22:09) [7]

Спасибо, будем знать


 
MBo   (2003-05-26 06:25) [8]

>Diamond Cat
нет, Random(9) генерирует числа от 0 до 8 включительно.


 
Anatoly Podgoretsky   (2003-05-26 07:56) [9]

Кто то Soft переименовал в Cat


 
lameridze   (2003-05-26 12:15) [10]

так че писать-то:

..
l:=arr[1+random(?_число элементов массива_?)]ж
..

и зачем "1+"


 
MBo   (2003-05-26 12:18) [11]

:(


 
lameridze   (2003-05-26 12:23) [12]

o--|====>


 
Skier   (2003-05-26 12:24) [13]

"Над кем смеётесь ?! Над собой смеётесь !" :))) (С) Н.В. Гоголь.


 
Arch-vile   (2003-05-26 15:20) [14]

l:=arr[1+random(?_число элементов массива_?)]
Если массив базируется на 0 (array[0..n-1]) или динамический, тогда +1 не надо. Если массив статический и базируется на 1 (array[1..n]) тогда +1. Потому что Random(9)=0..8, array[1+0..8]=array[1..9]
Вроде немного запутанно, но надеюсь, что поймешь



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

Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.008 c
1-13171
Новенький
2003-05-26 11:35
2003.06.05
TActionPopupMenuBar


1-13156
Nikos
2003-05-25 16:08
2003.06.05
Как вывести на печать информацию в таблице?


8-13343
NAlexey
2003-02-21 12:04
2003.06.05
Transparent и BitBlt?


1-13217
odyssey
2003-05-27 11:44
2003.06.05
Перемещение файла


3-13083
Ich Hasse
2003-05-17 15:32
2003.06.05
Как выделить ПОСЛЕДНЮЮ запись???





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский