Разработка программ для выполнения действий с функциями

Размещено на http://www.allbest.ru/

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«ОМСКИЙ ГОСУДАРСТВЕННЫЙ АГРАРНЫЙ УНИВЕРСИТЕТ им. П.А. СТОЛЫПИНА»

(ФГБОУ ВПО ОмГАУ им. П.А. Столыпина)

Кафедра информатики

КОНТРОЛЬНАЯ РАБОТА

по ИНФОРМАТИКЕ

Студента заочной формы обучения

Ф.И.О., полностью Булатов Владислав Витальевич

Омск 2013

Задача №1

Разработать алгоритм, представить его в виде блок-схемы и создать процедуру-функцию для вычисления функции при х = 0,652.

Блок-схема

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

2. Загрузить редактор VB (Сервис - Макрос - Редактор Visual Basic).

3. Создать модуль командой Insert - Module.

4. Создать процедуру командой Insert - Procudure, имеющую тип Function, область видимости Public.

Программа

Public Function f(x)

f = 9.51 * (Sin(x + 1.2)) ^ 3 + Log(1.5 * x) / Log(10)

End Function

5. Перейти на рабочий лист MS Excel.

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

7. Вызвать созданную функцию командой Вставка - Функция - категория Определенные пользователем.

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

Задача №2

Разработать алгоритм, представить его в виде блок-схемы и написать программу для табулирования функции на участке xО[x0;xk] с шагом Dx при исходных данных по варианту 24. Ввод и вывод данных предусмотреть с рабочего листа MS Excel.

При: а = 20,1; b = 100; x0 = 0; xk = 8,0; dx = 1,0

Блок-схема

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

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

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

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

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

Программа

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

Pi = 3.14

2 If x > 2 Then y = (Log(1.5 * x - 3) / Log(10)) / ((Cos(Pi * b * x / a)) ^ 2): Cells(i + 1, 2).Value = y Else Cells(i + 1, 2).Value = "Решения нет!"

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

i = i + 1

x = x + dx

If x <= xk Then GoTo 2

End Sub

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

Задача №3

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

алгоритм программа excel данные

=0.15

Блок-схема

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

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

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

4. Программа

Public Sub задача3()

Dim ds As Single, s As Single

Dim n As Integer

e = 0.15

s = 0.8

Pi = 3.14

n = 1

ds = Sin(n * Pi / 9) / n

Do While ds > e

s = s + ds

Cells(3, 2) = s

Cells(3, 1) = n

n = n + 1

ds = Sin(n * Pi / 9) / n

Loop

End Sub

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

Задача№4

Разработать алгоритм, представить его в виде блок-схемы и написать программу для вычисления значения функции Z. Предусмотреть вывод промежуточных результатов на рабочий лист MS Excel.

где - элементы заданного массива х,

- элементы заданного массива у

- сумма отрицательных элементов массивов х и у

Блок-схема

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

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

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

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

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

Программа

Public Sub задача4()

Dim z, s1 As Single, i, n As Integer

Dim x(1 To 4), y(1 To 4) As Single

n = Cells(3, 2).Value

s1 = 0

For i = 1 To 4

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

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

If (x(i) < 0) And (y(i) < 0) Then s1 = s1 + x(i) + y(i)

Next i

z = n / s1

Cells(7, 1).Value = "Сумма Z ="

Cells(7, 2).Value = z

End Sub

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

Размещено на Allbest.ru