'

Проект «Решение квадратного урвнения»

Понравилась презентация – покажи это...





Слайд 0

Проект «Решение квадратного урвнения» Visual Basic


Слайд 1

Вычисление дискреминанта Dim a, b, c, d, x1, x2 As Double Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = b ^ 2 - (4 * a * c) Text4.Text = d End Sub


Слайд 2

Вычисление корней уравнения Private Sub Command2_Click() If d >= 0 Then x1 = (-b + Sqr(d)) / (2 * a) Text5.Text = x1 x2 = (-b - Sqr(d)) / (2 * a) Text6.Text = x2 Else x1 = "нет корней" Text5.Text = x1 Text6.Text = x1 End If End Sub


Слайд 3

Очистка текстовых окон Private Sub Command3_Click() Text1.Text = del Text2.Text = del Text3.Text = del Text4.Text = del Text5.Text = del Text6.Text = del End Sub


×

HTML:





Ссылка: