| Вопрос: Помогите, пожалуйста, с матрицей!!! | Добавлено: 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 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 Автор ответа: major4ikICQ: 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-сайт: Профиль | | #6 | Добавлено: 13.05.08 00:06 |
|
1. Ошибся форумом.
2. Глянь на дату... |
||
|
Номер ответа: 7 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #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 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #8 | Добавлено: 14.05.08 23:49 |
|
Угу, я тоже ненавижу паскаль
Воротит от него |
||
Страница: 1 |