| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как проверить, есть ли среди 10 чисел повторяющиеся?
shane54 © (2002-05-14 17:38:00)Не поймите неправильно - перегрелся... 20 часов непрерывного кодинга - курсач горит...
Malder (2002-05-14 22:18:00) [1]Дремучий, логично =)
Дремучий (2002-05-14 21:59:00) [2]2 Malder
очеень большой массивзаводиться в комп не один день -
посему либо комп не выключать, либа в у файлик бросать, ну там, текстовый, типизированный а лучшее всего в локальную базу.
;)
Malder (2002-05-14 19:46:00) [3]Дремучий, хех. А зачем ты сюда базы данных приписл ? Не создавать же базу для данной цели =)
Дремучий (2002-05-14 18:32:00) [4]если массив очееньбольшой -
сравнивай а1 и а2
их разница = количеству повторов
SELECT count(DISTINCT(CHISLA)) a1
FROM "myarray.db"
SELECT count(CHISLA) a2
FROM "myarray.db"
;)
Alx2 (2002-05-14 17:41:00) [5]"в лоб" так как чисел мало :)
for k := 1 to 9 do
for l := k+1 to 10 do
if Values[k]=Values[l] then есть повтор
| |
