Пример 12. 3.3. Производная алгоритмическая структура Счётчик

Разработать информационную технологию вычисления значения факториала числа.

Входные данные: n – число, для которого считается факториал, целое число.

Выходные данные: fact – переменная, хранящая значение n!, целое число.

Математическая модель:

Схема алгоритма:

Код приложения:

Private Sub Command1_Click()

Dim n As Integer, fact As Long, k As Integer

n=InputBox(“Введите значение n”)

If n>1 Then

faсt=1

For k=2 To n

fact=fact * k

Next

MsgBox “Значение ” & n & ”! ” & ” равно ” & fact

Else

MsgBox “Недопустимое значение n=” & n

End If

End Sub

3.3. Производная алгоритмическая структура Счётчик

Если производная алгоритмическая структура Счётчик организуется на основе итерационного вычислительного процесса, то она, как правило, используется для подсчёта количества итераций.

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

Особенности алгоритма.

1. Вводится дополнительная переменная, которая служит для хранения искомого количества. Ей присваивается начальное значение, равное 0.

2. Определяется тип вычислительного процесса: цикл с параметром (цикл или цикл в цикле) или итерационный цикл.

3. Определяется тело цикла. Если используется итерационный цикл, то в тело цикла включается структура Следование, представленная итерационной формулой:

<Доп. переменная> = <Доп. переменная> + 1

Если используется цикл с параметром, то телом цикла служит структура Развилка, определяющая условие поиска элементов массива или значений функции, количество которых требуется подсчитать. В случае истинности условия выполняются следующие действия:

- значение дополнительной переменной увеличивается на единицу согласно итерационной формуле пункта 3;

- изменяется значение "Флажка", определяющего выполнение условия поиска (см. производную алгоритмическую структуру Поиск).

4. После окончания циклического процесса дополнительная переменная хранит количество элементов массива, удовлетворяющих условию поиска.

П р и м е ч а н и е. Следует заметить, что в производной алгоритмической структуре Счётчик роль "Флажка" может выполнять дополнительная переменная, которой перед началом вычислительного процесса присваивается начальное значение равное 0.

В случае выполнения условия поиска дополнительная переменная меняет своё значение. Следовательно, если после окончания вычислительного процесса дополнительная переменная не изменила своего начального значения – это означает, что не найдено ни одного элемента, значение которого удовлетворяет заданному условию. Кроме того, если необходимо не только подсчитать количество элементов, удовлетворяющих условию поиска, но и хранить их значения в вычислительной среде, то дополнительная переменная может использоваться как индекс, определяющий местоположение искомого элемента во вновь формируемом массиве.