|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.03.2017, 11:35 | #1 |
Новичок
Джуниор
Регистрация: 02.03.2017
Сообщений: 1
|
Образование массива из 2х заданных
Дана задача:
Даны 2 набора чисел М1 и М2. Вывести М3 набор, имеющий только общие элементы М1 и М2. Пример М1 - 3 1 3 4 2 4 12 11 9 3 М2 - 4 15 3 1 15 1 12 8 8 9 Пример набора М3 4 3 1 12 9 Как я понял, надо, чтобы программа каждый элемент 1-го массива проверяла со всеми элементами 2-го массива при этом записывая их куда-нибудь, думаю, что должно что-то вроде такого: procedure TForm1.Button1Click(Sender: TObject); var m1,m2: string; i,k,g: integer; begin k:=1; m1:= edit1.text; m2:= edit2.text; if length(m1)>length(m2) then g:=length(m1) else g:=length(m2); for i:=1 to g do if m1[k]=m2[i] then begin edit3.Text:=edit3.text+m1[k]; inc(k); end; end; Последний раз редактировалось ziker99; 02.03.2017 в 11:37. |
02.03.2017, 12:03 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
02.03.2017, 12:08 | #3 |
Участник клуба
Регистрация: 14.05.2016
Сообщений: 1,793
|
Попробуй сделать "цикл в цикле":
Код:
Код:
|
02.03.2017, 12:10 | #4 |
Участник клуба
Регистрация: 14.05.2016
Сообщений: 1,793
|
Пока писал,
Aleksandr H. ответил. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выделить из заданных точек вершины квадрата, содержащего максимальное число заданных точек | Kef1r | C# (си шарп) | 8 | 12.01.2017 16:00 |
[Delphi]: Сортировка массива, состоящего из максимальных элементов заданных матриц | hozer | Помощь студентам | 2 | 05.12.2016 23:32 |
Дистанционное образование | ds.Dante | Свободное общение | 36 | 04.03.2014 22:00 |
Образование | [iT]aNYBis | Свободное общение | 19 | 21.10.2010 20:33 |
Заочное образование | хим | Свободное общение | 5 | 16.04.2010 04:20 |