Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
1 / 1 / 1
Регистрация: 15.10.2013
Сообщений: 32
1

Подсчитать число случаев равенства пары элементов векторов

04.11.2015, 09:14. Показов 1100. Ответов 3
Метки нет (Все метки)

Для заданных целочисленных векторов X1, X2, ..., Xn и Y1, Y2, ... , Yn,
проверяя на равенство элементы пар (X1, Y1), (X2, Y2), ... ,( Xn, Yn), подсчитать
число случаев равенства пары элементов, а также среднее арифметическое
элементов X1, X2, ..., Xn
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2015, 09:14
Ответы с готовыми решениями:

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

подсчитать число случаев равенства элементов пары; одновременно найти средне арифметическое элементов Х1,Х2,...,Хn.
При заданных Х1,Х2,...,Хn и Y1,Y2,...,Yn(массив), проверяя на равенство элементы пар...

Подсчитать число случаев неравенства элементов пары
При заданных X1,X2,...,Хn и Y1, Y2,...,Yn проверяя на равенство элементы пар (Х1,Y1),(X2, Y2),...,...

Подсчитать количество случаев равенства двух чисел, идущих друг за другом
Привет всем! Помогите, пожалуйста, с задачей) Ввести N чисел. Подсчитать количество случаев...

3
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
04.11.2015, 14:07 2
В чем проблема?
1. Задаете вектора двумя массивами
2. В цикле сравниваете эти массивы
3. Инициируете счетчик
4. В случае равенства счетчик увеличивает
свое значение на 1
5. В этом же цикле считаете сумму элементов
первого массива
6. Выйдя из цикла определяете среднее арифметическое
7. Распечатайте результат (если нужно)
8. Программу выкладываете на форум
9. Если что не так. Мы вам поможем.
10. Удачи вам!
1
1 / 1 / 1
Регистрация: 15.10.2013
Сообщений: 32
16.11.2015, 14:29  [ТС] 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Рабочая программа:
VB.NET
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
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a() As Integer
        Dim b() As Integer
        Dim i As Integer, j As Integer, s As Integer, n As Integer, z As Integer, sr As Integer, o As Integer
 
        n = InputBox("Введите размер массивов")
        s = 0
        sr = 0
        ReDim a(n)
        For i = 0 To n
            a(i) = InputBox("Введите " & i & "-й элемент первого массива")
        Next i
 
        ReDim b(n)
        For j = 0 To n
            b(j) = InputBox("Введите " & j & "-й элемент второго массива")
        Next j
 
        For i = 0 To n
            z = z + 1
            s = s + a(i)
            sr = s / z
        Next i
 
        For i = 0 To n
            If a(i) = b(i) Then
                o = o + 1
 
            End If
        Next
        MsgBox("Среднее арифмитическое первого массива = " & sr)
        MsgBox("Количество случаев совпадения x(n) c y(n) = " & o)
 
 
 
    End Sub
End Class
1
3808 / 3035 / 730
Регистрация: 02.02.2013
Сообщений: 2,923
Записей в блоге: 2
16.11.2015, 19:49 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Можно так
VB.NET
1
2
3
4
5
6
7
8
9
10
Dim xx() As Integer = {2, 1, 6, 4, 1, 2, 2}
Dim yy() As Integer = {5, 8, 7, 9, 8, 2, 5}
Dim averageXX = xx.Average()
MsgBox("Среднее xx = " & averageXX.ToString)
Dim ss(xx.Length - 1) As String
For i = 0 To xx.Length - 1
    ss(i) = xx(i).ToString & "-" & yy(i).ToString
Next
Dim nn = ss.Count - ss.Distinct().Count()
MsgBox("Число пар удовлетворяющих условию равенства = " & nn.ToString)
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.11.2015, 19:49

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Ввести N чисел. Подсчитать количество случаев равенства двух чисел, идущих друг за другом
Привет всем! Помогите, пожалуйста, с задачей) Ввести N чисел. Подсчитать количество случаев...

Подсчитать число случаев f1(xj)>f2(xj)
составить функцию P которая подсчитывает число случаев f1(xj)>f2(xj) и находит сумму значений...

Замена пары дефисов на тире, кроме особых случаев
Я делаю в форумном движке замену сдвоенных дефисов на тире таким вот образом:...

Подсчитать все пары элементов в списке
Помогите плиз решить эту задачу - Посчитать все пары элементов в списке


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.