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

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

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

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

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

    79 страниц(ы) 

    Введение 4
    Глава 1. Теоретические основы описания лексических средств выразительности 7
    1.1. Понятие стилистического приема 7
    1.2. Понятие лексических средств выразительности 10
    1.3. Классификация метафоры, сравнения и эпитета как средств выразительности 14
    1.4. Функции лексических средств выразительности в художественном тексте 19
    Выводы по главе I 24
    Глава 2. Особенности песенного дискурса в лингвистике 25
    2.1 Понятие дискурса и песенного дискурса в лингвистике 25
    2.2 Лингвистические особенности англоязычного песенного дискурса 30
    Выводы по Главе 2 33
    Глава 3. Практический анализ стилистических средств выразительности песенного дискурса 35
    3.1. Анализ лексических средств выразительности рок-жанра 35
    3.2. Анализ лексических средств выразительности поп-жанра 45
    3.3. Методическая разработка урока английского языка с привлечением песенного материала 56
    Выводы по главе 3 66
    Заключение 68
    Список литературы 70
    Приложение 1 75
    Приложение 2 76
  • Магистерская работа:

    Руководство развитием образовательной организации на примере башкирского экономико-юридического колледжа

    83 страниц(ы) 

    ВВЕДЕНИЕ 3
    ГЛАВА 1. ТЕОРЕТИЧЕСКИЕ ОСНОВЫ РАЗВИТИЯ ОБРАЗОВАТЕЛЬНЫХ ОРГАНИЗАЦИЙ СРЕДНЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ . 9
    1.1. Особенности развития образовательных организаций среднего профессионального образования 9
    1.2. Значение программы развития в деятельности образовательной организации среднего профессионального образования 16
    1.3. Роль руководителя в управлении развитием образовательной организации среднего профессионального образования 24
    ГЛАВА 2. ОСОБЕННОСТИ РАЗВИТИЯ ЧПОУ «БАШКИРСКИЙ ЭКОНОМИКО-ЮРИДИЧЕСКИЙ КОЛЛЕДЖ» 32
    2.1. Анализ внутренней среды Башкирского экономико-юридического колледжа 32
    2.2. Анализ внешней среды Башкирского экономико-юридического колледжа 40
    2.3. Определение перспективных направлений развития Башкирского экономико-юридического колледжа 47
    ГЛАВА 3. МЕТОДИЧЕСКИЕ РЕКОМЕНДАЦИИ ПО РУКОВОДСТВУ РАЗВИТИЕМ ОБРАЗОВАТЕЛЬНОЙ ОРГАНИЗАЦИИ СРЕДНЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ 55
    3.1. Описание проекта 55
    ЗАКЛЮЧЕНИЕ 57
    СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ И ЛИТЕРАТУРЫ 63
    ПРИЛОЖЕНИЯ 68
  • Лабораторная работа:

    Программирование разветвляющегося вычислительного процесса

    6 страниц(ы) 

    Лабораторная работа N3
    “Программирование разветветвляющегося вычислительного процесса”
    1. Постановка задачи
    Разработать программу вычисления значений заданной кусочно-непрерывной функции для произвольных значений исходных данных. Подготовить исходные данные для контрольного расчета значения функции по каждой формуле. Выполнить контрольные расчеты и расчет для заданных исходных данных. В программе предусмотреть вывод номера формулы, по которой были выполнены расчеты
    27) у =
    2. Анализ задачи
    Задача состоит в том, чтобы по произвольному заданному значению параметра n вычислить значение функции y.
    Есть три варианта, следовательно, имеем двойное ветвление:
    1.
    2. y=
    3.
    Исходных данных достаточно для решения задачи .
    Подготовим тестовый пример для проверки правильности программы (для контрольного расчёта).
    Пусть а=1 тогда n=0, n < 9,следовательно, имеем 1-й случай:

    3. Схема алгоритма.
    Решение задачи описывается в виде разветвленного алгоритма (Рис.1) – в виде элементарной структуры «альтернатива», вложенной в другую «альтернативу».
    4. Таблица переменных задачи
    Смысл переменных Обозначение Тип переменной Примечания
    в алгор. в прогр.
    Исходные данные:
    Параметр
    Параметр
    а

    а

    Веществ.

    а=3,53
    а>0
    Промежуточные данные:
    Вспомогательная переменная n n Веществ.
    РЕЗУЛЬТАТЫ:
    Функция y y Веществ.
    Рис. 1. Схема алгоритма решения задачи
    5. Текст программы на Паскале
    program P3;
    var a,n,y:real;
    {Работа №3.Выполнила ст. гр. ЭА-10-01 Скобелкина Н.Г. }
    k:integer;
    Begin
    Write(\'a=\');
    readln(a);
    n:=2.35*ln(a);
    if n<=9 then begin y:=(n*(n-2)*(n-1))/a; k:=1; end
    else if n>=29 then begin y:=n-9; k:=3; end
    else begin y:=exp((29-n)*ln(2)); k:=2; end;
  • ВКР:

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

    56 страниц(ы) 

    ВВЕДЕНИЕ 3
    ГЛАВА 1. ОБРАЗОВАТЕЛЬНЫЕ ВОЗМОЖНОСТИ ЭЛЕКТРОННОГО ОБУЧЕНИЯ 6
    1.1 Особенности электронного обучения 6
    1.2 Формы электронного обучения 13
    Выводы по первой главе 26
    ГЛАВА 2. МЕТОДИЧЕСКИЕ АСПЕКТЫ РЕАЛИЗАЦИИ ВЕБИНАРА НА УРОКАХ ИНФОРМАТИКИ 28
    2.1 Вебинар как форма электронного обучения 28
    2.2 Методические рекомендации по проведению вебинара 35
    Выводы по второй главе 51
    ЗАКЛЮЧЕНИЕ 53
    СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 55
  • Дипломная работа:

    Функционально-эстетическое решение интерьера библиотеки

    57 страниц(ы) 


    Введение 3
    1 Теоретическая часть 4
    1.1 Определение понятия библиотеки 4
    1.2 Оформление библиотеки в соответствии с ГОСТ 7
    2 Практическая часть 10
    2.1 Характеристика помещения 10
    2.2 Эргономические требования 12
    2.3 Выбор цветовой гаммы 14
    2.4 Требования заказчика 18
    2.5 Первоначальные эскизы 20
    2.6 Выбор программного обеспечения 21
    2.7 Основы работы в 3DsMax 25
    2.8 Этапы разработки интерьера 34
    2.9 Результат визуализации 41
    2.10 Выбор материалов 45
    2.11 Стоимость работ и материалов 47
    Заключение 51
    Список использованной литературы 53
    Приложения 54
  • Дипломная работа:

    Разработка сервиса «корпоративный планировщик»

    37 страниц(ы) 

    ВВЕДЕНИЕ 3
    ГЛАВА 1. АНАЛИЗ ОРГАНИЗАЦИИ РАБОТЫ ПЕРСОНАЛА С ИСПОЛЬЗОВАНИЕМ ИНФОРМАЦИОННЫХ СИСТЕМ 5
    1.1. Характеристика предметной области 5
    1.2. Содержательная постановка задач разработки 6
    1.3. Используемые решения и технология 7
    1.4. Обзор и анализ существующих решений 9
    Выводы по первой главе 14
    ГЛАВА 2. ПРОЕКТИРОВАНИЕ ИНФОРМАЦИОННОЙ СИСТЕМЫ СЕРВИСА 15
    2.1. Модель системы «Как должно быть» 15
    2.2. Структурно-функциональные диаграммы 16
    2.3. Общая структура работы сервиса 17
    2.4. Организация хранения данных сервиса 21
    2.5. Выводы по второй главе 25
    ГЛАВА 3. РАЗРАБОТКА СЕРВИСА ДЛЯ ВЫПОЛНЕНИЯ ЗАДАЧ В ОРГАНИЗАЦИЯХ 26
    3.1. Описание контрольного примера реализации проекта 26
    3.2. Оценка экономических показателей 29
    3.3. Тестирование сервиса 32
    3.4. Выводы по третьей главе 34
    ЗАКЛЮЧЕНИЕ 35
    СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 36
  • Курсовая работа:

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

    37 страниц(ы) 

    Введение
    1. Теоретические основы жаргонной лексики русского языка
    1.1 Общая характеристика жаргона.
    1.2 Общая характеристика молодежного жаргона как социальной подсистемы современного русского языка
    1.3 Жаргонизация в русском языке и литературе
    2. Русский литературный язык и молодежный жаргон
    2.1 Причины жаргонизации современной речи школьника
    2.3 Жаргонизация речи как основная проблема загрязнение русского языка и средства борьбы с данным языковым явлением
  • Дипломная работа:

    Развитие скоростно-силовых качеств школьников 16-17 лет

    62 страниц(ы) 

    ВВЕДЕНИЕ 3
    ГЛАВА I. ОБЗОР ЛИТЕРАТУРНЫХ ИСТОЧНИКОВ 6
    1.1. Общая характеристика методов и приемов обучения в процессе физического воспитания в школе 6
    1.2. Понятие о физических качествах 12
    1.3. Скоростные способности и основы методики их воспитания 15
    1.4. Методы и средства воспитания скоростно-силовых качеств 20
    ГЛАВА II ОРГАНИЗАЦИЯ И МЕТОДЫ ИССЛЕДОВАНИЯ 29
    2.1. Методы исследования 29
    2.2. Организация исследования 31
    ГЛАВА 3. РЕЗУЛЬТАТЫ ИССЛЕДОВАНИЯ И ИХ ОБСУЖДЕНИЕ 34
    3.1. Результаты исследования 34
    3.2. Обсуждение полученных результатов 36
    ВЫВОДЫ 40
    СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ: 42
    ПРИЛОЖЕНИЕ 1 48
    ПРИЛОЖЕНИЕ 2 49
    ПРИЛОЖЕНИЕ 3 50
    ПРИЛОЖЕНИЕ 4 51
  • Курсовая работа:

    Патриотическое воспитание в учебном процессе

    39 страниц(ы) 

    Введение…. 3
    Глава 1. Патриотизм и его характер…. 5
    1.1 Сущность патриотизма…. 5
    1.2 Инстинктивный и сознательный характер патриотизма…. 6
    1.3 Интимный характер патриотических чувств и их принуди-тельное разви-тие…. 8
    1.4 Пассивный и активный характер патриотизма…. 10
    Выводы к главе 1…. 12
    Глава 2. Воспитание патриотизма и культуры межнациональных отношений в учебном процессе…. 13
    2.1 Развитие у учащихся потребностно - мотивационной сферы, связанной с патриотизмом и культурой межнациональных отноше-ний…. 13
    2.2 Формирование у учащихся интеллектуально - эмоционального компонента патриотизма и культуры межнациональных отношений…. 14
    2.3 Воспитание у учащихся взглядов и убеждений по вопросам патриотизма и культуры межнациональных отноше-ний… 16
    Выводы к главе 2…. 19
    Глава 3. Учебный процесс - составная часть системы патриотического воспитания…. 21
    3.1 Особенности воспитательной работы по формированию чув-ства патриотизма в начальной школе…. 21
    3.2 Особенности воспитательной работы по формированию чув-ства патриотизма в основной и средней полной школе….24
    3.3 Итоги экспериментальной работы по формированию патриотических чувств на уроках иностранного язы-ка…32
    Выводы к главе 3….34
    Заключение…. 36
    Библиография….… 38
  • Курсовая работа:

    Эмоционально-окрашенные существительные английского языка

    37 страниц(ы) 

    Введение 2
    1. Теоретические основы изучения эмоциональной лексики в англоязычном художественном тексте 4
    1.1. Основные подходы к определению категории эмоционального на экстралингвистическом и языковом уровнях 4
    1.2. Основные признаки и типы эмоционально окрашенной лексики в английском языке 13
    2. Практические аспекты анализа эмоционально-окрашенной лексики в английском языке 20
    2.1. Основные подходы к классификации эмоционально-окрашенной лексики английского языка 20
    2.2.Характеристика эмоционально-окрашенных существительных английского языка в зависимости от функционально-стилевой закрепленности 24
    2.3. Соотношение категорий эмоциональности, оценочности и экспрессивности 29
    Выводы 33
    Список использованных источников и литературы 35