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

Как проверить, есть ли среди 10 чисел повторяющиеся?   Найти похожие ветки 

← →
shane54 ©   (2002-05-14 17:38) [0]

Не поймите неправильно - перегрелся... 20 часов непрерывного кодинга - курсач горит...

---

← →
Alx2 ©   (2002-05-14 17:41) [1]

"в лоб" так как чисел мало :)
for k := 1 to 9 do
for l := k+1 to 10 do
if Values[k]=Values[l] then есть повтор

---

← →
Дремучий ©   (2002-05-14 18:32) [2]

если массив очеень большой -
сравнивай а1 и а2
их разница = количеству повторов

SELECT count(DISTINCT(CHISLA)) a1
FROM "myarray.db"

SELECT count(CHISLA) a2
FROM "myarray.db"

;)

---

← →
Malder ©   (2002-05-14 19:46) [3]

Дремучий, хех. А зачем ты сюда базы данных приписл ? Не создавать же базу для данной цели =)

---

← →
Дремучий ©   (2002-05-14 21:59) [4]

2 Malder
очеень большой массив заводиться в комп не один день -
посему либо комп не выключать, либа в у файлик бросать, ну там, текстовый, типизированный а лучшее всего в локальную базу.

;)

---

← →
Malder ©   (2002-05-14 22:18) [5]

Дремучий, логично =)

---

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

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



Память: 0.45 MB
Время: 0.012 c