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

Вниз

не повтарение чисел   Найти похожие ветки 

 
kizam   (2006-02-13 02:26) [0]

например у меня есть массив   bus[0..8]. есть ещо число,нужно проверить это число в массиве есть или нет,чтото не получается.


 
Marser ©   (2006-02-13 02:28) [1]

Что не получается?


 
kizam   (2006-02-13 02:37) [2]

randomize;
for i:=1 to 5 do
begin
k:=random(10)+1;
for m:=1 to 5 do
begin
if k<>bus[m] then t:=t+1
end;

я вот пишу так, но ошыбаюсь гдето.


 
evvcom ©   (2006-02-13 08:55) [3]


> ошыбаюсь

М...дя... Помню в первом классе большой плакат: "ЖИ-ШИ пиши с буквой И". Видимо, сейчас уже и на дешевых плакатах экономят :(

Где-то ошибаешься, точно. Ты не показал, где пишешь в bus, что такое t, где оно инициализируется и пр. Ну и как тебе помочь?


 
SkyRanger ©   (2006-02-13 09:03) [4]

randomize;
for i:=1 to 5 do
begin
k:=random(10)+1;
for m:=1 to 5 do
begin
if k<>bus[m] then t:=t+1
end;

Ну во-первых считаем количество begin и end.  У тебя  в самом конце пропущен end.

И еще совет когда пишешь

for m:=1 to 5 do
begin
if k<>bus[m] then t:=t+1
end;

Можно писать так

for m:=1 to 5 do
 if k<>bus[m] then
   t:=t+1


Т.е. если у тебя внутри begin...end только 1 оператор или условие или цикл - можно опустить begin...end Но чтобы не путаться лучше сначала напиши со всеми begin...end и когда все заработает правильно можно убрать старые...

А вообще давай код целиком, а то непонятно де начало, а де конец...


 
Virgo_Style ©   (2006-02-13 13:03) [5]

kizam   (13.02.06 2:26)
массив   bus[0..8]


kizam   (13.02.06 2:37) [2]
for m:=1 to 5 do


?


 
CMOS ©   (2006-02-13 14:37) [6]

Лучше здесь использовать множества.

var s: Set of Byte;
 a: Array[0..8] of Byte;
begin
s:= [];//Зануляем множество
for n:= 0 to 5 do
begin
 repeat
   x:= random(10)+1;//Генерируем случайное число
 until not(x in s) //если этого числа еще не было выходим из цикла
 s:= s+[x]; //Запоминаем случ. чило во множество
 a[n]:= x; //Присваеваем элементу массива это число
end;

Все элементы в массиве будут уникальны



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

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

Наверх





Память: 0.46 MB
Время: 0.056 c
3-1136117634
d1978
2006-01-01 15:13
2006.02.26
Как вставить из буфера обмена в DbRichEdit текста...


1-1138264729
Gremlin13
2006-01-26 11:38
2006.02.26
Как убрать нажатый Ctrl ?


15-1138713104
kozhanov
2006-01-31 16:11
2006.02.26
"резиновая" линия...


15-1139228044
Хинт
2006-02-06 15:14
2006.02.26
Фильтр HTML


1-1138202567
San#444
2006-01-25 18:22
2006.02.26
Активна не активна кнопка "Применить"





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