Сообщения без ответов | Активные темы


Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 7 
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  Steayer

Junior
Статус: Не в сети
Регистрация: 12.10.2010
Нужно составить программу которая из двух множеств (A, B) совпадающие елементыбудет копировать в третье множество С. Помогите, где взять код программы?
Реклама

Партнер
  mishgane

Member
Статус: Не в сети
Регистрация: 20.07.2004
Фото: 0
Steayer писал(а):
Помогите, где взять код программы?

Из головы :-)

viewtopic.php?f=28&t=78832
  derek_keiz

Member
Статус: Не в сети
Регистрация: 28.10.2007
Steayer
Пф, такое надо самому придумывать, ибо с этого начинается программирование как таковое.
Если не хочешь стать умным человеком - открой спойлер ;)
for i:= 1 to AN
for j:= 1 to BN
if B[j]=A[i] do begin
C[CN]:=B[j];
inc(CN);
end;
  Fallout 13

Member
Статус: Не в сети
Регистрация: 13.03.2009
Откуда: Новокузнецк
derek_keiz
молодец! садись - ДВА!

этож не массив а множество, есть куда более оптимальное решение, с одним циклом ;)
  Mamohtenok

Junior
Статус: Не в сети
Регистрация: 01.10.2009
О_О Зачем там вообще цикл?
Код:
const
  A: set of Byte = [1, 2, 5, 8, 13, 22, 124];
  B: set of Byte = [3, 8, 16, 21, 22, 23, 99, 101, 156];
var
  C: set of Byte;
  ...
begin
  ...
  C := A*B;
  ...
end

операция называется "пересечение множеств"
  derek_keiz

Member
Статус: Не в сети
Регистрация: 28.10.2007
Fallout 13
Божешь ты мой, объектники.
Я паскаль только для математики юзал)
  Steayer

Junior
Статус: Не в сети
Регистрация: 12.10.2010
Всем спасибо за ответы.
Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 7 
-

Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 12

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  

Лаборатория

Обзор ноутбука ASUS Zenbook DUO (UX8406)


Обзор и тестирование модульного блока питания MSI MAG A850GL PCIE5


Обзор и тестирование процессорного кулера APNX AP1-V


Обзор и тестирование материнской платы MSI Z790 Gaming Plus WIFI


Обзор и тестирование смартфона Honor X9b 5G





Новости
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan