Delphi Помогите плз решить задачу с массивами

← →
KELA © (2008-11-29 15:17) [0]

Delphi Помогите плз решить задачу...

Есть stringgrid1 с числами
Нужно загнать числа в массив
Найти числа, повторяющиеся более одного раза
Составить новый массив

Заранее благодарен!

← →
Palladin © (2008-11-29 15:23) [1]

в чем именно проблема?

← →
kela © (2008-11-29 15:38) [2]

не могу составить алгоритм нахождения одинаковых чисел...

for i:=1 to N do
for j:=1 to i-1 do
if (a[j]=a[i]) then..

работает для 2-ух, но если больше, то глючит

← →
Leonid Troyanovsky © (2008-11-29 16:41) [3]

> kela © (29.11.08 15:38) [2]

> работает для 2-ух, но если больше, то глючит

Ясное дело - немасштабирумость.
Ну, или "проклятие размерности".

--
Regards, LVT.

← →
Anatoly Podgoretsky © (2008-11-29 17:14) [4]

> Palladin (29.11.2008 15:23:01) [1]

Проблема одна, где найти лоха.

← →
kela © (2008-11-29 17:24) [5]

Anatoly Podgoretsky, я просил помощи у людей знающих.
вы же, навеное, кажетесь умным только когда критикуете

← →
Palladin © (2008-11-29 17:35) [6]

люди знающие - есть люди знающие тонкости работы, тонкости использования тех или иных инструментов работы. поверь, Анатоль - человек знающий. однако вопрошенное тобой никоим образом не касается никаких тонкостей, вопрошенное тобой касается обучения, обучения построения алгоритмов и алгоритмистики как таковой. расслабся, здесь таким не занимаются. думать человек должен уметь сам, либо же цена ему - грош.

← →
Сергей М. © (2008-11-29 18:07) [7]

> KELA © (29.11.08 15:17)
>
> Delphi Помогите

Чем же тебе помочь, убогий ?

Неужто программу за тебя написать ?

← →
Anatoly Podgoretsky © (2008-11-29 18:16) [8]

> kela (29.11.2008 17:24:05) [5]

На большее сил не хватает, берегу для других.

> Сергей М. (29.11.2008 18:07:07) [7]

Не просто написать, а бесплатно. Пора форум называть delphiloh.ru
А то в последнее время недоучившиеся студенты delphimaster.ru окупировали.

В общем Маза Хака тебе ничего тут не светит.

минимальный индекс поди ноль

kela © (29.11.08 15:38) [2]
for i:=1 to N do
for j:=1 to i-1 do
if (a[j]=a[i]) then..

работает для 2-ух, но если больше, то глючит

Что-то я в толк не возьму, как оно хотя бы и для двух может работать. Если, конечно, там дальше проверки на i=j нет.

Delphi Помогите плз решить задачу с массивами Найти похожие ветки