VBNet - Форум - Задача на visual basic

Вопрос: Задача на visual basic Добавлено: 14.11.11 22:08

Автор вопроса: Алексей

Здравствуйте, помогите пожалуйста найти полную систему абсолютно наименьших вычетов. Спасибо!

Public Class Form1
    Dim A, B, M, min As Integer
    Dim kv(1000) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        A = TextBox1.Text
        B = TextBox2.Text
        M = TextBox3.Text
        RichTextBox1.Text = ""
        RichTextBox2.Text = ""
        RichTextBox3.Text = ""
        RichTextBox4.Text = ""
        If (A Mod M) = (B Mod M) Then Label8.Text = "Сравнимы" Else Label8.Text = "Не сравнимы"
        DataGridView1.ColumnCount = M + 1
        DataGridView1.RowCount = M + 1

        DataGridView2.ColumnCount = M + 1
        DataGridView2.RowCount = M + 1
        For i = 0 To M - 1
            RichTextBox1.Text = RichTextBox1.Text + "[" + CStr(i) + "]" + Chr(10)
            DataGridView1(i + 1, 0).Value = "[" + CStr(i) + "]"
            DataGridView1(0, i + 1).Value = "[" + CStr(i) + "]"
            DataGridView1.Columns(i).Width = 50

            DataGridView2(i + 1, 0).Value = "[" + CStr(i) + "]"
            DataGridView2(0, i + 1).Value = "[" + CStr(i) + "]"
            DataGridView2.Columns(i).Width = 50

        Next
        For i = 0 To M - 1
            For j = 0 To M - 1
                DataGridView1(i + 1, j + 1).Value = ((i + j) Mod M) //Сложение классов вычетов
                DataGridView2(i + 1, j + 1).Value = ((i * j) Mod M) //Умножение классов вычетов
            Next
        Next
        For i = 0 To M - 1
            For j = 0 To 10
                kv(j) = M * (j - 5) + i
            Next

            min = kv(10)
            For j = 10 To 0 Step -1
                If (kv(j) < min) And (kv(j) >= 0) Then min = kv(j)
            Next
            RichTextBox2.Text = RichTextBox2.Text + CStr(min) + Chr(10) //Полная система наименьших положительных вычетов

            min = kv(10)
            For j = 10 To 0 Step -1
                If (kv(j) < min) And (kv(j) > 0) Then min = kv(j)
            Next
            RichTextBox3.Text = RichTextBox3.Text + CStr(min) + Chr(10) //Полная система наименьших не отрицательных вычетов

          ???  //Полная система абсолютно наименьших вычетов
        Next
    End Sub
End Class

Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Алексей Вопросов: 3 Ответов: 3	Профиль \| \| #1	Добавлено: 14.11.11 22:17
	Вот скрин формы с параметрами http://imageshost.ru/photo/90026/id1042256.html Ответить

Страница: 1 |