05.05.2011, 19:13 | #1 (ссылка) |
Новичок
Регистрация: 05.05.2011
Сообщений: 5
Репутация: 0
|
блок-схем алгоритма
здравствуйте, помогите пожалуйста составить блок-схему алгоритма...заранее спасибо
Option Explicit Dim A() As Single Dim i As Integer, j As Integer, m As Integer, n As Integer, b As Integer Private Sub Кнопка_Click() m = mrow n = ncol ReDim A(1 To m, 1 To n) TabA m, n, A() For i = 1 To m b = Cells(i, 2): Cells(i, 2) = Cells(i, 4): Cells(i, 4) = b 'смена четвёртого и второго стлбцов Next i TabA m, n, A() Cells(1, n + 3) = "i" 'название Cells(1, n + 4) = "j" 'название Dim l As Single 'номер строки, в которой пишеутся координаты числа от 5 до 20 l = 3 For i = 1 To m For j = 1 To n If A(i, j) < 0 Then 'условия, при которых записываются координаты чисел Cells(l, n + 3) = i: Cells(l, n + 4) = j: l = l + 1 'печать коородинат чисел, увеличение номера строки на один End If Next j Next i End Sub Function mrow() As Integer Dim i As Integer i = 1 Do Until IsEmpty(Cells(i, 1)) i = i + 1 Loop mrow = i - 1 'MsgBox "m=" & mrow End Function Function ncol() As Integer Dim j As Integer j = 1 Do Until IsEmpty(Cells(1, j)) j = j + 1 Loop ncol = j - 1 'MsgBox "n=" & ncol End Function Sub TabA(m As Integer, n As Integer, A() As Single) For i = 1 To m For j = 1 To n A(i, j) = Cells(i, j) Next j Next i End Sub |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
bad блок | Min_Fin | Железо | 2 | 28.11.2010 18:32 |
Блок сети или еще что - тОо | mishana5000 | Оптимизация | 0 | 23.11.2010 00:00 |
Блок питания | Вадим Казанцев | Железо | 3 | 20.10.2010 00:07 |
блок питания | Scorpion0292 | Железо | 2 | 11.10.2010 13:46 |
Программа для создания топологии и графических схем сети | Denis Black | Интернет и сети | 1 | 05.10.2010 17:26 |
Системный блок за 23 000 т.р. | pavlikmorozov-87 | Выбор комплектующих | 11 | 29.09.2010 11:07 |
Блок питания | qpmr | Железо | 7 | 26.09.2010 20:33 |
Блок питания | Paren91 | Железо | 2 | 15.07.2010 01:00 |
Блок питания | Stas3ds | Периферия | 6 | 17.07.2009 01:11 |
блок питания | sviatoslav | Выбор комплектующих | 5 | 11.07.2009 01:19 |
видео и блок | Sprinter1986 | Выбор комплектующих | 1 | 02.06.2009 18:11 |
Системный блок | BalVaNa | Железо | 11 | 02.04.2009 21:16 |