Форум: "Начинающим";
Текущий архив: 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