СтудСфера.Ру - помогаем студентам в учёбе

У нас можно недорого заказать курсовую, контрольную, реферат или диплом

Решение квадратного уравнения на Visual Basic (исходник) - Лабораторная работа №14719

«Решение квадратного уравнения на Visual Basic (исходник)» - Лабораторная работа

  • 10 страниц(ы)

Содержание

Введение

Заключение

Примечания
фото автора

Автор: navip

Содержание

Аналитический способ

Приближенный способ

Графический способ

Введение

Аналитический способ

Приближенный способ

Графический способ

Option Explicit

Private Const PointsCount As Long = 40

Private Const frame As Single = 300

Private x_min As Double, x_max As Double

Private y_min As Double, y_max As Double

Private kx As Double, ky As Double

Private Sub Form_Load()

fraControl.Left = Me.ScaleWidth - fraControl.Width

picPlot.Move 0, 0, fraControl.Left, Me.ScaleHeight

End Sub

Private Sub cmdGo_Click()

Dim i As Long, x As Double, y As Double

Dim x0 As Single, y0 As Single

x_min = -5: x_max = 10

y_min = -20: y_max = 30

kx = (picPlot.ScaleWidth - 2 * frame) / (x_max - x_min)

ky = (picPlot.ScaleHeight - 2 * frame) / (y_max - y_min)

x0 = -x_min * kx

y0 = -y_min * ky

picPlot.Cls

picPlot.Line (frame + x0, frame)-(frame + x0, picPlot.ScaleHeight - frame), &HA0A0A0

picPlot.Line (frame, picPlot.ScaleHeight - frame - y0)-(picPlot.ScaleWidth - frame, picPlot.ScaleHeight - frame - y0), &HA0A0A0

If chkPoints.Value = vbChecked Then

DrawPoint frame + x_min * kx + x0, picPlot.ScaleHeight - frame - math_func(x_min) * ky - y0

End If

picPlot.CurrentX = frame + x_min * kx + x0

picPlot.CurrentY = picPlot.ScaleHeight - frame - math_func(x_min) * ky - y0

For i = 1 To PointsCount

x = x_min + i * (x_max - x_min) / PointsCount

y = math_func(x)

picPlot.Line -(frame + x * kx + x0, picPlot.ScaleHeight - frame - y * ky - y0)

If chkPoints.Value = vbChecked Then

DrawPoint frame + x * kx + x0, picPlot.ScaleHeight - frame - y * ky - y0

End If

Next i

picPlot.Line (frame, frame)-(picPlot.ScaleWidth - frame, picPlot.ScaleHeight - frame), &H808080, B

End Sub

Private Function math_func(ByVal x As Double) As Double

Dim k As Double, b As Double

If optFunc(0).Value Then

k = 2

b = 3

math_func = k * x + b

ElseIf optFunc(1).Value Then

math_func = 10 * Sin(x)

ElseIf optFunc(2).Value Then

math_func = x * x + 2 * x - 3

End If

End Function

Private Sub DrawPoint(ByVal x As Single, ByVal y As Single)

picPlot.DrawWidth = 3

picPlot.PSet (x, y)

picPlot.DrawWidth = 1

End Sub

Заключение

Option Explicit

Private Const PointsCount As Long = 40

Private Const frame As Single = 300

Private x_min As Double, x_max As Double

Private y_min As Double, y_max As Double

Private kx As Double, ky As Double

Private Sub Form_Load()

fraControl.Left = Me.ScaleWidth - fraControl.Width

picPlot.Move 0, 0, fraControl.Left, Me.ScaleHeight

End Sub

Private Sub cmdGo_Click()

Dim i As Long, x As Double, y As Double

Dim x0 As Single, y0 As Single

x_min = -5: x_max = 10

y_min = -20: y_max = 30

kx = (picPlot.ScaleWidth - 2 * frame) / (x_max - x_min)

ky = (picPlot.ScaleHeight - 2 * frame) / (y_max - y_min)

x0 = -x_min * kx

y0 = -y_min * ky

picPlot.Cls

picPlot.Line (frame + x0, frame)-(frame + x0, picPlot.ScaleHeight - frame), &HA0A0A0

picPlot.Line (frame, picPlot.ScaleHeight - frame - y0)-(picPlot.ScaleWidth - frame, picPlot.ScaleHeight - frame - y0), &HA0A0A0

If chkPoints.Value = vbChecked Then

DrawPoint frame + x_min * kx + x0, picPlot.ScaleHeight - frame - math_func(x_min) * ky - y0

End If

picPlot.CurrentX = frame + x_min * kx + x0

picPlot.CurrentY = picPlot.ScaleHeight - frame - math_func(x_min) * ky - y0

For i = 1 To PointsCount

x = x_min + i * (x_max - x_min) / PointsCount

y = math_func(x)

picPlot.Line -(frame + x * kx + x0, picPlot.ScaleHeight - frame - y * ky - y0)

If chkPoints.Value = vbChecked Then

DrawPoint frame + x * kx + x0, picPlot.ScaleHeight - frame - y * ky - y0

End If

Next i

picPlot.Line (frame, frame)-(picPlot.ScaleWidth - frame, picPlot.ScaleHeight - frame), &H808080, B

End Sub

Private Function math_func(ByVal x As Double) As Double

Dim k As Double, b As Double

If optFunc(0).Value Then

k = 2

b = 3

math_func = k * x + b

ElseIf optFunc(1).Value Then

math_func = 10 * Sin(x)

ElseIf optFunc(2).Value Then

math_func = x * x + 2 * x - 3

End If

End Function

Private Sub DrawPoint(ByVal x As Single, ByVal y As Single)

picPlot.DrawWidth = 3

picPlot.PSet (x, y)

picPlot.DrawWidth = 1

End Sub

Примечания

К работе прилагается программа с исходным кодом.

К работе прилагается все исходники.

Тема: «Решение квадратного уравнения на Visual Basic (исходник)»
Раздел: Информатика
Тип: Лабораторная работа
Страниц: 10
Цена: 300 руб.
Нужна похожая работа?
Закажите авторскую работу по вашему заданию.
  • Цены ниже рыночных
  • Удобный личный кабинет
  • Необходимый уровень антиплагиата
  • Прямое общение с исполнителем вашей работы
  • Бесплатные доработки и консультации
  • Минимальные сроки выполнения

Мы уже помогли 24535 студентам

Средний балл наших работ

  • 4.89 из 5
Узнайте стоимость
написания вашей работы
Похожие материалы

  • Дипломная работа:

    Методика изучения колеблющихся решений разностных уравнений

    38 страниц(ы) 

    Введение 3
    Глава 1. Понятие разностного уравнения, его решения и колеблемости его решений 5
    1.1 Некоторые обозначения и определения 5
    1.2 Уравнения в конечных разностях 6
    1.3 Линейные уравнения первого порядка 10
    1.3.1 Однородные линейные уравнения 10
    1.3.2 Неоднородные линейные уравнения 11
    1.4 Понятие колеблемости решений разностного уравнения 13
    Глава 2. Колеблющиеся свойства решений уравнения 19
    Вспомогательные предложения 19
    Некоторые вопросы колеблемости решений уравнения
    22
    Основные результаты 22
    Заключение 33
    Литература 34

  • ВКР:

    Методика применения компьютерного моделирования для решения дифференциальных уравнений и в школьном курсе информатики

    85 страниц(ы) 

    Введение 3
    1 Дифференциальные уравнения и асимптотические разложения решений 6
    1.1 Линейные дифференциальные уравнения 6
    1.2 Нелинейные дифференциальные уравнения 11
    1.3 Асимптотические оценки и их свойства 15
    1.4 Асимптотические ряды и их свойства 18
    1.5 Определение и основные свойства асимптотических разложений 22
    1.6 Метод Рунге-Кутта для решения дифференциальных уравнений 24
    Выводы по первой главе 25
    2 Моделирование решения краевой задачи для одного класса обыкновенных дифференциальных уравнений 26
    2.1 Постановка задачи и нахождение формального асимптотического разложения решения дифференциального уравнения 26
    2.2 Нахождение численного решения обыкновенного дифференциального уравнения второго порядка 28
    Выводы по второй главе 31
    3 Методика применения компьютерное моделирование в школьном курсе информатики 32
    3.1 Основные понятия и принципы компьютерного моделирования 32
    3.2 Анализ элективных курсов по компьютерному моделированию в школе. 37
    3.3 Элективный курс по компьютерному математическому моделированию в Maple 40
    Выводы по третьей главе 55
    Заключение 57
    Список использованной литературы 59
    Приложения 62

  • Курсовая работа:

    Решение кубических уравнений на языке программирования Borland Delphi

    26 страниц(ы) 

    Введение 3
    1. Теоретическая часть 4
    1.1 Кубическое уравнение 4
    1.2. Формула Кардано 5
    2. Практическая реализация 8
    2.1 Алгоритм для решения кубического уравнения методом Виета-Кардано 8
    2.1. Проектирование интерфейса 9
    2.3. Листинг программы 10
    Заключение 25
    Литература 26

  • Курсовая работа:

    Решение системы линейных уравнений методом Халецкого

    24 страниц(ы) 



    Введение 2
    1 Метод Халецкого. 3
    1.1 Пояснение метода. 3
    2 Формы. 5
    2.1 Главная. 5
    2.2 Основная форма. 5
    2.3 Форма построения графика. 7
    2.4 Форма сохранения результата. 8
    2.5 Информационные формы. 9
    3 Создание программ. 10
    3.1 Основная программа решения уравнения. 10
    3.2 Программа построения графика. 16
    3.3 Программа сохранение результата. 18
    3.4 Программа завершения работы приложения. 18
    3.5 Программы перехода между формами. 19
    Заключение 21
    Список литературы 22

  • Курсовая работа:

    Решение уравнений в целых числах

    38 страниц(ы) 


    1. Введение ….….3
    2. Решение уравнений в целых числах, как квадратных относительно какой-либо переменной…4
    3. Метод остатков.….8
    4. Способ перебора вариантов….13
    5. Метод бесконечного спуска….….16
    6. Метод разложения на множители….….19
    7. Решение систем уравнений в целых числах….….22
    8. Цепные дроби…25
    9. Аликвотные дроби…28
    10. Уравнение второй степени с тремя неизвестными…29
    11. Неразрешимые уравнения в целых числах….….32
    12. Заключение….34
    13. Список литературы….….….35
    14. Приложение….36

  • Дипломная работа:

    Методика изучения колеблющихся решений нелинейного разностного уравнения

    46 страниц(ы) 

    Введение….….3
    Глава 1. Понятие разностного уравнения, его решения и колеблемости решений…5
    1.1 Некоторые обозначения и определения….….….5
    1.2 Понятие разностного уравнения и его порядок ….….6
    1.3 Линейные уравнения первого порядка….14
    1.3.1 Однородное линейное уравнение….14
    1.3.2 Неоднородное линейное уравнение….15
    1.4 Понятие колеблемости решений разностного уравнения. Колеблю-щиеся свойства решений одного нелинейного разностного уравнения…17
    Глава II. Методика изучения колеблющихся свойств решений одного конечного разностного уравнения….23
    2.1 Вспомогательные предложения….24
    2.2 Некоторые вопросы колеблемости…29
    2.3 Основные результаты….30
    Заключение….38
    Литература….39

Не нашли, что искали?

Воспользуйтесь поиском по базе из более чем 40000 работ

Предыдущая работа

Разработка базы данных средствами СУБДД MS Access

Следующая работа

Logo Writer. Примеры программ(37 шт.)
Наши услуги
Дипломная на заказ

Дипломная работа

от 8000 руб.

срок: от 6 дней

Курсовая на заказ

Курсовая работа

от 1500 руб.

срок: от 3 дней

Отчет по практике на заказ

Отчет по практике

от 1500 руб.

срок: от 2 дней

Контрольная работа на заказ

Контрольная работа

от 100 руб.

срок: от 1 дня

Реферат на заказ

Реферат

от 700 руб.

срок: от 1 дня

Все услуги и цены
Другие работы автора

  • Дипломная работа:

    Специфика перевода терминологии в области юриспруденции (на материале английского семейного права)

    53 страниц(ы) 

    Введение 3
    Глава 1. Теоретические аспекты исследования юридических терминов и особенности их передачи на русский язык 6
    1.1 Понятие «термин» в зарубежной и отечественной лингвистике 6
    1.2 Специфика юридической терминологии 10
    1.3 Характеристика английского семейного права 15
    1.4 Переводческие сложности (в области юриспруденции) 20
    Выводы по Главе 1 26
    Глава 2. Особенности перевода юридической терминологии в области семейного права (на материале Закона Англии и Уэльса о бракоразводном процессе 1973 года) 28
    2.1 Анализ юридических терминов британского семейного права 28
    2.2 Своеобразие передачи юридической терминологии в области семейного права при переводе с английского языка на русский язык 34
    Выводы по Главе 2 43
    Заключение 45
    Список использованной литературы 48

  • Дипломная работа:

    Страх успеха: гендерные особенности феномена

    85 страниц(ы) 

    Введение 3
    Глава I. Теоретический анализ проблемы мотивации избегания успеха 7
    1.1. Страх успеха: развитие взглядов на проблему 7
    1.2. Влияние гендерных стереотипов на мотивацию достижений в профессиональной и семейной сферах 15
    1.3. Социальные и психологические предпосылки страха успеха у женщин и мужчин 33
    Выводы 42
    Глава II. Эмпирическое исследование гендерных особенностей феномена страха успеха 43
    2.1. Общая характеристика выборки и методов исследования 43
    2.2. Анализ результатов исследования 48
    Выводы 63
    Заключение 65
    Литература 68
    Приложение 72

  • Дипломная работа:

    Решение двухточечных задач линейного быстродействия

    36 страниц(ы) 

    Введение 3
    1. Задача линейного быстродействия в Rn 5
    1.1. Постановка задачи ее геометрическая интерпретация 5
    1.2. Многошаговый алгоритм корректировки опорной гиперплоскости 6
    1.3. Пояснения к алгоритму 11
    2. Реализация алгоритма 13
    2.1. Описание программы 13
    2.2. Результаты вычислительных экспериментов 13
    2.3. Программа на языке Паскаль 14
    Литература 34
    Приложение 35

  • Дипломная работа:

    Формирование универсальных умений на уроках математики

    64 страниц(ы) 

    ВВЕДЕНИЕ 3
    Глава 1. ТЕОРЕТИЧЕСКИЕ АСПЕКТЫ ФОРМИРОВАНИЯ УНИВЕРСАЛЬНЫХ УМЕНИЙ ОБУЧАЮЩИХСЯ НА УРОКАХ МАТЕМАТИКИ 7
    1.1. Универсальные умения: сущность, содержание, характеристика 7
    1.2. Организационно-педагогические условия формирования универсальных умений на уроках математики 17
    Выводы по первой главе 26
    Глава 2. ОРГАНИЗАЦИОННО-ПЕДАГОГИЧЕСКИЕ УСЛОВИЯ ФОРМИРОВАНИЯ УНИВЕРСАЛЬНЫХ УМЕНИЙ НА УРОКАХ МАТЕМАТИКИ 28
    2.1. Организация опытно-экспериментальной работы по формирования универсальных умений обучающихся на уроках математики 28
    2.2. Анализ результатов опытно-экспериментальной работы 46
    Выводы по второй главе 58
    Заключение 60
    Литература 61

  • ВКР:

    Ойконимика стерлибашевского района республики башкортостан

    87 страниц(ы) 

    КЕРЕШ.3
    БЕРЕНЧЕ БҮЛЕК. БАШКОРТСТАН РЕСПУБЛИКАСЫ СТӘРЛЕБАШ РАЙОНЫНЫҢ СОЦИАЛЬ-ИКЪТИСАДИ ҺӘМ ТЕРРИТОРИАЛЬ-ГЕОГРАФИК ХАЛӘТЕ ҺӘМ ТАРИХЫНА КЫСКАЧА КҮЗӘТҮ.7
    ИКЕНЧЕ БҮЛЕК. СТӘРЛЕБАШ РАЙОНЫ
    АВЫЛЛАРНЫҢ КЫСКАЧА ТАРИХЫ ҺӘМ ОЙКОНИМИКАСЫ.13
    ӨЧЕНЧЕ БҮЛЕК. УРТА МӘКТӘПТӘ ТУГАН ТЕЛНЕ ӨЙРӘНҮДӘ СТӘРЛЕБАШ РАЙОНЫ ОЙКОНИМИКАСЫН ФАЙДАЛАНУ ӨЧЕН КҮНЕГҮ ҮРНӘКЛӘРЕ.50
    ЙОМГАК.73
    ФАЙДАЛАНЫЛГАН ӘДӘБИЯТ ИСЕМЛЕГЕ.78
    КУШЫМТАЛАР
    Кушымта 1. Башкортстан Республикасы картасы.84
    Кушымта 2. Стәрлебаш районы картасы.85
    Кушымта 3. Стәрлебаш районы гербы.86
    Кушымта 4. Стәрлебаш районы флагы.

  • Дипломная работа:

    Выполнение женской стрижки «Молодежная» с предварительным окрашиванием волос красителем второй группы

    38 страниц(ы) 

    Введение . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5
    1. Теоретическая часть . . . . . . . . . . . . . . . . . . . . . . . . . . 7
    1.1 История парикмахерского искусства . . . . . . . . . . . . . 7
    1.2 Современные тенденции и направления в прическах . . . . 11
    1.3 Инструменты и приспособления . . . . . . . . . . . . . . . . . 14
    1.4 Дезинфекция инструментов . . . . . . . . . . . . . . . . . . . . 18
    1.5 Организация рабочего места . . . . . . . . . . . . . . . . . . . . 20
    1.6 Техника безопасности . . . . . . . . . . . . . . . . . . . . . . . 23
    2. Технологическая часть . . . . . . . . . . . . . . . . . . . . . . . . . 27
    2.1 Анализ образа модели . . . . . . . . . . . . . . . . . . . . . . . 28
    2.2 Технология выполнения женской молодежной стрижки . . . . 29
    2.3 Технология прически в романтическом стиле . . . . . . . . . . 31
    2.4 Макияж . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34
    2.5 Технология выполнения мужской модельной стрижки . . . . 35
    3. Экономическая часть . . . . . . . . . . . . . . . . . . . . . . . . . . 36
    3.1 Калькуляция . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37
    Заключение . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38
    Список литературы . . . . . . . . . . . . . . . . . . . . . . . . 39

  • Дипломная работа:

    Лингвистические особенности законотворческого стиля русского языка

    85 страниц(ы) 

    ВВЕДЕНИЕ 3
    ГЛАВА I. ЗАКОНОДАТЕЛЬНЫЙ ПОДСТИЛЬ КАК ОСНОВНАЯ РАЗНОВИДНОСТЬ ОФИЦИАЛЬНО-ДЕЛОВОГО СТИЛЯ СОВРЕМЕННОГО РУССКОГО ЯЗЫКА 6
    §1. История формирования официально-делового стиля 6
    §2. Развитие официально-делового стиля в современном русском языке 8
    §3. Особенности официально-делового стиля современного русского языка 11
    §4. Специфика законодательного стиля 17
    Выводы по главе I 21
    ГЛАВА II. АНАЛИЗ ЗАКОНОДАТЕЛЬНОГО ПОДСТИЛЯ СОВРЕМЕННОГО РУССКОГО ЯЗЫКА 23
    §1. Лингвистические особенности законодательного стиля официально-делового стиля 23
    1.1. Лексико-фразеологические особенности законодательного подстиля 23
    1.2. Словообразовательные и морфологические черты законодательного подстиля 43
    1.3. Синтаксические особенности законодательного подстиля 46
    §2. Лингвистический анализ текста 51
    Выводы по главе II 52
    ЗАКЛЮЧЕНИЕ 53
    СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 57
    ПРИЛОЖЕНИЕ 1 62
    ПРИЛОЖЕНИЕ 2 63

  • Курсовая работа:

    Материальное стимулирование труда

    28 страниц(ы) 

    Введение 2
    1.Матеиальное стимулирование труда 5
    1.1. Сущность заработной платы 5
    1.2. Тарификация труда 6
    1.3. Формы и системы заработной платы 9
    2. Расчёт основных показателей строительной организации 12
    2.1. Расчёт бюджета рабочего времени 12
    2.2. Расчёт стоимости материальных ресурсов и потреблённого
    оборудования в текущих ценах 14
    2.3. Расчёт ФОТ работников строительного предприятия
    и распределение заработной платы между членами бригады 16
    2.4. Расчёт сметной стоимости заданного вида работ 18
    3. Анализ деятельности предприятия 20
    3.1. Расчёт технико-экономических показателей 20
    3.2. Определение обязательных налоговых платежей и их влияние на результаты деятельности предприятия 21
    Заключение 24
    4. Список использованной литературы 25
    Приложение А (обязательное) 26

  • Курсовая работа:

    Индивидуальный подход к развитию детей разных категорий

    46 страниц(ы) 

    ВВЕДЕНИЕ….3
    ГЛАВА I. ТЕОРЕТИЧЕСКИЕ АСПЕКТЫ ИНДИВИДУАЛЬНОГО ПОДХОДА К РАЗВИТИЮ ДЕТЕЙ РАЗНЫХ КАТЕГОРИЙ….7
    1.1 Индивидуальный подход в процессе развития: основные положения и понятия …7
    1.2 Учёт психологических и возрастных особенностей в реализации индивидуального подхода к развитию детей разных категорий….….10
    1.3. Классификация детей разных категорий….17
    Выводы по первой главе….22
    ГЛАВА II. ОПЫТНО-ПЕДАГОГИЧЕСКАЯ РАБОТА ПО ИНДИВУАЛИЗАЦИИ С ДЕТЬМИ РАЗНЫХ КАТЕГОРИЙ 24
    2.1 Критерии и показатели развития детей в 1 классе…24
    2.2 Диагностика индивидуального развития детей разных категорий 26
    2.3 Программа индивидуального развития детей в 1 классе 32
    Выводы по второй главе 35
    ЗАКЛЮЧЕНИЕ 38
    ЛИТЕРАТУРА 40
    Глоссарий по персоналиям 47
    Глоссарий по категориальному аппарату 49

  • Курсовая работа:

    Психологизм портретных образов Серова

    33 страниц(ы) 

    Введение
    Глава 1. Портретная живопись Валентина Серова: формирование стиля и этапы творчества
    1.1 Биографическая справка
    1.2 Периоды творчества
    Глава 2. Анализ портретных образов в картинах раннего и позднего периодов творчества
    2.1 Работа над образами в картинах "Девочка с персиками", "Девушка, освещенная солнцем"
    2.2 Портреты Морозовых
    Заключение
    Библиографический список
    Приложения