Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Visual Basic .NET Использование MsgBox с кнопками "Да" и "Нет" https://www.cyberforum.ru/ vb-net/ thread1063078.html
Доброго всем времени суток! Пишу игрушку и не могу понять, как задать функции для кнопок которые открываются в MsgBox. Например: при нажатии кнопки выход идет проверка условия была ли нажата кнопка...
Создание WPF UserControl в Expression Blend Visual Basic .NET
Доброе время суток. Я недавно начал изучать vb, поэтому имеется ряд вопросов, работаю в Visual Studio 2010 pro. Очень долго искал информацию о реализации списка контактов такого вида (вложение),...
Исправить программу, чтобы матрица вводилась не с TextBox, а с консоли Visual Basic .NET
Всем привет, можете ету программу переписать из button и textbox-сами для ввода данных в матрицы, а то у меня не получаеться(( Imports Microsoft.VisualBasic.Interaction Imports System Public...
Visual Basic .NET Перевести код с С# на VB.net Народ всех С Новым Годом! и помогите перекодить с С# на VB.net сразу говару на developerfusion.com/tools/convert/csharp-to-vb/ был код не работает, тачней одна строчка портит всю картину. Вот код... https://www.cyberforum.ru/ vb-net/ thread1062379.html
Visual Basic .NET Заливка фигур из файла BMP https://www.cyberforum.ru/ vb-net/ thread1062366.html
Помогите пожалуйста, я новичок. Есть bmp файл с неизвестной фигурой, её надо залить другим цветом. Как это реализовать?
Visual Basic .NET Массив из m последних элементов другого массива
Здравствуйте. Подскажите как реализовать следующую задачу: сгенерировать массив размерностью n, из случайных чисел расположенных на отрезке , отсортировав его по возрастанию, а затем из m...
Visual Basic .NET Как получить первый кадр из видеофайла
Здравствуйте, уважаемые форумчане. Прошу помощи в решении такой задачи: Как получить первый кадр из видеофайла. Практически, вопрос решен при помощи контрола RVK.Viewer, но меня больше интересует...
Visual Basic .NET Вылезает ошибка при отправке пакета: "A first chance exception of type 'System.Net.WebException' occurred in System.dll" Код выглядит так. Function getsid(login As String, password As String) As String Dim token As String Dim user As String Dim sCookies As String Dim... https://www.cyberforum.ru/ vb-net/ thread1061866.html
Visual Basic .NET Как определить что пользователь нажал на сообщение (ShowBalloonTip) ? https://www.cyberforum.ru/ vb-net/ thread1061861.html
Как определить что пользователь нажал на сообщение (ShowBalloonTip) ? Пример сообщения : NotifyIcon1.ShowBalloonTip(5000, "Сообщение", "Программа была свёрнута в трей." & vbCrLf & "Что...
Visual Basic .NET Как убрать из пути имя диска С новым годом! Ребята огромное спасибо Всем почти закончил проект (https://www.cyberforum.ru/vb-net/thread1055952-new-post.html), но возникла еще одна проблема и так если я проект скопирую с одного... https://www.cyberforum.ru/ vb-net/ thread1061702.html
3 / 3 / 3
Регистрация: 18.11.2011
Сообщений: 286
05.01.2014, 01:47  [ТС] 0

Декартово произведение элементов массивов - Visual Basic .NET - Ответ 5595025

05.01.2014, 01:47. Показов 1195. Ответов 7
Метки (Все метки)

Ответ

Цитата Сообщение от insite2012 Посмотреть сообщение
Теория мне известна. А если поточнее, какие элементы исключить? Повторяющиеся пары после произведения?

Добавлено через 48 минут
Для начала вот так. Дальше доделаете сами?

Мой вариант:
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Public Class Form1
    Public a, b, m, n, mnA, mnB, pX, pY, xxy, u As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (TextBox1.Text = "") Or (TextBox2.Text = "") Or (TextBox3.Text = "") Or (TextBox8.Text = "") Then
            MsgBox("Не указаны необходимые параметры!", MsgBoxStyle.Critical)
        Else
 
            a = Val(TextBox2.Text)
            b = Val(TextBox3.Text)
            m = Val(TextBox8.Text)
            n = Val(TextBox1.Text)
 
            TextBox4.Clear()
            TextBox5.Clear()
 
 
            Dim t As Integer
            Dim mnA(n) As Integer
 
            TextBox4.Text = ""
            Debug.WriteLine("")
            For i = 1 To n
m:              Randomize()
                t = a + (b - a) * Rnd()
                For j = 1 To n
                    If t = mnA(j) Then GoTo m
                Next
                mnA(i) = t
 
            Next
 
            For i = 1 To n
                For j = 1 To n - 1
                    If mnA(j) > mnA(j + 1) Then
                        t = mnA(j)
                        mnA(j) = mnA(j + 1)
                        mnA(j + 1) = t
                    End If
                Next j
            Next i
            For i = 1 To n
                TextBox4.Text += CStr(mnA(i)) + Space(3)
            Next i
 
            Dim r As Integer
            Dim mnB(n) As Integer
 
            TextBox5.Text = ""
            Debug.WriteLine("")
            For i = 1 To n
z:              Randomize()
                t = a + (b - a) * Rnd()
                For j = 1 To n
                    If t = mnB(j) Then GoTo z
                Next
                mnB(i) = t
 
            Next
 
            For i = 1 To n
                For j = 1 To n - 1
                    If mnB(j) > mnB(j + 1) Then
                        t = mnB(j)
                        mnB(j) = mnB(j + 1)
                        mnB(j + 1) = t
                    End If
                Next j
            Next i
            For i = 1 To n
                TextBox5.Text += CStr(mnB(i)) + Space(3)
            Next i
 
            TextBox7.Clear()
            TextBox9.Clear()
            Dim itemsTodisplay = m
            Dim itemsInArray As Integer = mnA.Length
            Dim itemsInArray1 As Integer = mnB.Length
            Dim firstItem As Integer = (itemsInArray - itemsTodisplay)
            If firstItem >= 0 Then
                For i = firstItem To (itemsInArray - 1)
                    TextBox9.Text += CStr(mnA(i)) + Space(3)
                    TextBox7.Text += CStr(mnB(i)) + Space(3)
                Next i
            End If
        End If
 
 
 
 
    End Sub
Интересует как то что я вывел в textbox9 и textbox7 преобразовать в массивы mnX и mnY,и выполнить их декартово произведение,сключив при необходимости совпадающие элементы произведения.

Вернуться к обсуждению:
Декартово произведение элементов массивов Visual Basic .NET
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.01.2014, 01:47

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

Декартово произведение
A = {a,b,c} B={a,b,{c}} Я знаю, как декартово произведение множеств находится, но когда во...

Выполнить декартово произведение
Вобщем имеем масив Х={1,2,3,4,5}(одномерный) дальше мы должны выполнить декартово произведение ...

Декартово произведение множеств
Посчитайте |(A\times B)\backslash (C\times...

Декартово произведение множеств
Найти n-ю степень множества X=\{\{ \empty\}, y\}, если n=2

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