0 / 0 / 0
Регистрация: 17.05.2012
Сообщений: 3

Для каждого из массивов определить повторяющиеся элементы

17.05.2012, 18:17. Показов 1282. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
"Подпрограммы." Заданы три одномерных массива разной размерности. Для каждого из массивов определить повторяющиеся элементы. Помогите, пожалуйста!

Четырнадцать раз переделывал - не получается
Вот:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub main()
Dim A() As Double
Dim B() As Double
Dim C() As Double
Private Sub rep(mas, r, d)
Dim d As Integer
Dim mas(d) As Double
Dim r(d) As Double
Dim k As Integer
Dim j As Integer
 Worksheets("Лист1").Cells(1, 1) = "Массивы A, B и C:"
For k = 1 To d
    For j = k + 1 To d - k
       If mas(k) = mas(j) Then r(k) = mas(k)
       End If
    Next j
Next k
End Sub
 
 
Sub main()
Dim masA() As Integer
Dim masB() As Integer
Dim masC() As Integer
Dim r1 As String
Dim r2 As String
Dim r3 As String
N = InputBox("Число элементов массива A")
ReDim masA(1 To N)
For i = 1 To N
   masA(i) = InputBox("Введите элементов(" & i & "):")
   Worksheets("Лист1").Cells(i + 1, 1) = masA(i)
Next i
M = InputBox("Число элементов массива B")
ReDim masB(1 To M)
For j = 1 To M
   masB(j) = InputBox("Введите элемент(" & j & "):")
   Worksheets("Лист1").Cells(i + 1, 2) = masB(j)
Next j
L = InputBox("Число элементов массива C")
ReDim masC(1 To L)
For S = 1 To L
   masC(S) = InputBox("Введите элемент(" & S & "):")
   Worksheets("Лист1").Cells(i + 1, 3) = masC(S)
Next S
rep A, masA, N
rep B, masB, M
rep C, masC, L
MsgBox "Повторяющиеся элементы в массиве A: & masA & "
MsgBox "Повторяющиеся элементы в массиве B: & masB & "
MsgBox "Повторяющиеся элементы в массиве C: & masC & "
End Sub
Подкорректируйте, пожалуйста.
Заранее спасибо!)
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
17.05.2012, 18:17
Ответы с готовыми решениями:

Заданы три одномерных массива разной размерности Для каждого из массивов определить повторяющиеся элементы
ЕСТЬ ОСНОВНОЙ КОД ПРОГРАММЫ,НО ВЫДАЕТ ОШИБКУ.Пожалуйста,помогите! Sub main() Dim A() As Double Dim B() As Double Dim C() As...

Для каждого из массивов определить количество и сумму элементов, которые без остатка делятся на число В
Оч прошу о помощи! Задание такое: Заданы одномерные массивы Х(5) и Y(7). Для каждого из них определить количество и сумму элементов,...

Для каждого из заданных массивов определить второй отрицательный элемент массива и переставить его местами с первым по порядку элементом этого массива
Добрый день! помогите написать программы на VBA: №1. Заданы массивы А(40), В(20). С(30). Для каждого из заданных массивов определить...

2
0 / 0 / 0
Регистрация: 17.05.2012
Сообщений: 3
22.05.2012, 12:14  [ТС]
что-то не так в строке 5
0
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
22.05.2012, 12:40
Нет, в строке 1
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
22.05.2012, 12:40
Помогаю со студенческими работами здесь

Подпрограммы: для каждого из массивов вывести на печать повторяющиеся элементы, и количество их повторений
Задачка: Заданы три одномерных массива разной размерности.Для каждого из массивов вывести на печать повторяющиеся элементы и количество...

Распечатать все элементы кратные 7, для каждого из трех целочисленных массивов
написать программу с использованием процедуры или функции, которая распечатывает все элементы кратные 7, для каждого из 3-х челочисленных...

Для каждого из заданных массивов найти наименьший и наибольший элементы и их номера
Помогите, напишите программу: Даны три одномерные массивы, каждый из которых имеет произвольное количество элементов. Для каждого из них...

Для каждого из массивов S(11), Р(9) все отрицательные элементы поделить на значение максимального элемента
Для каждого из массивов S(11), Р(9) все отрицательные элементы поделить на значение максимального элемента. Вывести исходные и...

Для каждого из массивов определить среднее арифметическое положительных элементов
Есть одномерные материальные массивы А =i]l , В = i]m, С =i]n . . Для каждого из них определить среднее арифметическое положительных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

Новые блоги и статьи
CQRS (Command Query Responsibility Segregation) на Java
Javaican 12.05.2025
CQRS — Command Query Responsibility Segregation, или разделение ответственности команд и запросов. Суть этого архитектурного паттерна проста: операции чтения данных (запросы) отделяются от операций. . .
Шаблоны и приёмы реализации DDD на C#
stackOverflow 12.05.2025
Когда я впервые погрузился в мир Domain-Driven Design, мне показалось, что это очередная модная методология, которая скоро канет в лету. Однако годы практики убедили меня в обратном. DDD — не просто. . .
Исследование рантаймов контейнеров Docker, containerd и rkt
Mr. Docker 11.05.2025
Когда мы говорим о контейнерных рантаймах, мы обсуждаем программные компоненты, отвечающие за исполнение контейнеризованных приложений. Это тот слой, который берет образ контейнера и превращает его в. . .
Micronaut и GraalVM - будущее микросервисов на Java?
Javaican 11.05.2025
Облачные вычисления безжалостно обнажили ахиллесову пяту Java — прожорливость к ресурсам и медлительный старт приложений. Традиционные фреймворки, годами радовавшие корпоративных разработчиков своей. . .
Инфраструктура как код на C#
stackOverflow 11.05.2025
IaC — это управление и развертывание инфраструктуры через машиночитаемые файлы определений, а не через физическую настройку оборудования или интерактивные инструменты. Представьте: все ваши серверы,. . .
Инъекция зависимостей в ASP.NET Core - Практический подход
UnmanagedCoder 11.05.2025
Инъекция зависимостей (Dependency Injection, DI) — это техника программирования, которая кардинально меняет подход к управлению зависимостями в приложениях. Представьте модульный дом, где каждая. . .
Битва за скорость: может ли Java догнать Rust и C++?
Javaican 11.05.2025
Java, с её мантрой "напиши один раз, запускай где угодно", десятилетиями остаётся в тени своих "быстрых" собратьев, когда речь заходит о сырой вычислительной мощи. Rust и C++ традиционно занимают. . .
Упрощение разработки облачной инфраструктуры с Golang
golander 11.05.2025
Причины популярности Go в облачной инфраструктуре просты и одновременно глубоки. Прежде всего — поразительная конкурентность, реализованная через горутины, которые дешевле традиционных потоков в. . .
Создание конвейеров данных ETL с помощью Pandas
AI_Generated 10.05.2025
Помню свой первый опыт работы с большим датасетом — это была катастрофа из неотформатированных CSV-файлов, странных значений NULL и дубликатов, от которых ехала крыша. Тогда я потратил три дня на. . .
C++ и OpenCV - Гайд по продвинутому компьютерному зрению
bytestream 10.05.2025
Компьютерное зрение — одна из тех технологий, которые буквально меняют мир на наших глазах. Если оглянуться на несколько лет назад, то сложно представить, что алгоритмы смогут не просто распознавать. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru