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

Исправить программу, чтобы матрица вводилась не с TextBox, а с консоли

04.01.2014, 02:56. Показов 368. Ответов 0
Метки нет (Все метки)

Всем привет, можете ету программу переписать из button и textbox-сами для ввода данных в матрицы, а то у меня не получаеться((

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
92
93
94
95
96
97
98
99
100
101
102
103
Imports Microsoft.VisualBasic.Interaction
Imports System
Public Class Form1
 
Public Class Application
        Public Shared Sub Main()
            Console.Write("Введите размерность матрицы N = ")
 
            Dim _N As Integer = 0
 
            Try
                _N = Convert.ToInt32(Console.ReadLine())
            Catch ex As Exception
                Console.WriteLine("Ошибка ввода размерности: " + ex.Message)
                Console.WriteLine("Нажмите любую кнопку для выхода...")
                Console.ReadKey()
                Return
            End Try
 
            Console.WriteLine("Ввод элементов первой матрицы...")
            Dim _MatrixA(_N, _N) As Integer
            Try
                DefineMatrix(_MatrixA, _N)
            Catch ex As Exception
                Console.WriteLine("Ошибка ввода элемента матрицы: " + ex.Message)
                Console.WriteLine("Нажмите любую кнопку для выхода...")
                Console.ReadKey()
                Return
            End Try
            Console.WriteLine("Ввод элементов первой матрицы завершен.")
 
            Console.WriteLine("Ввод элементов второй матрицы...")
            Dim _MatrixB(_N, _N) As Integer
            Try
                DefineMatrix(_MatrixB, _N)
            Catch ex As Exception
                Console.WriteLine("Ошибка ввода элемента матрицы: " + ex.Message)
                Console.WriteLine("Нажмите любую кнопку для выхода...")
                Console.ReadKey()
                Return
            End Try
            Console.WriteLine("Ввод элементов второй матрицы завершен.")
 
            Dim _Result(_N, _N) As Integer
 
            For i As Integer = 0 To _N - 1
                For j As Integer = 0 To _N - 1
                    For k As Integer = 0 To _N - 1
                        _Result(i, j) = _Result(i, j) + _MatrixA(i, k) * _MatrixB(k, j)
                    Next
                Next
            Next
 
            Console.WriteLine("Результат:")
 
            For i As Integer = 0 To _N - 1
                WriteMatrixRow(_MatrixA, _N, i)
 
                If (i = 1) Then
                    Console.Write("*")
                Else
                    Console.Write(" ")
                End If
 
                WriteMatrixRow(_MatrixB, _N, i)
 
                If (i = 1) Then
                    Console.Write("=")
                Else
                    Console.Write(" ")
                End If
 
                WriteMatrixRow(_Result, _N, i)
 
                Console.WriteLine()
            Next
 
            Console.WriteLine("Нажмите любую кнопку для выхода...")
            Console.ReadKey()
        End Sub
 
        Shared Sub DefineMatrix(ByVal _Matrix(,) As Integer, ByVal _N As Integer)
            For i As Integer = 0 To _N - 1
                For j As Integer = 0 To _N - 1
                    Console.Write("Введите элемент матрицы [" + (i + 1).ToString() + "," + (j + 1).ToString() + "] = ")
                    _Matrix(i, j) = System.Convert.ToInt32(Console.ReadLine())
                Next
            Next
        End Sub
 
        Shared Sub WriteMatrixRow(ByVal _Matrix(,) As Integer, ByVal _N As Integer, ByVal _Row As Integer)
            Console.Write("|")
 
            For i As Integer = 0 To _N - 1
                If i > 0 Then Console.Write(",")
 
                Console.Write(String.Format("{0,3}", _Matrix(_Row, i)))
            Next
 
            Console.Write("|")
        End Sub
    End Class
End Class
0

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

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

Исправить чтобы окно консоли не изчезало
Дан целочисленный массив A(n) с элементами, сгенерированными случайными числами в диапазоне (-20,...

Написать главную функцию программы, в которой бы вводилась простая матрица и выводилась обратная ей
Здравствуйте))) Есть код для функции программы, которая вычисляет обратную матрицу методом гаусса....

Сделать так, чтобы вводилась функция и сразу же строился график
Пытаюсь сделать так , чтобы вводилась функция и сразу же строился график , рационален ли код и в...

Настроить, чтобы в начале нового предложения заглавная буква вводилась автоматически
Проблема с набором текста в Word 7. Подскажите, где настроить, чтобы в начале нового предложения...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.01.2014, 02:56

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

ComboBox. Как разделить строку, чтобы часть слов вводилась в Memo, а остальное переменную String ?
Как разделить выбранную строку ComboBox, чтобы часть слов вводилась в Memo, а остальное в...

Исправить код, чтобы при нажатии на кнопку, текст автоматически заносился в TextBox
добрый вечер. Подскажите как исправить код,чтобы при нажатии на кнопку, текст автоматически ...

Подскажите как исправить, чтобы выводило все в textbox (что нашло), а не только последнюю запись
private void button1_Click(object sender, EventArgs e) { textBox1.Text =...

Обратная матрица. Исправить программу
Здравствуйте! Мне нужно найти обратную матрицу (7Х7). Я на этом форуме поискала,нашла...

Исправить программу, чтобы присутствовало наследование
Здравствуйте, написал программу, которая имеет 4 класса, она рисует на экране...

Исправить программу, чтобы читала строку с пробелами
#include "stdafx.h" #include <stdio.h> #include <conio.h> #include <iostream> #include <string>...


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

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

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