Разработка программ для выполнения действий с функциями
ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ
ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
«ОМСКИЙ ГОСУДАРСТВЕННЫЙ АГРАРНЫЙ УНИВЕРСИТЕТ им. П.А. СТОЛЫПИНА»
(ФГБОУ ВПО ОмГАУ им. П.А. Столыпина)
Кафедра информатики
КОНТРОЛЬНАЯ РАБОТА
по ИНФОРМАТИКЕ
Студента заочной формы обучения
Ф.И.О., полностью Булатов Владислав Витальевич
Омск 2013
Задача №1
Разработать алгоритм, представить его в виде блок-схемы и создать процедуру-функцию для вычисления функции при х = 0,652.
Блок-схема
1. Запустить программу MS Excel.
. Загрузить редактор VB (Сервис - Макрос - Редактор Visual Basic).
. Создать модуль командой Insert - Module.
. Создать процедуру командой Insert - Procudure, имеющую тип Function, область видимости Public.
ПрограммаFunction f(x)= 9.51 * (Sin(x + 1.2)) ^ 3 + Log(1.5 * x) / Log(10)Function
. Перейти на рабочий лист MS Excel.
. Ввести на рабочий лист исходные данные.
. Вызвать созданную функцию командой Вставка - Функция - категория Определенные пользователем.
Результат расчета:
Задача №2
Разработать алгоритм, представить его в виде блок-схемы и написать программу для табулирования функции на участке xÎ[x0;xk] с шагом Dx при исходных данных по варианту 24. Ввод и вывод данных предусмотреть с рабочего листа MS Excel.
При: а = 20,1; b = 100; x0 = 0; xk = 8,0; dx = 1,0
Блок-схема
. Запустить программу MS Excel.
. Ввести на рабочий лист исходные данные.
. Загрузить редактор VB.
. Вставить модуль командой Insert - Module .
. Создать процедуру с программным кодом командой Insert - Procedure, имеющую тип Sub, область видимости Public.
ПрограммаSub Задача2()a As Single, b As Single, x0 As Single, xk As Single, dx As Singlex As Single, y As Single= Cells(3, 1).Value= Cells(3, 2).Value= Cells(3, 3).Value= Cells(3, 4).Value= Cells(3, 5).Value= x0= 5= 3.14
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 = "Решения нет!"(i + 1, 1).Value = x= i + 1= x + dxx <= xk Then GoTo 2Sub
Результат расчета:
xy0,00Решения нет!1,00Решения нет!2,00Решения нет!3,000,18844,000,53855,000,79096,001,02917,001,28918,001,6005
Задача №3
Вычислить сумму всех тех членов ряда, которые по величине больше заданного числа e и определить число членов ряда, соответствующих этому условию. Способ выполнения - процедура-подпрограмма. Предусмотреть ввод данных через диалоговое окно, вывод результатов на рабочий лист MS Excel.
алгоритм программа excel данные
e=0.15
Блок-схема
1. Запустить программу MS Excel.
. Загрузить редактор VB.
. Вставить Модуль и Процедуру типа Sub
4. ПрограммаSub задача3()ds As Single, s As Singlen As Integer= 0.15= 0.8= 3.14= 1= Sin(n * Pi / 9) / nWhile ds > e= s + ds(3, 2) = s(3, 1) = n= n + 1= Sin(n * Pi / 9) / nSub
Результат расчета
ns52,194861889
Задача№4
Разработать алгоритм, представить его в виде блок-схемы и написать программу для вычисления значения функции Z. Предусмотреть вывод промежуточных результатов на рабочий лист MS Excel.
где - элементы заданного массива х,
- элементы заданного массива у
- сумма отрицательных элементов массивов х и у
X=(-3.56, 5.14, -11.8, -1.06)Y=(-10.5, -4.56, 3.2, -11.8)
Блок-схема
1. Запустить программу MS Excel.
. Ввести на рабочий лист исходные данные
3. Загрузить редактор VB.
. Вставить модуль командой Insert - Module .
. Создать процедуру с программным кодом командой Insert - Procedure, имеющую тип Sub, область видимости Public.
ПрограммаSub задача4()z, s1 As Single, i, n As Integerx(1 To 4), y(1 To 4) As Single= Cells(3, 2).Value= 0
For i = 1 To 4(i) = Cells(1, i + 1).Value(i) = Cells(2, i + 1).Value(x(i) < 0) And (y(i) < 0) Then s1 = s1 + x(i) + y(i)i= n / s1(7, 1).Value = "Сумма Z ="(7, 2).Value = zSub
Результат расчета
Сумма Z =-0,111441
Больше работ по теме:
Контрольная работа
Разработка условного графического изображения и посадочного места компонента К140УД13 в системе проектирования PCAD
Контрольная работа
Расчет начисления заработной платы
Контрольная работа
Решение задачи прикладного содержания с применением программирования на языке высокого уровня
Контрольная работа
Решение инженерных задач с помощью программ Excel и Mathcad
Контрольная работа
Предмет: Информационное обеспечение, программирование
Тип работы: Контрольная работа
Новости образования
22 Июля 2016 16:26
Более 70 представителей крупных вузов АСЕАН подтвердили участие в форуме во Владивостоке
22 Июля 2016 12:51
Абызов: публикация первичных статсведений снизит бюрократическую нагрузку на школы
22 Июля 2016 11:53
В Чечне свыше 200 школьников сдали ЕГЭ с результатом свыше 90 баллов - министр
22 Июля 2016 05:36
Замглавы Минобрнауки РФ: задача сократить число людей с высшим образованием не стоит
21 Июля 2016 20:19
КОНТАКТНЫЙ EMAIL: [email protected]
Скачать реферат © 2017 | Пользовательское соглашение
ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ