Лекция: End Sub 4 страница

Цель: приобретение навыков программирования алгоритмов циклической структуры с помощью подпрограммы-процедуры, позволяющую вычислять сумму (произведение) конечного ряда с помощью операторов цикла с параметром, с предусловием, с постусловием. Индивидуальные варианты лабораторной работы № 4 представлены в таблицах 19, 20 (2 часа).

Таблица 19

Продолжение таблицы 19

Таблица 20

Продолжение таблицы 20

Продолжение таблицы 20

Продолжение таблицы 20

2.11 Табулирование функции

2.11.1 Табулирование функции одной переменной

Постановка задачи. На отрезке [a,b] с шагом h протабулировать функцию f(x)=x2+Ln|x| и вывести на печать значения этой функции.

Технология выполнения задания:

Для решения задачи в области определения функции вводится сетка – совокупность точек {x0,x1,x2, …, xi}, где x0= а, x1= x0+h, …, xi = xi-1+h, xn = b.

Тогда задача сводится к вычислению функции f в точках xi, то есть нужно вычислить f(x0), f(x1), …, f(xi), f(xn).

I вариант

1 Введем обозначения:

хn, xk – границы отрезка;

h – шаг;

х – точка;

f – значение функции в точке.

2 Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл For:

Sub primer()

Dim x As Single

Dim xn As Single

Dim xk As Single

Dim h As Single

Dim f As Single

xn = InputBox(«xn=», xn)

xk = InputBox(«xk=», xk)

h = InputBox(«h=», h)

For x = xn To xk Step h

f = x ^ 2 + Log(Abs(x))

f = Format(f, "##.####")

x = Format(x, "##.##")

Debug.Print " x= " & x & " f= " & f

Next x

End Sub

II вариант

1 Введем обозначения:

хn, xk – границы отрезка;

h – шаг;

х – точка;

f – значение функции в точке .

2 Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя итерационный цикл:

Sub primer ()

Dim x As Single

Dim xn As Single

Dim xk As Single

Dim f As Single

Dim h As Single

xn = InputBox(«xn=», xn)

xk = InputBox(«xk=», xk)

h = InputBox(«h=», h)

x = xn

Do

f = x^2+log(ABS(x))

Debug.Print «x= » & x & " f= " & f

x = x + h

Loop While x <= xk

End Sub

2.11.2 Табулирование функции двух переменных (вложенные циклы)

Постановка задачи. На интервале xn≤x≤xk с шагом Δх, для каждого у из интервала уn≤y≤yk с шагом Δу вычислить значение функции z=x2+ln|y|.

Технология выполнения задания:

Для решения задачи в области определения функции вводится разностная сетка {хi, yi}, где x0= xn, x1 = x0+hx, …, xi = xi-1+hx, …, xn=xk; y0= yn, y1 = y0+hy, …, yj = yj-1+hy, …, ym=yk.

— количество узлов сетки по оси х,

— количество узлов сетки по оси y.

Тогда задача сводится к вычислению функции z в точках xi и yj, то есть z(xi,yj), то есть z(xi,yj)=x2+ln|y|, где i=1,2,… n, j=1,2, … m.

I вариант:

1 Введем обозначения:

х,y – координаты узла сетки;

f – значение функции в нем;

хn, xk,yn,yk – границы отрезка;

hх,hy – шаги сетки.

2 Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл For:

Sub primer()

Dim x As Single

Dim xn As Single

Dim xk As Single

Dim yn As Single

Dim yk As Single

Dim f As Single

Dim hx As Single

Dim hy As Single

xn = InputBox(«xn=», xn)

xk = InputBox(«xk=», xk)

yn = InputBox(«yn=», yn)

yk = InputBox(«yk=», yk)

hx = InputBox(«hx=», hx)

hy = InputBox(«hy=», hy)

For y = yn To yk Step hy

For x = xn To xk Step hx

f = x^2+log(ABS(у))

Debug.Print «x= » & x & " y= " & y & " f= " & f

Next x

Next y

End Sub

II вариант

1 Введем обозначения:

х,y – координаты узла сетки;

f – значение функции в нем;

хn, xk,yn,yk – границы отрезка;

hх,hy – шаги сетки.

2 Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя итерационный цикл:

Sub primer ()

Dim x As Single

Dim xn As Single

Dim xk As Single

Dim yn As Single

Dim yk As Single

Dim f As Single

Dim hx As Single

Dim hy As Single

xn = InputBox(«xn=», xn)

xk = InputBox(«xk=», xk)

yn = InputBox(«yn=», yn)

yk = InputBox(«yk=», yk)

hx = InputBox(«hx=», hx)

hy = InputBox(«hy=», hy)

y = yn

Do

x = xn

Do While x <= xk

f = x^2+log(ABS(x))

Debug.Print «x= » & x & " y= " & y & " f= " & f

x = x + hx

Loop

y = y + hy

Loop Until y > yk

End Sub

Лабораторная работа № 5

Табулирование функции

Цель: приобретение навыков программирования вычисления значений функции вида y=f(x) на промежутке [a,b] с шагом h и z=f(x,y) на промежутке [a,b] и [c,d] с шагом hx и hy с помощью пользовательской подпрограммы-процедуры. Индивидуальные варианты лабораторной работы № 5 представлены в таблице 21 (2 часа).

Таблица 21

Продолжение таблицы 21

Продолжение таблицы 21

Продолжение таблицы 21

2.12 Массивы

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

Массивы – это формальное объединение нескольких однотипных элементов (чисел, символов, строк и т.д.), упорядоченных по индексам, определяющим положением каждого элемента в массиве.

Пример 1.

Результаты многократных замеров температуры воздуха в течение одного года удобно рассматривать как совокупность вещественных чисел, объединенных в один сложный объект, — массив измерений.

Значения температур в марте

Первая ячейка содержит значение температуры 1 марта, что можно обозначить Т [1] = -10; Т [2] = -9 и т.д. Заметим, что все ячейки таблицы содержат однотипные данные (Т).

Пример 2.

Таблица, содержащая однотипные данные – классный журнал со списком учащихся, где каждая ячейка определяется двумя значениями – фамилией ученика и датой, а в ячейку заносятся отметки – целые числа от 1 до 5.

Определение.

Массив – это совокупность конечного числа элементов одного и того же типа, в которой каждый элемент имеет номер, а все элементы – общее имя.

Массивом называется ряд ячеек памяти, отведенных для хранения индексной переменной.

Массив – это структура данных, состоящая из фиксированного числа компонентов одного и того же типа, называемого базовым.

Номер элемента массива называется его индексом.

Если в форме описания массива задан один индекс, массив называется одномерным, если два индекса – двумерным, если n индексов – n-мерным.

Одномерный массив соответствует понятию линейной таблицы (вектора), двумерный – понятию прямоугольной таблицы (матрицы, набору векторов). Размерность ограничена только объемом памяти конкретного компьютера.

Характеристики массива:

1 Тип – общий тип элементов массива;

2 Размерность – количество индексов массива;

3 Диапазон – количество допустимых значений каждого индекса;

4 Размер – количество элементов массива.

Пример 3.

xi (5, 6, 7) → размер – 3

размерность – 1

тип – integer

диапазон – 1..3

Все элементы массива имеют общее имя (имя массива) и различаются индексами. Элементами массива могут быть данные любого типа. Тип элементов массива называется базовым. Элементы, образующие массив, упорядочены таким образом, что каждому элементу соответствует совокупность номеров (индексов), определяющих его местоположение в общей последовательности. Доступ к каждому отдельному элементу осуществляется путем индексирования элементов массива. Индексы представляют собой выражения любого скалярного типа, кроме вещественного. Тип индекса определяет границы изменения значений индекса.