Задача 1. Составить программу решения уравнения вида ах2 + вх + с = 0

Составить программу решения уравнения вида ах2 + вх + с = 0. Коэффициенты а, в, с задаются с клавиатуры.

Внешний вид формы.

На форме установлены пять меток с заголовками (свойство Caption) А, В, С, Х1, Х2, пять текстовых полей и кнопка с заголовком “Решение квадратного уравнения”. Верхние текстовые поля предназначены для ввода значений коэффициентов А, В, С. Два нижних текстовых поля предназначены для вывода значений полученных корней Х1 и Х2.

Текст программы для кнопки.

Private Sub Command1_click()

Dim A,B,C as single

Dim X1, X2, D as single

A=Val(text1.text)

B=Val(text2.text)

C=Val(text3.text)

‘вычисление дискриминанта

D=B^2 – 4*A*C

‘Проверка дискриминанта перед извлечением квадратного корня

If D<0 Then

‘выдаем окно сообщения

MsgBox “Дискриминант отрицательный. Нет корней”

End If

If D>=0 Then

X1=(-B+SQR(D))/(2*A)

X2=(-B-SQR(D))/(2*A)

Text4.text=X1

Text5.text=X2

End If

End Sub

Дата добавления: 2015-08-27