Примеры по алгоритмизации и программированию

Примеры циклических алгоритмов

Пример1. Разработать блк-схему алгоритма и программу для вычисления значений функции y=a+bx+cx2, если х меняется в интервале [-5 ÷ +3] с шагом 0,1. Значения коэффициентов: a=2; b=1,5; c=0,5.

Для решения данной задачи будем использовать цикл с параметром. Блок-схема алгоритма решения данной задачи представлена на рис. 1.

Рисунок 1

Обозначения: xn, xk – начальное и конечное значение аргумента x; ∆x – шаг по х.

Блок-схему данного алгоритма можно представить более детально, если учесть особенности системы программирования VBA. В этом случае блок-схема алгоритма будет иметь вид, представленный на рис. 2.

Рисунок 2

Программа, реализующая данный алгоритм состоит из двух процедур. Первая процедура запускается с помощью элемента управления CommandButton1. Она предназначена для создания необходимых надписей на рабочем листе Excel, то есть для создания пользовательского интерфейса.

Private Sub CommandButton1_Click()
Range("a1").Value = "x"
Range("b1").Value = "y"
Range("e1").Value = "a"
Range("e2").Value = "b"
Range("e3").Value = "c"
Range("e4").Value = "xn"
Range("e5").Value = "xk"
Range("e6").Value = "dx"
End Sub

Вторая процедура запускается с помощью элемента управления CommandButton2. Она предназначена для вычисления значений функции y.

Private Sub CommandButton2_Click()
a = Range("f1").Value
b = Range("f2").Value
c = Range("f3").Value
xn = Range("f4").Value
xk = Range("f5").Value
dx = Range("f6").Value
Range("a2").Select
For x = xn To xk Step dx
y = a + b * x + c * x ^ 2
ActiveCell = x
ActiveCell.Offset(0, 1).Value = y
ActiveCell.Offset(1, 0).Select
Next x
End Sub

Рабочий лист Excel с исходными данными, элементами управления и результатами вычислений, представлен на рис. 3.

Рисунок 3

Назад