Компьютерные технологии в металлургии и литейном производстве. Дембовский В.В. - 146 стр.

UptoLike

ВУЗ: 

СЗТУ | Санкт-Петербург

Составители: 

Рубрика: 

146
Приложение 1. Программа (код) учебного проекта
VBAProject1.xls
User Forml
'РЕШЕНИЕ КВАДРАТНОГО УРАВНЕНИЯ
'Ax
2
+ Bx + C = 0
'VBAProjectl.xls
'Процедура, выполняемая при нажатии на [CommandButton2]
Private Sub CommandButton2_Click()
'Описание переменных
Dim A As Single, B As Single
Dim С As Single
Dim Dis As Single
Dim Rel As Single, Re2 As Single
Dim Iml As Single, Im2 As Single
Dim Rl As Single, R2 As Single
'Описание окон ввода
A = Val(TextBoxA.Text)
В = Val(TextBoxB.Text)
С = Val(TextBoxC.Text)
'Определение дискриминанта
Dis = B^2 – 4*A*C
'Продолжение вычислений
'Вычисление корней
If Dis > 0 Then
'Вывод первого действительного корня
Rl = (– В + Sqr(Dis)) / 2 / А
TextBox5.Text. = Str(Rl)
'To же - второго действительного корня
R2 = (– В – Sqr(Dis)) / 2 / А
TextBox6.Text = Str(R2)
Else
'Вычисление вещественных частей корней
Rel = – В / 2 / А : Re2 = Rel
'Вычисление мнимых частей корней
Iml = Sqr(Abs(Dis)) / 2 / A : Im2 = – Iml
'Вывод первого комплексного корня
TextBox5.Text = Str(Rel) & " + i *" & Str(Iml)
'To же - второго комплексного корня
TextBox6.Text = Str(Re2) & " – i *" & Str(Abs(Im2) )
End If
'Конец процедуры, выполняемой при нажатии на [CommandButton2]
End Sub
'Процедура, выполняемая при нажатии [CommandButton1]
Private Sub CommandButton1_Click()
End
'Конец процедуры, выполняемой при нажатии на [CommandButton1]

Страницы