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

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

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

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

Четырнадцать раз переделывал - не получается
Вот:
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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2012, 18:17
Ответы с готовыми решениями:

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

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

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

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

2
0 / 0 / 0
Регистрация: 17.05.2012
Сообщений: 3
22.05.2012, 12:14  [ТС] 2
что-то не так в строке 5
0
15141 / 6414 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
22.05.2012, 12:40 3
Нет, в строке 1
0
22.05.2012, 12:40
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2012, 12:40
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru