это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
ID (номер) заказа
2281543
Ознакомительный фрагмент работы:
Лабораторная работа 1
Табулирование функций, нахождение максимума и минимума
Задание
Для функции (своего варианта) написать программу, которая табулирует функцию при значениях аргумента, изменяющихся на отрезке [Xn, Хк] с шагом dx, находит максимальное и минимальное значения функции на этом отрезке, и строит график.
Оформить отчёт о работе на бумаге формата А4.
Работа
Программа для табулирования указанной функции написана на VBA для Excel.
Блок-схема программы приведена на рисунке 1
Собственно программа условно состоит из трех частей: ввода исходных данных с проверкой допустимости ввода, собственно табулирования функции с расчетом максимального и минимального значения функции на введенном отрезке и вывода результатов.
Для проверки допустимости введенных данных была написана функция Function getDouble(st As String) As Double, входным параметром которой является текстовое значение ячейки таблицы Excel. Результатом работы функции является действительное число, соответствующее его текстовому написанию. Если исходный текст не является числом, то функция возвращает значение 0. Так как аргументом функции также может быть и строка «0», то в тексте программы предусмотрена дополнительная проверка на значение ячеек для ввода исходных данных.
Начало
Ввод Xn, Xk, dXXtek=XnXtek<=XkДа
Нет
Y(Xtek)=sin(Xtek)+abs(Xtek)+2^ XtekВывод Xtek, Y(Xtek)
Xtek = Xtek + dXXtek=XnДа
min = Y(Xtek)
max = Y(Xtek)
Вывод min,maxдиаграммы
Конец
Начало
Ввод Xn, Xk, dXXtek=XnXtek<=XkДа
Нет
Y(Xtek)=sin(Xtek)+abs(Xtek)+2^ XtekВывод Xtek, Y(Xtek)
Xtek = Xtek + dXXtek=XnДа
min = Y(Xtek)
max = Y(Xtek)
Вывод min,maxдиаграммы
Конец
Рисунок 1 Блок-схема программы
Ниже приведен текст функции getDoubleFunction getDouble(st As String) As Double
If InStr(1, st, ",") > 0 Then st = Replace(st, ",", ".")
zn = Val(st)
st1 = CStr(zn)
If InStr(1, st1, ",") > 0 Then st1 = Replace(st1, ",", ".")
If st <> st1 Then zn = 0
getDouble = znEnd Function
Сама программа проверяет допустимость исходных данных, если какие-то данные введены не верно, то выдается сообщение об ошибочном задании того или иного параметра. После чего очищает поле вывода результатов табулирования, табулирует функцию, одновременно вычисляя наибольшее и наименьшее значение функции и выводя результаты табулирования. По результатам табулирования строится точечная диаграмма.
Для работы программы необходимо ввести исходные значения в соответствующие ячейки и нажать кнопку «Рассчитать». Результаты работы программы представлены на рисунке 2.
Рисунок 1 Результаты работы программы
Ниже приведен текст программы.
Sub Кнопка1_Щелчок() Cells(3, 7).Value = ""
osh = ""
xn = getDouble(Cells(2, 7))
If xn = 0 And Cells(2, 7) <> "0" Then osh = osh + " начального х"
xk = getDouble(Cells(2, 8))
If xk = 0 And Cells(2, 8) <> "0" Then osh = osh + " конечного х"
dx = getDouble(Cells(2, 9))
If dx = 0 And Cells(2, 9) <> "0" ...
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн
Решение вступительного испытания по технической физике онлайн
Онлайн-помощь, Техническая физика
Срок сдачи к 15 июля
Помощь в решении вступительного испытания по русскому языку онлайн
Онлайн-помощь, Русский язык
Срок сдачи к 14 июля
Составление и использование бухгалтерской (финансовой) отчетности
Отчет по практике, Экономика и бухгалтерский учет( по отраслям)
Срок сдачи к 20 июля
Вот пример сделанной практики, у меня должны быть такие же даты по...
Отчет по практике, Производственная практика
Срок сдачи к 15 июля
Электроэнергетика и электротехника МТИ
Отчет по практике, Электроэнергетика и электротехника
Срок сдачи к 20 июля
. кинематический анализ механизма. 2. кинетостатический анализ механизма. 3. динамический синтез маховика. 4. анализ и синтез кулачковых механизмов. 5. эвольвентное зацепление.
Курсовая, Теория механизмов и машин
Срок сдачи к 16 июля
тема моего отчета: Автоматизация магистральных газопроводов: газораспределительные станции
Отчет по практике, Технологическая (Проектно-технологическая)
Срок сдачи к 18 июля
Тема: «разработка технологии производства пружинной проволоки диаметром 3,0-4,0 мм по гост 9389-75»
Отчет по практике, Металлургия
Срок сдачи к 24 июля
Производственная практика: технологическая (проектно-технологическая) практика
Отчет по практике, Менеджмент
Срок сдачи к 17 июля
Заполните форму и узнайте цену на индивидуальную работу!