Главная страница
    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.031 c
1-73222
ДЖИН
2002-05-14 23:38
2002.05.23
Класс TStrings


1-73106
Carpenter
2002-05-07 19:54
2002.05.23
динамические массивы как параметры функции в DLL


1-73104
MaximatorVeter
2002-05-12 20:03
2002.05.23
Избыточность данных при наследовании


7-73429
avk
2002-02-22 10:43
2002.05.23
screenshot and DOS


3-73013
ZDN
2002-04-26 08:44
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский