Нужна срочно помощь.Помогите , пожалуйста, привести матрицу n*n к треугольному виду ** VBA

Question

Нужна срочно помощь.Помогите , пожалуйста, привести матрицу n*n к треугольному виду на VBA

Comments

Необходимо, чтобы в экселе мы вводили самостоятельно матрицу любой размерности, а потом из неё получался треугольный вид

---

Ну , мне очень -при очень нужно, я вообще про эти баллы не понимаю, что и как они дают , я тут новичок

---

теперь понятно,а я думала, что это совершенно другоетак вы поможете или вам принципиально, чтобы были баллы?

---

я немного пробывала, но что-то не получается , запуталась вообще

---

я смотрела здесь, может тут что найдётеftp://ftp.asu.ru/incoming/204zo/%CE%F1%ED%EE%E2%FB%20%E0%EB%E3%EE%F0%E8%F2%EC%E8%E7%E0%F6%E8%E8%20%E8%20%FF%E7%FB%EA%E8%20%EF%F0%EE%E3%F0%E0%EC%E8%F0%EE%E2%E0%ED%E8%FF/%CB%E0%E1%EE%F0%E0%F2%EE%F0%ED%FB%E5%20%F0%E0%E1%EE%F2%E0/%CB%E0%E1%EE%F0%E0%F2%EE%F0%ED%E0%FF%20%F0%E0%E1%EE%F2%E0%20%B97%20-%20%CC%E5%F2%EE%E4%FB%20%C3%E0%F3%F1%F1%E0.htm

---

и на всякий случай мои наброски, хотя там бредFor K = 1 To N - 1For l = K + 1 To Np = Cells(l, K) / Cells(K, K)For M = K To NCells(l, M) = Cells(l, M) - Cells(l, M) * pNext MCells(l) = Cells(l) - Cells(K) * pNext lNext K For K = N To 1 Step -1 s = 0 For l = K + 1 To N s = s + Cells(K, l) * Cells(l) Next l Cells(K) = (Cells(K) - s) / Cells(K, K) Next K

Answer 1

Решение во вложении. Не забудьте разрешить исполнение макросов.
Исходную матрицу надо выделить, затем щелкнуть по кнопке, запускающей решение.

---

Скачать вложение Excel (XLS)

Comments

спасибо большое)))насчёт баллов теперь буду знать)