Помогите нарисовать алгоритм к этому коду:

Private Sub Пуск_Click()
Dim A() As Single 'элементы вектора
Dim R() As Single 'элементы вектора величина которых лежит в интервале от 1 до 10
Dim K As Integer 'количество элементов в исходном массиве удовлетворяющих условию
Dim I As Integer 'индекс
Dim S As Integer 'сумма элементов удовлетворяющих условию
Dim F As Integer 'индикатор факта наличия элементов вектора величина которых лежит в интервале от 1 до 10
Dim M As Integer
M = InputBox("Укажите размер исходного массива А:")
ReDim A(1 To M), R(1 To M)
TxtViv.Text = "" 'очистка текстового поля
For I = 1 To M 'ввод и отображение исходного массива А
A(I) = InputBox("Введите значение элемента с номером:" & I)
TxtViv.Text = TxtViv.Text & " " & A(I) 'отображение исходного массива А
Next I
F = 0
K = 0
For I = 1 To M 'формирование массива по условию
If (A(I) >= 1) And (A(I) <= 10) Then K = K + 1: R(K) = A(I): F = 1
Next I
S = 0
For I = 1 To K
S = S + R(I)
Next I
If F = 1 Then Lbl2.Caption = "сумма элементов вектора величина которых лежит в проеделах от 1 до 10"
Lst1.List(F - 1) = S
If F = 0 Then Lbl2.Caption = "таких элементов нет"
End Sub

Private Sub Выход_Click()
End
End Sub

Цитата(King @ 12.5.2005, 07:58)

Помогите нарисовать алгоритм к этому коду

А по точнее?

Цитата

А по точнее?

Да он просто хочет чтоб ему помогли построить блок-схему этих операторов: овалы, прямоугольники, параллелограммы, квадраты и т.п. Как в школе в 7-ом классе. Только и всего.

Это сообщение отредактировал(а) Voldemar2004 - 12.5.2005, 20:45

Цитата

Помогите нарисовать алгоритм...

ИМХО:
Помочь можно тогда, когда у человека что-то не получается. Ему достаточно показать пример решения подобной задачи и этого будет достаточно.
Если человек чего-то не понимает (но хочет), то ему можно это объяснить.
...
Но это так. Лирика.
Вот человек просит помочь даже не напрягшись. Если это его код - он должен без труда нарисовать алгоритм сам. Не может - не его код.
Тут не помочь просят. Тут за него сделать нужно.
Вот лично я против такой "помощи".

Бардак!
Алгоритм конечно не совершенен, но... не в падлу и пример кинуть...

Присоединённый файл ( Кол-во скачиваний: 11 )
 Doc4.doc

Цитата

не в падлу и пример кинуть...

Вопрос не в том что нам в падлу!
Тут такое дело, что Kingу в раздел работы надобно!

Спасибо Black_Star за пример.

Цитата

Тут такое дело, что Kingу в раздел работы надобно!

Он же не говорил за деньги, а попросил...

Это сообщение отредактировал(а) Black_Star - 16.5.2005, 11:52