это быстро и бесплатно
Оформите заказ сейчас и получите скидку 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 заданиями. Контролируйте процесс написания работы в режиме онлайн
Выполнить 2 контрольные работы по Информационные технологии и сети в нефтегазовой отрасли. М-07765
Контрольная, Информационные технологии
Срок сдачи к 12 дек.
Архитектура и организация конфигурации памяти вычислительной системы
Лабораторная, Архитектура средств вычислительной техники
Срок сдачи к 12 дек.
Организации профилактики травматизма в спортивных секциях в общеобразовательной школе
Курсовая, профилактики травматизма, медицина
Срок сдачи к 5 дек.
краткая характеристика сбербанка анализ тарифов РКО
Отчет по практике, дистанционное банковское обслуживание
Срок сдачи к 5 дек.
Исследование методов получения случайных чисел с заданным законом распределения
Лабораторная, Моделирование, математика
Срок сдачи к 10 дек.
Проектирование заготовок, получаемых литьем в песчано-глинистые формы
Лабораторная, основы технологии машиностроения
Срок сдачи к 14 дек.
Вам необходимо выбрать модель медиастратегии
Другое, Медиапланирование, реклама, маркетинг
Срок сдачи к 7 дек.
Ответить на задания
Решение задач, Цифровизация процессов управления, информатика, программирование
Срок сдачи к 20 дек.
Написать реферат по Информационные технологии и сети в нефтегазовой отрасли. М-07764
Реферат, Информационные технологии
Срок сдачи к 11 дек.
Написать реферат по Информационные технологии и сети в нефтегазовой отрасли. М-07764
Реферат, Геология
Срок сдачи к 11 дек.
Разработка веб-информационной системы для автоматизации складских операций компании Hoff
Диплом, Логистические системы, логистика, информатика, программирование, теория автоматического управления
Срок сдачи к 1 мар.
Нужно решить задание по информатике и математическому анализу (скрин...
Решение задач, Информатика
Срок сдачи к 5 дек.
Заполните форму и узнайте цену на индивидуальную работу!