VBNet - Форум - Помогите, пожалуйста, с матрицей!!!

Вопрос: Помогите, пожалуйста, с матрицей!!! Добавлено: 20.12.05 17:30

Автор вопроса: Дымка

Очень нужна помощь!! В Бейсике почти ноль, а сделать как-то надо.. Нужно сформировать квадратную матрицу порядка n по заданному образцу:
1 2 3...n-2 n-1 n
2 3 4...n-1 n 0
3 4 5... n 0 0
... ... ... ... ...
n-1 n 0...0 0 0
n 0 0 ... 0 0 0
Ответить

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

Номер ответа: 1 Автор ответа: SerJ Вопросов: 24 Ответов: 332	Профиль \| Цитата \| #1	Добавлено: 20.12.05 18:39
	Private Sub Command1_Click() Dim Matrix() As Integer Dim cn As Integer Dim x As Integer, y As Integer cn = InputBox("Введите порядок матрицы", "Ввод числового значения" ReDim Matrix(cn, cn) For x = 1 To cn For y = 1 To cn Matrix(x, y) = y + x - 1 If Matrix(x, y) > cn Then Matrix(x, y) = 0 Next Next For x = 1 To cn For y = 1 To cn Print Matrix(x, y); Next Print Next End Sub Ответить

Номер ответа: 2 Автор ответа: SerJ Вопросов: 24 Ответов: 332	Профиль \| Цитата \| #2	Добавлено: 20.12.05 18:41
	А, ещё одна деталь: после Dim x As Integer, y As Integer поставь Me.Cls Ответить

Номер ответа: 3 Автор ответа: Дымка Вопросов: 2 Ответов: 2	Профиль \| Цитата \| #3	Добавлено: 20.12.05 20:57
	Спасибо большое Ответить

Номер ответа: 4 Автор ответа: Страшный Сон Вопросов: 46 Ответов: 848	Профиль \| Цитата \| #4	Добавлено: 20.12.05 23:59
	Я через структуру делал: Public Type Matrix3D X_X As Double X_Y As Double X_Z As Double X_1 As Double Y_X As Double Y_Y As Double Y_Z As Double Y_1 As Double Z_X As Double Z_Y As Double Z_Z As Double Z_1 As Double I_X As Double I_Y As Double I_Z As Double I_1 As Double End Type Если нужно, могу выложить функции сложения и умножения 3D-матриц. Ответить

Номер ответа: 5 Автор ответа: major4ik ICQ: 479914412 Вопросов: 0 Ответов: 1	Профиль \| Цитата \| #5	Добавлено: 12.05.08 19:40
	ПОМОГИТЕ ПОЖАЛУЙСТА!!!! КТо может составить программу на языке PascalНужно сформировать квадратную матрицу порядка n по заданному образцу: 1 2 3 … n-2 n-1 n 2 3 4 … n-1 n 0 3 4 5 … n 0 0 …………………………… n-1 n 0 … 0 0 0 n 0 0 … 0 0 0 Ответить

Номер ответа: 6 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| Цитата \| #6	Добавлено: 13.05.08 00:06
	1. Ошибся форумом. 2. Глянь на дату... Ответить

Номер ответа: 7 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| Цитата \| #7	Добавлено: 13.05.08 05:56
	for i := 1 to n do begin for j := 1 to n do begin v := i + j - 1; if v > n then v := 0; a(i, j) := v; end; end; Фу, какая гадость. Ответить

Номер ответа: 8 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| Цитата \| #8	Добавлено: 14.05.08 23:49
	Угу, я тоже ненавижу паскаль Воротит от него Ответить

Страница: 1 |