Из производных алгоритмических структур

 

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

 

Производная алгоритмическая структура Выборка

 

Эта структура предназначена для формирования в вычислительной среде нового массива в соответствии с заданным условием.

 

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

1. В вычислительной среде хранятся значения элементов массива, из которых требуется выбрать значения элементов, удовлетворяющих заданному условию.

2. В зависимости от размерности массива организуется простой циклический вычислительный процесс или вычислительный процесс цикл в цикле.

3. В случае формирования одномерного массива вводится одна дополнительная переменная, которая определяет положение элементов вновь формируемого массива. Переменная служит индексом нового массива, и ей присваивается начальное значение, равное нулю. При завершении циклического вычислительного процесса значение дополнительной переменной определяет размерность нового массива.

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

 

Пример 14.

Разработать информационную технологию, позволяющую заполнить в вычислительной среде одномерный массив В значениями элементов массива А произвольной размерности m×n, имеющих чётные значения элементов.

Входные данные:

m – целое число;

n – целое число;

A=[a_ij], , – массив целых чисел.

Выходные данные:

B = [b_i], – массив целых чисел.

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

k = 0;

для i = 1.. m, j = 1.. n,

если a_ij – четное, то k = k + 1 и b_k = a_ij

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

 

 

да

 

нет

да

 

 

да

нет

 

да

 

 

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

Option Base 1

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, m As Integer, n As Integer

Dim a() As Integer, b() As Integer

m=InputBox(“Введите количество строк матрицы”)

n=InputBox(“Введите количество столбцов матрицы”)

ReDim a(m,n), b(m*n)

For i=1 to m

For j=1 to n

a(i,j)=InputBox(“a(“ & i & ”,” & j & ”)”)

Next

Next

k=0

For i=1 to m

For j=1 to n

If a(i,j) mod 2 =0 Then k=k+1:

b(k)=a(i,j)

Next j

Next i

Print “Исходный массив A”

For i=1 to m

Print

For j=1 to n

Print a(i,j);

Next

Next

If k <>0 Then

Print Chr(10);“Заполнен массив В ”

For i=1 to k

Print b(i);

Next

Else

Print “Четных значений элементов в массиве А нет”

End If

End Sub