Квадратная матрица.

@Wind · Регистрация: 03.06.2011

Студворк — интернет-сервис помощи студентам

Написать подпрограмму,меняющую К-тую строку квадратной матрицы порядка N c K-тым столбцом.
Номер строки К и порядок матрицы ввести с клавиатуры.
2 1 2 0 0 0 0 0...
1 2 1 2 0 0 0 0...
2 1 2 1 2 0 0 0...
0 2 1 2 1 2 0 0...
0 0 2 1 2 1 2 0...
0 0 0 2 1 2 1 2...
0 0 0 0 2 1 2 1...
0 0 0 0 0 2 1 2...
........................

Пожалуйста,помогите решить. Очень нужно.
Заранее благодарю)

Добавлено через 14 часов 25 минут
Люди помогите,пожалуйста. Очень нужно решение задачи(((

@Busine2009 · 04.06.2011, 15:07

Wind,
выложите код, который вы писали, но у вас не получилось.

@all_angarsk · 04.06.2011, 15:19

Visual Basic
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
Private Sub CommandButton1_Click()
Dim s() As Integer, strK() As Integer, stlK() As Integer
Dim k As Integer, n As Integer
n = InputBox("Введите размер матрицы", "N", "7")
M: k = InputBox("Введите номер строки", "K", "5")
If k > n Then
MsgBox "Вы ввели строку за приделами порядка матрицы = " & n & " введите меньше"
GoTo M
End If
ReDim s(n, n) As Integer, strK(n) As Integer, stlK(n) As Integer
For i = 1 To n
For j = 1 To n
s(i, j) = Rnd() * 100 - 50
Cells(i + 1, j + 1) = s(i, j)
If i = k Then
strK(j) = s(i, j)
End If
If j = k Then
stlK(i) = s(i, j)
End If
Next
Next
For i = 1 To n
Cells(i + 3, 11) = stlK(i)
Cells(i + 3, 12) = strK(i)
Next
 
For i = 1 To n
For j = 1 To n
 
If i = k Then
 s(i, j) = stlK(j)
End If
If j = k Then
 s(i, j) = strK(i)
End If
Cells(i + 3 + n, j + 1) = s(i, j)
Next
Next
End Sub

@Wind · 04.06.2011, 17:22 **[ТС]**

Огромное спасибо)))

Добавлено через 3 минуты
all_angarsk,
Большое Вам спасибо)))

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Wind 0 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 3

	Квадратная матрица. 04.06.2011, 09:36. Показов 1332. Ответов 3 Метки нет (Все метки) Написать подпрограмму,меняющую К-тую строку квадратной матрицы порядка N c K-тым столбцом. Номер строки К и порядок матрицы ввести с клавиатуры. 2 1 2 0 0 0 0 0... 1 2 1 2 0 0 0 0... 2 1 2 1 2 0 0 0... 0 2 1 2 1 2 0 0... 0 0 2 1 2 1 2 0... 0 0 0 2 1 2 1 2... 0 0 0 0 2 1 2 1... 0 0 0 0 0 2 1 2... ........................ Пожалуйста,помогите решить. Очень нужно. Заранее благодарю) Добавлено через 14 часов 25 минут Люди помогите,пожалуйста. Очень нужно решение задачи((( 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	04.06.2011, 15:07
	Wind, выложите код, который вы писали, но у вас не получилось. 0

@Wind 0 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 3
	04.06.2011, 17:22 [ТС]
	Огромное спасибо))) Добавлено через 3 минуты all_angarsk, Большое Вам спасибо))) 0