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

Вниз

Как проверить, есть ли среди 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 вся ветка

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

Наверх





Память: 0.45 MB
Время: 0.006 c
6-73333
Programmer1
2002-03-12 16:37
2002.05.23
Создание сетевого диска


7-73424
lipskiy
2002-02-25 16:18
2002.05.23
Как предотвратить ошибку EOleSysError для старой версии Shdocvw.dll (то есть, IE)?


7-73415
dlK
2002-02-26 15:47
2002.05.23
Как можно программно залочить машину в W2k AS ?


1-73179
-Jack-
2002-05-10 16:51
2002.05.23
Правка файла в HEX


3-73048
Oleg_er
2002-04-27 07:38
2002.05.23
В запросе ошибка - в чем проблема???





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