3.4.3. Пример выполнения задания

1. Сформировать массив А из элементов массива В= (-5, 6, 3, 0, 2) и С= (2, 7, -8, 9, 3) по признаку

 |B_i +C_i| , при 0  B_i  2, B_i  6

А_i =

 (B_i + C_i)² , при B_i < 0, 2 < B_i < 6

Вывести значения исходных массивов В и С в столбик, а результирующего массива А в строку

Значения искомой функции А определены на всей числовой оси

Вычислительный процесс представляет собой циклический процесс. В теле цикла анализируется условие 0  B_i  2, B_i  6. В результате анализа данного условия вычисляется значение текущего элемента А по формуле

А_i = |B_i +C_i| , если условие 0  B_i  2, B_i  6 выполняется, и по формуле

А_i = (B_i + C_i)² , если предыдущее условие не выполняется.

Условие B_i < 0, 2 < B_i < 6 отдельно не анализируется, так как оно включает все оставшиеся значения числовой оси В_i, не удовлетворяющие первому условию.

2. Интерфейс программы представляет пустую форму.

3. Программный код, реализующий алгоритм решения.

Private Sub Form_Load()

REM ПРИМЕР ПРОГРАММЫ ОБРАБОТКИ ОДНОМЕРНЫХ МАССИВОВ

Dim A()as double

Dim B() as double

Dim c() as double

Dim N as integer

N= val(INPUTBOX( "ВВЕДИТЕ РАЗМЕРНОСТЬ ОДНОМЕРНОГО МАССИВА "))

REM ОБЪЯВЛЕНИЕ МАССИВА И ВВОД ИСХОДНЫХ ДАННЫХ

Redim A(N)

Redim B(N)

Redim c(N)

Rem Ввод значений элементов массива B()

FOR I = 1 TO N

B(I)= val(INPUTBOX("ВВЕДИТЕ значения элементов массива B()"))

NEXT I

Rem Ввод значений элементов массива С()

FOR I = 1 TO N

С(I)= val(INPUTBOX("ВВЕДИТЕ значения элементов массива С()"))

NEXT I

REM РАСЧЕТ ЗНАЧЕНИЙ МАССИВА А

FOR I = 1 TO N

IF B(I) >= 0 AND B(I) <= 2 OR B(I) >= 6 THEN

A(I) = ABS(B(I) + c(I))

ELSE

A(I) = (B(I) + c(I)) ^ 2

END IF

NEXT I

REM ВЫВОД ИСХОДНЫХ ДАННЫХ И РЕЗУЛЬТАТОВ РАСЧЕТОВ

PRINT

PRINT "ЗАДАНИЕ ВЫПОЛНИЛ СТ-Т ИВАНОВ И.И., ГР.БГТУ , ВАРИАНТ 1"

PRINT

PRINT "ИСХОДНЫЕ ДАННЫЕ: значения элементов массива В С"

FOR I = 1 TO N

PRINT TAB(10); B(I); TAB(20); c(I)

NEXT I

PRINT

PRINT "РЕЗУЛЬТАТЫ РАСЧЕТОВ"

FOR I = 1 TO N

PRINT A(I);

NEXT I

END Sub

4. Результаты расчетов в VB 6

Литература

1. В.Л. Быков, Ю.П. Ашаев Основы информатики. Пособие. Издательство БГТУ. – Брест, 2006. – 430 с.: ил.

2. В.Л. Быков, Ю.П. Ашаев Основы информатики. Практикум. Пособие для студентов технических специальностей. Издательство БГТУ. – Брест, 2006. – 316 с.: ил.

3. А. А. Попов Excel: практическое руководство – Москва: ДЕССКОМ,2000

4. С. Ковальски Excel 2000 – М.: ЗАО «Издательство БИНОМ», 1999

5. Ч. Рабин Эффективная работа с Microsoft Word 2000 – СПб: Издательство «Питер», 2000