|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.11.2011, 21:21 | #1 |
Новичок
Джуниор
Регистрация: 08.11.2011
Сообщений: 1
|
Разработать программный код
Помогите, пожалуйста, очень срочно составить программный код в среде VBA. В данной действительной квадратной матрице порядка 4х4 найти произведение отрицательных элементов под побочной диагональю.
|
08.11.2011, 21:54 | #2 |
Форумчанин
Регистрация: 31.05.2010
Сообщений: 407
|
Sub main()
For i = 1 To 4 For j = 1 To 4 'Cells(i, j) = InputBox("a(" & i & "," & j & ")") Cells(i, j) = Round(Rnd * 25, 4) - 12 Next Next P = 1 For i = 2 To 4 For j = 4 - i + 2 To 4 If Cells(i, j) < 0 Then P = P * Cells(i, j) Next Next MsgBox "P=" & P End Sub
icq 584 308 611
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программный код в Бейсике | Богдан Величко | Помощь студентам | 4 | 15.05.2011 02:43 |
Проверте программный код. | St.Jimmy | Помощь студентам | 1 | 19.01.2011 20:57 |
программный код в VB 6.0 | Julia220992 | Помощь студентам | 4 | 29.04.2010 23:01 |