Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Петр (Skript) Пономарев -

Visual Basic 5.0/6.0 - Числа, математика, финансы

Все примеры / Числа, математика, финансы

Решения квадратных уравнений

Автор: Петр (Skript) Пономарев | добавлено: 06.03.2010, 13:38 | просмотров: 7798 (1+) | комментариев: 0 | рейтинг: *x10
Программа для решений уравнений через дискриминант.

Код

Private Sub CmdПуск_Click()
Dim paramA As Double
Dim paramB As Double
Dim paramC As Double

Dim x1 As Double
Dim x2 As Double
Dim D As Double

paramA = Val(txtParamA.Text)
paramB = Val(txtParamB.Text)
paramC = Val(txtParamC.Text)
If paramA = 0 Or paramB = 0 Or paramC = 0 Then
MsgBox "Нули в качестве коеффециентов не допускаються", vbCritical
Exit Sub
End If
D = (paramB * paramB) - (4 * paramA * paramC)
If D > 0 Then
x1 = (-paramB + Sqr(D)) / (2 * paramA)
x2 = (-paramB - Sqr(D)) / (2 * paramA)
lbl8.Caption = D
lbl9.Caption = x1
lbl10.Caption = x2
ElseIf D = 0 Then
x1 = paramB / (2 * paramA)
x2 = x1
lbl8.Caption = D
lbl9.Caption = x1
lbl10.Caption = "Корень№1 = Корень№2"
ElseIf D < 0 Then
lbl8.Caption = D
lbl9.Caption = "Корней нет"
lbl10.Caption = "Корень квадратный равен"
MsgBox "Дискрименант больше нуля", vbCritical
End If
End Sub

Private Sub lbl6_Click()
lbl6.Caption = Sqr(D)
End Sub
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Петр (Skript) Пономарев

Нет информации об авторе...

См. также:
Профиль автора
Петр (Skript) Пономарев
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики