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

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

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

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

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

    Методическое обеспечение лекционных занятий по курсу «геометрия» для студентов направления «прикладная математика и физика»

    75 страниц(ы) 


    Введение 3
    Глава 1. Комплексные числа в тригонометрической и показательной форме. 5
    Глава 2. Алгебраические системы 12
    Глава 3. Линейные отображения. 20
    Глава 4. Группы аффинных преобразований и их подгруппы 28
    Глава 5. Плоскости и прямые в пространстве. 47
    Глава 6. Поверхности второго порядка. 65
    Заключение 74
    Список литературы 75

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

    Этнонимы в памятниках древнетюркской рунической письменности

    63 страниц(ы) 

    Кереш.
    Төп өлеш
    Беренче бүлек.
    Лексикологиянең бер тармагы буларак этнонимия.
    § 1. Этнонимия турында гомум мәгълүмат.
    § 2. Төп төрки этнонимнарга характеристика.
    Икенче бүлек.
    Орхон-енисей язмаларында кулланылган этнонимнар.
    Өченче бүлек.
    Борынгы төрки язма истәлекләрне урта мәктәптә
    туган тел укытуда файдалану мөмкинлеге һәм
    татар теле дәресләрендә куллану өчен күнегү үрнәкләре.
    § 1. Борынгы төрки язма истәлекләрне урта мәктәптә
    туган тел укытуда файдалану мөмкинлеге.
    § 2. Борынгы төрки язма истәлекләр буенча материалны
    мәктәптә татар теле дәресләрендә куллану өчен
    күнегү үрнәкләре.
    Йомгак.

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

    Карнавальная образность в «Петербургских повестях» Н.В.Гоголя

    29 страниц(ы) 

    ВВЕДЕНИЕ 3
    ГЛАВА I. Понятие карнавальной образности. Особенности гоголевского «площадного» юмора 5
    1.1. Понятие карнавальной образности в мировой и русской литературе 5
    1.2. Элементы карнавализации в творчестве Н.В. Гоголя…8
    ГЛАВА II. Карнавальная образность в цикле «Петербургские повести» Н.В. Гоголя 13
    ЗАКЛЮЧЕНИЕ 27
    СПИСОК ЛИТЕРАТУРЫ …29

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

    Татар теленең бөре сөйләше

    29 страниц(ы) 

    Кереш 3
    Төп өлеш
    I бүлек. Татар теленең Урта диалекты
    1.1. Татар диалектлары өйрәнү тарихы 5
    1.2. Татар теленең Урта диалекты 10
    II бүлек. Урта диалектның бөре сөйләше
    2.1. Бөре сөйләшенең фонетик үзенчәлекләре 14
    2.2. Грамматик үзенчәлекләр 20
    2.3. Лексик үзенчәлекләр 26
    Йомгак 28
    Кулланылган әдәбият 31

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

    Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В8. Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем

    15 страниц(ы) 

    1.Теория чисел
    1.4. Лабораторная работа 1
    2. Подпрограммы в Паскале
    2.5. Лабораторная работа 2
    3.Множества
    3.4.Лабораторная работа 3
    4. Записи.
    4.4.Лабораторная работа 4
    5.Файлы.
    5.6. Лабораторная работа 5.
    6. Строковые переменные.
    6.4. Лабораторная работа 6
    Литература

  • ВКР:

    Образ главного героя в повести «таң җиле» ф.садриева

    66 страниц(ы) 

    Ф.Садриевның «Таң җиле» әсәрендә күтәрелгән төп проблемалар …8
    Ф.Садриевның «Таң җиле» романында художество чаралары …36
    Әсәрдә башламның роле .38
    Портрет характеристикасы … 39
    Романда психологик кичерешне бирү ысуллары … 39
    Образны эш-хәрәкәте аша анализлау … 45
    Образны башка персонажлар белән мөнәсәбәттә ачу … 45
    Образны характерлауда һәм әсәрнең эмоциональ тәэсирен көчәйтүдә символларның әһәмияте …49
    Әсәрнең сюжет-композициясен оештыруда үзәк образның урыны …56

    Йомгак.59
    Кулланылган әдәбият исемлеге. 62

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

    Контроль сформированности умения говорения в контрольно-измерительных материалах отечественных и зарубежных экзаменов по английскому языку

    82 страниц(ы) 

    ВВЕДЕНИЕ 3
    ГЛАВА 1. ТЕОРЕТИЧЕСКИЕ ОСНОВЫ ОРГАНИЗАЦИИ КОНТРОЛЯ КОММУНИКАТИВНЫХ УМЕНИЙ
    1.1. Функции и виды контроля в обучении иностранным языкам 6
    1.2 Единый государственный экзамен как итоговая форма контроля коммуникативных умений 12
    1.3. Международный экзамен IELTS по английскому языку 16
    Выводы по главе 1 20
    ГЛАВА 2. МЕТОДИКА ОБУЧЕНИЯ ГОВОРЕНИЮ В ИНОЯЗЫЧНОМ ОБРАЗОВАНИИ
    2.1. Цели и содержание обучения говорению в школе 23
    2.2 Технологии формирования умений говорения 27
    2.3. Контроль сформированности умений говорения в контрольно-измерительных материалах ЕГЭ 31
    2.4. Контроль сформированности умений говорения в контрольно-измерительных материалах IELTS 35
    Выводы по главе 2 38
    ГЛАВА 3. АНАЛИЗ КОНТРОЛЯ СФОРМИРОВАННОСТИ УМЕНИЙ ГОВОРЕНИЯ В КОНТРОЛЬНО-ИЗМЕРИТЕЛЬНЫХ МАТЕРИАЛАХ ОТЕЧЕСТВЕННЫХ И ЗАРУБЕЖНЫХ ЭКЗАМЕНОВ ПО АНГЛИЙСКОМУ ЯЗЫКУ
    3.1. Результаты сравнительного анализа контроля умений говорения в ЕГЭ и IELTS по итогам исследовательской деятельности 40
    3.2. Анализ УМК по английскому языку 43
    3.3. Апробация разработанных упражнений в процессе формирования и контроля умений говорения 48
    Выводы по главе 3 55
    ЗАКЛЮЧЕНИЕ 58
    СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 61
    ПРИЛОЖЕНИЯ 68

  • ВКР:

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

    68 страниц(ы) 

    ЭЧТӘЛЕК
    Кереш….3
    Төп өлеш
    Беренче бүлек.
    “Күз” компоненты булган фразеологик берәмлекләргә лингвокультурологик анализ ясау үзенчәлекләре
    1.1. Дөнья тел күренеше һәм фразеология….8
    1.2. “Күз” компоненты булган фразеологик берәмлекләрдә дөнья тел күренешенең чагылышы.13
    1.3. Татар телендә “күз” концепты….17
    1.4. “Күз” компонентлы фразеологик берәмлекләрне төркемләү.25
    Икенче бүлек.
    Урта гомум белем бирү мәктәпләрендә фразеологик берәмлекләрне лингвокультурологик яссылыкта өйрәнү
    2.1. Фразеологик берәмлекләрне өйрәнү методикасы.40
    2.2. Фразеологик берәмлекләрне өйрәнү өчен күнегүләр системасы.42
    2.3 Фразеологик берәмлекләрне үзләштерүне тикшерү алымнары.54
    Йомгак.58
    Файдаланылган әдәбият исемлеге.62
    Кушымта.

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

    Лингвостилистические особенности англоязычных экономических текстов и проблемы их перевода на русский язык (на материале журнала The economist)

    55 страниц(ы) 

    Введение 3
    Глава I. Тексты популярного экономического дискурса: их особенности и проблемы перевода на русский язык 6
    1.1 Понятие популярного экономического дискурса 6
    1.2 Лингвостилистические особенности популярного экономического дискурса 10
    1.3 Переводческие трансформации и приемы 18
    Выводы по главе 1 26
    Глава II. Практическое исследование переводческих решений в переводах англоязычных популярных экономических текстов 28
    2.1 Лингвостилистические особенности анализируемых текстов 28
    2.2 Анализ переводческих решений 33
    2.3 Основные трудности при переводе экономических текстов 42
    Выводы по главе II 49
    Заключение 51
    Список литературы 54
    Приложение 58

  • :

    Формирование этнической толерантности младших школьников средствами фольклора

    140 страниц(ы) 

    ВВЕДЕНИЕ 3
    ГЛАВА 1. ТЕОРЕТИЧЕСКИЕ АСПЕКТЫ ФОРМИРОВАНИЯ ЭТНИЧЕСКОЙ ТОЛЕРАНТНОСТИ МЛАДШИХ ШКОЛЬНИКОВ СРЕДСТВАМИ ФОЛЬКЛОРА 14
    1.1. Этническая толерантность. К анализу основных понятий 14
    1.2. Социально-педагогический потенциал музыкального фольклора 31
    1.3. Передовой педагогический опыт по проблеме использования фольклора в учебно-воспитательном процессе 60
    Выводы по первой главе 71
    ГЛАВА 2. ОРГАНИЗАЦИЯ ОБРАЗОВАТЕЛЬНОГО ПРОЦЕССА ПО ФОРМИРОВАНИЮ ЭТНИЧЕСКОЙ ТОЛЕРАНТНОСТИ МЛАДШИХ ШКОЛЬНИКОВ СРЕДСТВАМИ ФОЛЬКЛОРА 73
    2.1. Структура этнической толерантности младших школьников 73
    2.2. Модель формирования этнической толерантности младших школьников средствами фольклора 77
    Выводы по второй главе 81
    ГЛАВА 3. ОПЫТНО-ЭКСПЕРИМЕНТАЛЬНАЯ РАБОТА ПО ФОРМИРОВАНИЮ ЭТНИЧЕСКОЙ ТОЛЕРАНТНОСТИ МЛАДШИХ ШКОЛЬНИКОВ СРЕДСТВАМИ ФОЛЬКЛОРА 82
    3.1. Педагогические условия формирования этнической толерантности младших школьников средствами фольклора 82
    3.2. Анализ результатов опытно-экспериментальной работы 94
    Выводы по третьей главе 104
    ЗАКЛЮЧЕНИЕ 106
    ЛИТЕРАТУРА 109