Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2009, 13:09   #1
Juggernaut
Пользователь
 
Регистрация: 18.04.2009
Сообщений: 55
По умолчанию Математические операции

Помогите мне осуществить несколько математических операций над массивами (множествами):
пересечение (пр.: 12345 х 34567 = 345)
объединение (пр.: 12345 х 34567 = 1234567)
разность (пр.: 12345 \ 34567 = 12)
Очень нужно, а то на работе съедят))
Желательно не давать ссылки на компоненты типа MATLAB и др. Опишите как оно работает.
Весы слева, не забыли?

Абсурдопедия
Juggernaut вне форума Ответить с цитированием
Старый 21.04.2009, 13:22   #2
DM_bite
Участник клуба
 
Аватар для DM_bite
 
Регистрация: 29.07.2008
Сообщений: 1,091
По умолчанию

Цитата:
пересечение (пр.: 12345 х 34567 = 345)
объединение (пр.: 12345 х 34567 = 1234567)
разность (пр.: 12345 \ 34567 = 12)
Из обоих множеств выбираются общие элементы.Это и есть пересечение.
Объединение множеств - множество, в которое входят элементы и первого и второго множества.Разностью являются те элементы множества, которое есть только в первом множестве.Или нужен код?
Кто бы ты ни был - не думай о себе слишком (с)

Последний раз редактировалось DM_bite; 21.04.2009 в 13:31.
DM_bite вне форума Ответить с цитированием
Старый 21.04.2009, 13:25   #3
Juggernaut
Пользователь
 
Регистрация: 18.04.2009
Сообщений: 55
По умолчанию

Это я понимаю, википедия спасла, но вот как это реализовать в Delphi я и понятия не имею. Хотя, немного имею - пересечение написал, но может кто то лучше знает или делал это когда-либо раньше.
Весы слева, не забыли?

Абсурдопедия
Juggernaut вне форума Ответить с цитированием
Старый 21.04.2009, 13:37   #4
DM_bite
Участник клуба
 
Аватар для DM_bite
 
Регистрация: 29.07.2008
Сообщений: 1,091
По умолчанию

Цитата:
Это я понимаю, википедия спасла, но вот как это реализовать в Delphi я и понятия не имею. Хотя, немного имею - пересечение написал, но может кто то лучше знает или делал это когда-либо раньше.
Выложи код...
Кто бы ты ни был - не думай о себе слишком (с)
DM_bite вне форума Ответить с цитированием
Старый 21.04.2009, 13:40   #5
Juggernaut
Пользователь
 
Регистрация: 18.04.2009
Сообщений: 55
По умолчанию

Йопт... только сейчас вспомнил что я программу делаю на C... ну если сможете понять суть, то вылаживаю.

Код:
       ia=0;
                ib=0;
                ic=0;

                printf("\nIntersection selected... \n");
                printf("First set: ");
                printf(A);
                printf("\n");
                printf("Second set: ");
                printf(B);
                printf("\n");

                // î÷èñòêà ìàññèâà Ñ
                while (index2<1024)
                {
                        C[index2]=*"";
                        index2++;
                }

                while (ia<Acnt && ib<Bcnt)
                {
                        if (A[ia]==B[ib])
                        {
                                C[ic]=A[ia];
                                ib++;
                                ic++;
                        }
                        ia++;

                }


                if (ia>=Acnt || ib>=Bcnt)
                        {
                                _tprintf(_T("Result: "));
                                printf(C);
                        }
Весы слева, не забыли?

Абсурдопедия
Juggernaut вне форума Ответить с цитированием
Старый 21.04.2009, 14:13   #6
Juggernaut
Пользователь
 
Регистрация: 18.04.2009
Сообщений: 55
По умолчанию

Есть идеи DM_bite?
Весы слева, не забыли?

Абсурдопедия
Juggernaut вне форума Ответить с цитированием
Старый 22.04.2009, 10:34   #7
Juggernaut
Пользователь
 
Регистрация: 18.04.2009
Сообщений: 55
По умолчанию

Все, я все сделал, тему закрываю.
Весы слева, не забыли?

Абсурдопедия
Juggernaut вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Математические формулы в Delphi Botanik1987 Помощь студентам 10 25.02.2017 19:09
Математические операции Pascal Gonzo Помощь студентам 5 19.03.2009 13:49
Математические формулы в PHP kutt PHP 2 01.09.2008 23:33
Математические пакеты yudjin Общие вопросы Delphi 0 03.05.2008 09:02