Программа. Dim a As Single, b As Single, x0 As Single, xk As Single, dx As Single

Результат расчета

Программа

Public Sub задача2()

Dim a As Single, b As Single, x0 As Single, xk As Single, dx As Single

Dim x As Single, y As Single

a = Cells(3, 1).Value

b = Cells(3, 2).Value

x0 = Cells(3, 3).Value

xk = Cells(3, 4).Value

dx = Cells(3, 5).Value

x = x0

i = 5

2 If x >= 6 Then y = a * b Else y = b - a * x ^ 2

Cells(i + 1, 1).Value = x

Cells(i + 1, 2).Value = y

i = i + 1

x = x + dx

If x <= xk Then GoTo 2

End Sub

Задача 3

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

Блок – схема

Ход выполнения задания:

1. Запустить программу MS Excel.

2. Загрузить редактор VB.

3. Вставить Модуль и Процедуру типа Sub.

4. Записать код программы.

Public Sub задача3()

Dim ds As Single, s As Single

Dim i As Integer

e = Val(InputBox("Введите значение e"))

s = 0

i=1

ds = i ^ 2

do while ds < e

s = s + ds

Cells(2, 2) = s

Cells(2, 1) = i

i=i+1

ds = i ^ 2

loop

End Sub

Результат расчета:

Сумма ряда S = 14 при i = 3

Задача 4

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

X = (-2.3, 4.5, 5.1, -1.2 4.9)

Y=(1.3,12.5,2.5,-14.2, -3.5)

Предусмотреть вывод промежуточных результатов на рабочий лист MS Excel.

Блок – схема

Ход выполнения задания:

1. Запустить программу MS Excel.

2. Ввести на рабочий лист исходные данные

3. Загрузить редактор VB.

4. Вставить модуль командой Insert – Module.

5. Создать процедуру с программным кодом командой Insert – Procedure, имеющую тип Sub, область видимости Public.

Дата добавления: 2014-11-16