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

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

Решение квадратного уравнения на 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 работ

Наши услуги
Дипломная на заказ

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

от 8000 руб.

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

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

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

от 1500 руб.

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

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

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

от 1500 руб.

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

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

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

от 100 руб.

срок: от 1 дня

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

Реферат

от 700 руб.

срок: от 1 дня

Другие работы автора
  • ВКР:

    Изучение семантического развития глаголов физического процесса в татарском языке

    60 страниц(ы) 

    ЭЧТӘЛЕК
    КЕРЕШ.3
    ТӨП ӨЛЕШ
    БҮЛЕК I. Фигыльләрнең семaнтик системaсындa прoцесс белдерүче фигыльләр
    1.1. Фигыльләрне төркемләү мәсьәләсе.6
    1.2. Прoцесс белдерүче фигыльләрнең лексик-семaнтик төзелеше.18
    1.3 Тaтaр телендә прoцесс белдерүче фигыльләрнең семaнтик кыры.22
    БҮЛЕК II. Мәктәптә прoцесс белдерүче фигыльләрне өйрәнү
    2.1. Фигыльне мөстәкыйль сүз төркеме булaрaк өйрәнү метoдикaсының үзенчәлекләре.32
    2.2. Тaтaр теле дәресләрендә прoцесс белдерүче фигыльләрне өйрәнү өчен күнегүләр системaсы.35
    ЙOМГAК.50
    КУЛЛAНЫЛГAН ӘДӘБИЯТ ИСЕМЛЕГЕ.54

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

    Загрязнение атмосферного воздуха в г. уфе, метеорологические наблюдения

    66 страниц(ы) 

    Введение 3
    I. Загрязнения атмосферного воздуха 7
    1.1. Последствия загрязнения атмосферы 7
    1.2. Уровни загрязнения атмосферы и качество атмосферного воздуха по городам и субъектам Российской Федерации 17
    II. Состояние атмосферного воздуха в Республике Башкортостан и г. Уфе 31
    2.1. Состояние атмосферного воздуха в Республике Башкортостан 31
    2.2. Загрязнение атмосферного воздуха стационарными источниками промышленных предприятий 38
    2.3. Природно-климатические условия г. Уфы. 43
    2.4. Состояние атмосферного воздуха в г. Уфе. 47
    III. Практическая работа и применение результатов исследования. 53
    Заключение 62
    Список использованной литературы и сайтов Internet. 64
  • Дипломная работа:

    Приемственность двух этапов государственной итоговой аттестации по обществознанию (гиа – 9, егэ)

    73 страниц(ы) 

    ВВЕДЕНИЕ…
    ГЛАВА I. ГОСУДАРСТВЕННАЯ ИТОГОВАЯ АТТЕСТАЦИЯ ПО ОБЩЕСТВОЗНАНИЮ В НОВОЙ ФОРМЕ….
    1.1. Цели и функции государственной итоговой аттестации по обществознанию в новой форме….
    1.2. Сущность преемственности в организации проверки качества
    обучения по обществознанию в основной и старшей школе….
    1.3. КИМ по обществознанию в экзаменационной работе ГИА – 9 и ЕГЭ: общее и особенное….
    ГЛАВА II. ПРИНЦИП ПРЕЕМСТВЕННОСТИ В ПОДГОТОВКЕ К ГИА – 9 И ЕГЭ ПО ОБЩЕСТВОЗНАНИЮ….
    2.1. Особенности подготовки обучающихся к ГИА – 9 по обществознанию ….
    2.2. Особенности подготовки обучающихся к ЕГЭ по обществознанию.
    ГЛАВА III. ПРОЕКТ «МЕТОДИЧЕСКИЕ РЕКОМЕНДАЦИИ ДЛЯ ПОДГОТОВКИ К ГИА – 9 И ЕГЭ ПО ОБЩЕСТВОЗНАНИЮ»….
    3.1. Описание проекта….
    3.2. Методические рекомендации для подготовки к ГИА – 9 и ЕГЭ по обществознанию ….
    ЗАКЛЮЧЕНИЕ …
    СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ И ЛИТЕРАТУРЫ…
  • Дипломная работа:

    Работа над транскрипцией классической музыки в музыкальном редакторе cubase

    56 страниц(ы) 

    Введение….3
    Глава 1. Теоретические основы создания транскрипции произведений классической музыки
    1.1. Транскрипции произведений классической музыки….6
    1.2. Основные музыкальные редакторы с различными возможностями создания транскрипций….…22
    1.3. Музыкальный редактор Cubase ….….33
    Глава 2. Создание транскрипции произведений классической музыки
    2.1. Методика создания транскрипции произведений классической музыки в музыкальном редакторе Cubase….….40
    2.2. Творческий проект….43
    Заключение….51
    Список литературы…53
  • Дипломная работа:

    Воспитание физических качеств борцов с применением подвижных игр

    43 страниц(ы) 


    ВВЕДЕНИЕ 3
    ГЛАВА I. СОВРЕМЕННОЕ СОСТОЯНИЕ ИЗУЧАЕМОЙ ПРОБЛЕМЫ 6
    1.1. Характеристика этапов подготовки борцов 6
    1.2. Специализированные подвижные игры в подготовке юных борцов вольного стиля 11
    1.3. Методика применения специализированных подвижных игр в начальной подготовке юных борцов 17
    ВЫВОДЫ ПО ПЕРВОЙ ГЛАВЕ 21
    ГЛАВА 2. МЕТОДЫ И ОРГАНИЗАЦИЯ ИССЛЕДОВАНИЙ 23
    2.1. Организация исследования 23
    2.2. Методы исследования 24
    ГЛАВА III. ОБОСНОВАНИЕ УСОВЕРШЕНСТВОВАННОЙ МЕТОДИКИ ВОСПИТАНИЯ ФИЗИЧЕСКИХ КАЧЕСТВ БОРЦОВ 10-12 ЛЕТ 26
    3.1. Обоснование применения усовершенствованной методики воспитания физических качеств юных борцов с использованием подвижных игр 26
    ГЛАВА IV. РЕЗУЛЬТАТЫ ИССЛЕДОВАНИЯ ЭКСПЕРИМЕНТАЛЬНОЙ РАБОТЫ 29
    4.1. Анализ и интерпретация результатов исследования 29
    ВЫВОДЫ 36
    ПРАКТИЧЕСКИЕ РЕКОМЕНДАЦИИ 37
    СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 38
  • Курсовая работа:

    Построение графиков в TP(Турбо Паскаль)

    27 страниц(ы) 


    ЗАДАНИЕ НА КУРСОВУЮ РАБОТУ 3
    ПОСТАНОВКА ЗАДАЧИ 4
    МАТЕМАТИЧЕСКАЯ МОДЕЛЬ 5
    БЛОК-СХЕМА РЕШЕНИЯ ЗАДАЧИ 9
    ИСХОДНЫЙ ТЕКСТ ПРОГРАММЫ 14
    РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ 20
    РЕЗУЛЬТАТ РАБОТЫ ПРОГРАММЫ
    ДЛЯ РАЗЛИЧНЫХ ВАРИАНТОВ 21
    ВЫВОДЫ ПО КУРСОВОЙ РАБОТЕ 25
    СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 26
  • Дипломная работа:

    Воспитание координационных способностей, занимающихся борьбой

    52 страниц(ы) 

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

    Педагогическое мастерство учителя в формировании умения учиться

    99 страниц(ы) 

    Введение .3
    ГЛАВА 1. Педагогическое мастерство учителя….6
    1.1. Сущность педагогического мастерства….6
    1.2. Структура педагогического мастерства….9
    1.3. Педагогическое мастерство как система….11
    1.4. Этапы формирования педагогического мастерства….16
    1.5. Качества личности педагога-мастера….17
    1.6. Профессиональные умения педагога-мастера….22
    1.7. Выводы по главе 1…
    ГЛАВА 2. Психолого-педагогические основы формирования у учащихся
    умения учиться
    2.1. Сущность умений и навыков….26
    2.2. Взаимосвязь уровней развития у учащихся умений учиться и мотивов учебных действий….29
    2.3. Структура умений, обеспечивающих учащимся успех в учёбе .35
    2.4. Два уровня формирования умений: эмпирический и теоретический….38
    2.5. Основные дидактические требования к обучению умению учиться…. 41
    2.6. Система работы учителя по формированию у учащихся умения учиться .47
    2.7. Выводы по главе 2 .49
    ГЛАВА 3. Опытно-экспериментальная работа по формированию умения учиться….50
    Выводы по главе 3….67
    Заключение…69
    Список используемой литературы…71
    Приложение
  • Дипломная работа:

    Особенности закаливания детей 12-13 лет

    54 страниц(ы) 

    ВВЕДЕНИЕ 3
    ГЛАВА I ОБЗОР ЛИТЕРАТУРНЫХ ИСТОЧНИКОВ 6
    1.1. Общие принципы и физиологические механизмы закаливания 6
    1.2. Виды закаливания 11
    1.2.1. Закаливание с помощью низких температур 11
    1.2.2. Закаливание воздухом 15
    1.2.3. Закаливание водой 16
    1.2.4. Закаливание солнечным излучением 21
    1.3 Физическая культура как оздоровительное…. 25
    ГЛАВА II. МЕТОДЫ И ОРГАНИЗАЦИИ ИССЛЕДОВАНИЯ 29
    2.1. Методы исследования 29
    2.2. Организация исследования 31
    ГЛАВА III РЕЗУЛЬТАТЫ И ИХ ОБСУЖДЕНИЕ 33
    3.1. Динамика заболеваемости учащихся в ходе эксперимента 33
    3.2. Динамика развития физических качеств в ходе проведения эксперимента 36
    ВЫВОДЫ 45
    СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ 47
    ПРИЛОЖЕНИЕ 52
  • Реферат:

    С.с.аверинцев

    34 страниц(ы) 

    Биография Сергея Сергеевича Аверинцева
    Философ культуры
    Аверинцев в нашей истории
    Фрагменты из статей Аверинцева
    Список используемой литературы