Hiviru | Дата: Понедельник, 29.12.2014, 22:02 | Сообщение # 1 |
Рядовой
Группа: Пользователи
Сообщений: 1
Статус: Offline
| Здравствуйте, с наступающим вас :3 очень нужна помощь в составлении блок-схемы для Sub fui() Dim x(10) As Integer Dim y(10), summ1, summ2, summ3 As Single summ1 = 0 summ3 = 0 For i = 2 To 2 x(i) = Cells(4, i) c = x(i) Next For i = 1 To 10 x(i) = Cells(4, i) summ3 = summ3 + (x(i) - 2) Next Cells(6, 13) = summ3 For i = 1 To 10 x(i) = Cells(4, i) summ2 = x(i) summ1 = summ1 + x(i) Next Cells(6, 12) = summa1 For i = 1 To 10 x(i) = Cells(4, i) y(i) = (summ2 / summ1) - (c / summ3) Cells(7, i) = y(i) Next i End Sub
Заранее огромное спасибо!)
|
|
| |
diamFC | Дата: Вторник, 30.12.2014, 04:57 | Сообщение # 2 |
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Здравствуйте, Блок=схемы для бейсика не делаю.
|
|
| |