Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц, летом дешевле!

Ответ
 
Опции темы Поиск в этой теме
Старый 02.02.2011, 12:03   #1
andruxa-forever
Новичок
Джуниор
 
Регистрация: 15.06.2009
Сообщений: 2
По умолчанию Написать программу, которая формирует квадратную матрицу nxn

Написать программу, которая формирует квадратную матрицу
размером (nxn) по следующем принципу:
0 0 0 0 0 0 0 0 0
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 1 0 0 0 0 0 0 1
1 1 1 1 1 1 1 1 1
Число n задаётся пользователем. Матрица должна отображаться на форме в текстовом поле или
ином элементе управления.
Программа должна иметь возможность отражать матрицу по вертикали:
1 1 1 1 1 1 1 1 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
0 0 0 0 0 0 0 0 0
Полученная матрица должна сохраняться в текстовый файл (*.txt).
Всем доброго времени дня.....У меня такая проблема нужно написать программу в Visual Studio 2008, а я в нем вообще никак....помогите плизззз!!!
вот моё мыло andruxa-forever@mail.ru

есть код порграммы:
Код:
Option Explicit
Dim Matrix() As Integer
Dim i As Integer
Dim j As Integer
Private Sub Command1_Click()
Text1.Text = ""
Dim n As Integer
n = InputBox("Input the matrix dimension")
ReDim Matrix(1 To n, 1 To n)
For i = 1 To UBound(Matrix, 1)
For j = 1 To UBound(Matrix, 2)
If i = 1 Then
Matrix(i, j) = 0
ElseIf i = UBound(Matrix, 1) Then
Matrix(i, j) = 1
Else
If j = 1 Then
Matrix(i, j) = 1
ElseIf j = UBound(Matrix, 2) Then
Matrix(i, j) = 1
Else
Matrix(i, j) = 0
End If
End If
Next j
Next i
For i = 1 To UBound(Matrix, 1)
For j = 1 To UBound(Matrix, 2)
Text1.Text = Text1.Text & Matrix(i, j)
Next j
Text1.Text = Text1.Text & vbCrLf
Next i
End Sub
Private Sub Command2_Click()
Text1.Text = ""
For j = 1 To UBound(Matrix, 2)
i = 1
Matrix(i, j) = 1
Next j
For j = 1 To UBound(Matrix, 2)
i = UBound(Matrix, 1)
Matrix(i, j) = 0
Next j
For i = 1 To UBound(Matrix, 1)
For j = 1 To UBound(Matrix, 2)
Text1.Text = Text1.Text & Matrix(i, j)
Next j
Text1.Text = Text1.Text & vbCrLf
Next i
End Sub
Private Sub Command3_Click()
Open "C:\Documents and Settings\Пользователь\Рабочий стол\For Matrix.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 02.02.2011 в 14:26.
andruxa-forever вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц, летом дешевле!

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заполнить квадратную матрицу ac1d_buRn Помощь студентам 3 22.12.2010 19:40
Составить программу, которая заполняет квадратную матрицу... Катюшка_92 Общие вопросы C/C++ 1 18.09.2010 20:43
Задача на квадратную матрицу.. Razorishe Помощь студентам 4 17.03.2009 08:52
VBA построить квадратную матрицу Марат707 Microsoft Office Word 11 09.12.2008 07:31