Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.033 c