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

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

  • 27.06.2011
  • 10
  • 3350

Содержание

Введение

Заключение

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

Автор: 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
Узнайте стоимость
написания вашей работы

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

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

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

Logo Writer. Примеры программ(37 шт.)
Похожие материалы

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

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

    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
Другие работы автора

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

    Автопортрет в русской поэзии первой половины xx века

    80 страниц(ы) 

    ВВЕДЕНИЕ 3
    ГЛАВА I. ПОРТРЕТ В ХУДОЖЕСТВЕННОЙ СЛОВЕСНОСТИ
    1.1. Особенности портрета в прозе и поэзии 9
    1.2. Импрессионистические черты в лирическом портрете 29
    1.3. Воплощение художественных принципов романтизма в лирических портретах 34
    Выводы 38
    ГЛАВА II. . ПОРТРЕТ И АВТОПОРТРЕТ В ПРОИЗВЕДЕНИЯХ
    А.А. АХМАТОВОЙ И М.И. ЦВЕТАЕВОЙ
    2.1. Художественное своеобразие портретов в лирике А.Ахматовой 40
    2.2. Потрет чувств: психологизм лирических портретов и автопортретов М.И. Цветаевой 47
    2.3.
    Конспект урока «Русская поэзия первой половины XX века» (11 класс) 62
    Выводы 73
    ЗАКЛЮЧЕНИЕ 74
    СПИСОК ЛИТЕРАТУРЫ 77

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

    Развитие чувства ритма у детей на уроках музыки с помощью элементарных музыкальных инструментов

    65 страниц(ы) 

    ВВЕДЕНИЕ 3
    ГЛАВА I. ТЕОРЕТИЧЕСКИЕ ОСНОВЫ РАЗВИТИЯ ЧУВСТВА РИТМА У ДЕТЕЙ НА УРОКАХ МУЗЫКИ С ПОМОЩЬЮ ЭЛЕМЕНТАРНЫХ МУЗЫКАЛЬНЫХ ИНСТРУМЕНТОВ 6
    1.1. Психолого-педагогические проблемы развития чувства ритма у детей 6
    1.2. Элементарные музыкальные инструменты на уроках музыки 12
    Выводы по первой главе 22
    ГЛАВА II. ОПЫТНОЕ ЭКСПЕРИМЕНТАЛЬНОЕ ИССЛЕДОВАНИЕ ПО РАЗВИТИЮ ЧУВСТВА РИТМА У ДЕТЕЙ НА УРОКАХ МУЗЫКИ С ПОМОЩЬЮ ЭЛЕМЕНТАРНЫХ МУЗЫКАЛЬНЫХ ИНСТРУМЕНТОВ 23
    2.1 . Содержание, формы и методы развития чувства ритма у детей на уроках музыки с помощью элементарных музыкальных инструментов 23
    2.2 Педагогический эксперимент и его результаты 32
    Выводы по второй главе 47
    ЗАКЛЮЧЕНИЕ 48
    СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 50
    ПРИЛОЖЕНИЕ 56

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

    Методика обучения техническим элементам баскетбола

    77 страниц(ы) 

    ВВЕДЕНИЕ
    ГЛАВА I. АНАЛИЗ НАУЧНО-МЕТОДИЧЕСКОЙ ЛИТЕРАТУРЫ
    1.1. Характеристика технико-тактической подготовки юных школьников, занимающихся баскетболом
    1.2. Анатомо-физиологические особенности детей среднего школьного возраста занимающихся баскетболом
    ГЛАВА II. ОРГАНИЗАЦИЯ И МЕТОДЫ ИССЛЕДОВАНИЯ
    2.1. Методы исследования
    2.2. Организация исследования
    ГЛАВА III. РЕЗУЛЬТАТЫ ИССЛЕДОВАНИЯ И ИХ АНАЛИЗ
    3.1. Результаты исследования и их обсуждение
    3.2. Анализ результатов эксперимента
    ВЫВОДЫ
    ЗАКЛЮЧЕНИЕ
    СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
    ПРИЛОЖЕНИЯ

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

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

    55 страниц(ы) 

    ГЛАВА I. ЮРИДИЧЕСКАЯ ПРИРОДА ОРГАНОВ ОСУДАРСТВЕННОЙ ВЛАСТИ В СФЕРЕ ОБРАЗОВАНИЯ В РОССИИ
    ГЛАВА 2. ПОЛНОМОЧИЯ ОРГАНОВ ГОСУДАРСТВЕННОЙ ВЛАСТИ В СФЕРЕ ОБРАЗОВАНИЯ
    ГЛАВА 3.ПРОБЛЕМЫ И ППЕРСПЕКТИВЫ РАЗВИТИЯ СИСТЕМЫ УПРАВЛЕНИЯ ОБРАЗОВАНИЕМ В РОССИИ.
    ЗАКЛЮЧЕНИЕ.

  • ВКР:

    Фонд оценочных средств по курсу татарской диалектологии

    53 страниц(ы) 

    ЭЧТӘЛЕК
    Кереш.3-5
    Беренче бүлек.
    Туган тел укытучылары әзерләүдә “Татар диалектологиясе”
    курсының урыны һәм әһәмияте.6-12
    Икенче бүлек.
    “Татар диалектологиясе” курсы буенча бәяләү чаралары 13-44
    2.1. Тестлар.
    2.2. Контроль эшләр.
    2.3. Күнегүләр.
    2.4. Кейс-мәсьәләләр.
    2.5. Шәхси тикшеренү.
    2.6. Доклад яклау.
    2.7. ppt-презентацияләр.
    2.8. Имтихан сораулары.
    Йомгак.45-46
    Кулланылган әдәбият исемлеге.47-50

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

    Влияния личностных особенностей на успеваемость школьников

    53 страниц(ы) 

    Введение….….3
    Глава 1. Теоретическое изучение влияния личностных особенностей на успеваемость младших школьников 6
    1.1. Развитие личности в младшем школьном возрасте….….6
    1.2. Школьная успеваемость как психолого-педагогическая проблема….…13
    1.3. Психолого-педагогические особенности организации учебной
    деятельности младшего школьника… ….….24
    Выводы по 1 главе….32
    Глава 2. Эмпирическое исследование влияния личностных особенностей на успеваемость младших школьников 33
    2.1. Организация и описание методов исследования влияния личностных особенностей на успеваемость младших школьников 33
    2.2. Анализ результатов исследования влияния личностных особенностей на успеваемость младших школьников … … … 35
    Выводы по 2 главе.….….44
    Заключение….45
    Список литературы…47

  • Реферат:

    Целесообразность благотворительной деятельности

    15 страниц(ы) 

    Введение 3
    1. Возникновение благотворительной деятельности 5
    2. Благотворительность в социокультурной практике 7
    3. Целесообразность и роль благотворительности в современном обществе 9
    Заключение 12
    Список литературы 14

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

    Динамика мотивационной готовности студентов-психологов к профессиональной деятельности

    121 страниц(ы) 

    Введение….
    Глава I. Теоретические подходы к исследованию проблемы мотивационной готовности
    1.1. Мотивация как базовая категория в психологической науке
    1.2. Мотивационная готовность как ведущий структурный элемент профессиональной готовности….
    Выводы по главе I….
    Глава II. Психолого-педагогический анализ профессиональной деятельности психолога
    2.1. Сущность и особенности профессиональной деятельности психолога…
    2.2. Структура, виды и условия успешной профессиональной деятельности….
    Выводы по главе II…
    Глава III. Эмпирическое исследование мотивационной готовности студентов-психологов к профессиональной деятельности
    3.1. Организация и методы исследования….
    3.2. Анализ результатов исследования динамики мотивационной готовности студентов-психологов к профессиональной деятельности….
    Выводы по главе III….
    Заключение…
    Список литературы…

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

    Народный эпос в русской литературе

    28 страниц(ы) 

    ВВЕДЕНИЕ….3-4
    ГЛАВА I. УСТНОЕ НАРОДНОЕ ТВОРЧЕСТВО РУССКОГО НАРОДА
    1.1. Исторические условия возникновения русского эпоса….….5-10
    1.2. Поэтика русского фольклора ….…11-16
    ГЛАВА II. РУССКИЙ НАРОДНЫЙ ЭПОС
    2.1. Былины в русской народной поэтики.….17-21
    2.2. Богатыри как главные герои героического эпоса….…22-24
    ЗАКЛЮЧЕНИЕ….25-26
    СПИСОК ЛИТЕРАТУРЫ…26-28

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

    Игровые формы обучения элементам йоги на занятиях хореографией у дошкольников.

    70 страниц(ы) 

    Введение
    Глава 1. Теоретические основы обучения дошкольников элементам йоги на занятиях хореографии
    1.1 История развития йоги как самостоятельного учения
    1.2 Особенности обучения хореографии детей дошкольного возраста
    Выводы по первой главе
    Глава 2. Экспериментальная работа по обучению дошкольников элементам йоги на занятиях хореографии
    2.1 Содержание, формы и методы обучения дошкольников элементам йоги на занятиях хореографией
    2.2 Эксперимент и его результаты
    Выводы по второй главе
    Заключение
    Список литературы
    Приложения