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

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

  • 27.06.2011
  • 10
  • 3351

Содержание

Введение

Заключение

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

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

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

    Решения задач на Pascal Файловый тип данных

    15 страниц(ы) 

    5.6. Лабораторная работа 5
    Тема: Файловый тип данных.
    Вариант Задания

    2 1. Заполнить файл последовательного доступа N действительными числами, полученными с помощью датчика случайных чисел. Найти сумму максимального и минимального элементов этого файла.
    2. Дан файл bibl, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания. Определить, имеется ли книга с названием «Информатика». Если да, то напечатать фамилию автора и год издания. Если таких книг несколько, то напечатать все имеющиеся о них сведения.
    3 1. Записать файл f последовательного доступа N натуральных чисел. Получить в другом файле последовательного доступа все компоненты файла f, кроме тех, которые кратны K. Вывести полученный файл на печать.
    2. Дан файл T, который содержит номера телефонов сотрудников учреждения: указываются фамилия, инициалы и номер телефона. Найти фамилию и инициалы сотрудника по его номеру телефона.
    4 1. Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Найти количество удвоенных нечётных чисел среди компонентов файла.
    2. Багаж пассажира характеризуется количеством вещей и их общим весом. Дан файл bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно действительного (вес в килограммах). Выяснить, имеется ли пассажир, багаж которого состоитиз одной вещи весом менее М кг.

    6 1. Записать в файл прямого доступа N действительных чисел. Найти наибольшее из значений модулей компонентов с нечётными номерами.
    2. Дан файл tovar, содержащий сведения об экспортируемых товарах: указываются наименование товара, страна, импортирующая товар, и объем поставляемой партии в штуках. Составить список стран, в которые экспортируется данный товар, и указать общий объем его экспорта.

    8 1. Записать в файл последовательного доступа N действительных чисел. Найти разность первого и последнего компонентов файла.
    2. Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Есть ли среди них дата вашего рождения?
    9 1. Записать в файл f N целых чисел, полученных с помощью
    генератора случайных чисел. Заполнить файл g целыми числами, которые являются произведениями соседних компонентов файла f.
    2. Дан файл assort, содержащий сведения об игрушках: указывается название игрушки, ее стоимость в рублях и возрастные границы ( например, игрушка может предназначаться для детей от 2 до 5 лет). Получить название 3-х самых дорогих игрушек. Есть ли среди них те, которые подходят для семилетнего ребенка?

    11 1. Дан файл bibl, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания.
    Найти названия книг данного автора, изданных начиная с 1960 г.
    2. Записать в файл последовательного доступа N действительных чисел. Найти разность наибольшего из этих чисел со средним арифметическим всех положительных чисел файла.
    12 1. Дан файл T, который содержит номера телефонов сотрудников учреждения: указываются фамилия, инициалы и номер телефона. Найти номер телефона сотрудника по его фамилии и инициалам
    2. Записать в файл последовательного доступа N действительных чисел. Найти среднее геометрическое компонентов файла.
    13 1. Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Найти год с наименьшим номером.

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

    Лексико-сементическое развитие этимологического корня ял в татарском языке

    63 страниц(ы) 

    Кереш.3
    Төп өлеш
    Беренче бүлек
    *Jal этимологик тамырының структур-семантик үзенчәлеге .7
    1.1. Төрки телләрдә этимологик тамыр турында төшенчә.7
    1.2. *jal этимологик тамырының
    фоно-морфо-семантик төзелеше.16
    Икенче бүлек
    Этимиологик *jal тамырының татар телендә
    лексик-сематик үсеше.28
    Өченче бүлек
    *Jal тамырының лексик-семантик үсеше буенча
    материалларны татар теле дәресләрендә куллану
    методикасы һәм күнегүләр системасы.40
    3.1. JAL тамырының лексик-семантик үсеше буенча
    материалны татар теле дәресләрендә куллану методикасы.40
    3.2. Jal тамырының лексик-семантик үсеше буенча
    материалны татар теле дәресләрендә куллану өчен
    күнегү үрнәкләре.47
    Йомгак.57

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

    Художественно-публицистическая проза м.а. чванова

    66 страниц(ы) 

    ВВЕДЕНИЕ 3
    ГЛАВА I. СОВРЕМЕННАЯ ХУДОЖЕСТВЕННО-ПУБЛИЦИСТИЧЕСКАЯ ПРОЗА НАЧАЛА 20 – КОНЦА 21 ВВ 9
    1.1. Литературная критика о современной художественно-публицистической прозе 9
    1.2. Тенденции развития современной художественно-публицистической литературы 16
    ГЛАВА II. СВОЕОБРАЗИЕ ХУДОЖЕСТВЕННО-ПУБЛИЦИСТИЧЕСКОЙ ПРОЗЫ М.А. ЧВАНОВА 28
    2.1. Тематика и проблематика повестей и рассказов М.А. Чванова 28
    2.2. Специфика изображения героев рассказов и повестей М.А. Чванова 35
    2.3. Методические рекомендации к урокам внеклассного чтения для детей с нарушением слуха (на материале рассказа М.А. Чванова «Четверо наедине с горами») 45
    ЗАКЛЮЧЕНИЕ 56
    СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 62

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

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

    67 страниц(ы) 

    ВВЕДЕНИЕ 3
    Глава I. ТЕОРЕТИЧЕСКИЙ АНАЛИЗ ПРЕДСТАВЛЕНИЕ О СЧАСТЬЕ УЧЕНИКОВ СТАРШИХ КЛАССОВ, КАК ФАКТОР ЛИЧНОСТНОГО СОМООПРЕДЕЛЕНИЯ В ПСИХОЛОГО-ПЕДАГОГИЧЕСКИХ ИСТОЧНИКАХ 8
    1.1 Феномен «представление о счастье» в философских и психологических исследованиях 8
    1.2. Психологические особенности личностного самоопределения в юношеском возрасте 18
    1.3. Связь субъективного благополучия и представления о счастье у старшеклассников 22
    1.4 Выводы по I главе 30
    Глава II. ЭМПИРИЧЕСКИЕ ИССЛЕДОВАНИЯ ПРЕДСТАВЛЕНИЯ О СЧАСТЬЕ УЧАЩИХСЯ СТАРШИХ КЛАССОВ, КАК ФАКТОР ЛИЧНОСТНОГО САМООПРЕДЕЛЕНИЯ 32
    2.1 Описание выборки, методов исследований 32
    2.2. Количественные характеристики полученных результатов 36
    2.3 Результаты мат обработки данных, и их качественный анализ 44
    2.4 Выводы по II главе 48
    ЗАКЛЮЧЕНИЕ 51
    ЛИТЕРАТУРА 53
    ПРИЛОЖЕНИЯ 55
     

  • Реферат:

    Моральный закон во мне как высшая ценность

    21 страниц(ы) 

    Введение 3
    Развитие этических представлений 4
    Современные этические концепции 12
    Этика ненасилия 12
    Идея благоговения перед жизнью 15
    Заключение 18
    Список литературы 21

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

    Формирование у младших школьников грамматических навыков посредством интерактивных технологий на уроках английского языка

    98 страниц(ы) 

    Введение….….3
    Глава 1. Интерактивные технологии как средство обучения иностранным языкам
    1.1. Технология как педагогическое понятие….6
    1.2. Классификация педагогических технологий…11
    1.3. Потенциал интерактивных технологий в обучении иностранным языкам…17
    Выводы по главе 1…23
    Глава 2. Методика формирования грамматических навыков в начальной школе
    2.1. Цели и содержание обучения грамматической стороне речи в соответствии с требованиями программ…24
    2.2. Технологии формирования грамматических навыков у младших школьников….….30
    2.3. Интерактивные технологии в формировании грамматических навыков у младших школьников….36
    Выводы по главе 2….…43
    Глава 3. Опытно-экспериментальная работа по формированию грамматических навыков в МБОУ СОШ №18 г. Ишимбай
    3.1. Анализ УМК по английскому языку для 3 класса….….…45
    3.2. Апробация интерактивных технологий в образовательном процессе….….….50
    Выводы по главе 3…58
    Заключение…60
    Список использованной литературы….62
    Приложения….68

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

    Эколого-биологическая характеристика популяции овсяницы луговой в сообществе остепненного луга

    53 страниц(ы) 

    ВВЕДЕНИЕ
    ГЛАВА 1. ХАРАКТЕРИСТИКА FESTUCA PRATENSIS HUDS. КАК ТИПИЧНОГО ПРЕДСТАВИТЕЛЯ ЛУГОВЫХ СООБЩЕСТВ (ОБЗОР ЛИТЕРАТУРЫ)
    1.1. Понятие о луге как типе растительности
    1.2. Разнообразие лугов Республики Башкортостан
    1.3. Популяционный подход к изучению видов луговых трав
    1.4. Особенности биологии, экологии и фитоценологии Festuca
    pratensis
    1.5. Хозяйственное значение Festuca pratensis
    ГЛАВА 2. ПРИРОДНЫЕ УСЛОВИЯ РАЙОНА ИССЛЕДОВАНИЯ
    2.1. Климат
    2.2. Рельеф
    2.3. Гидрология
    2.4. Почвы
    2.5. Растительность
    2.6. Влияние человека
    ГЛАВА 3. РЕЗУЛЬТАТЫ ИССЛЕДОВАНИЯ И ИХ ОБСУЖДЕНИЕ
    3.1. Объект и методы исследования
    3.1.1. Методы анализа видового состава сообщества
    3.1.2. Методы популяционного анализа
    3.2. Анализ видового состава исследованного сообщества с
    Festuca pratensis
    3.2.1. Геоботаническое описание
    3.2.2. Спектр систематического состава
    3.2.3. Спектр жизненных форм
    3.2.4. Фитосоциологический спектр
    3.2.5. Характеристика хозяйственной ценности
    3.3. Популяционный анализ сообщества с Festuca pratensis
    3.3.1. Биоморфологическая характеристика популяции
    3.3.2. Анализ виталитетного спектра популяции
    ЗАКЛЮЧЕНИЕ И ВЫВОДЫ
    СПИСОК ЛИТЕРАТУРЫ

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

    Молодая семья как объект социальной помощи

    35 страниц(ы) 

    Введение 2
    1. Молодая семья: понятие и основные проблемы 3
    1.1. Молодая семья: понятие, сущность, тенденция развития 3
    1.2. Проблемы молодых семей. 7
    2. Особенности социальной помощи молодой семьей 11
    2.1.Формы и методы социальной помощи молодой семьей 11
    2.2. Структура и задачи социальной работы с молодыми семьями 17
    Литература 22

  • Шпаргалка:

    Краеведение Башкортостана вопросы и ответы

    32 страниц(ы) 

    Просвещение в Башкортостане
    Литература
    Музыкальная культура
    Изобразительное искусство
    Уфа – столица Республики Башкортостан

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

    Профессиональная компетентность педагога в области обществоведческого (правового) образования

    74 страниц(ы) 

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