- Главная
- Разное
- Дизайн
- Бизнес и предпринимательство
- Аналитика
- Образование
- Развлечения
- Красота и здоровье
- Финансы
- Государство
- Путешествия
- Спорт
- Недвижимость
- Армия
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Проект Решение квадратного урвнения презентация
Содержание
Вычисление дискреминанта 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
Слайд 2
Вычисление дискреминанта
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
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - (4 * a * c)
Text4.Text = d
End Sub
Слайд 3
Вычисление корней уравнения
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
Text5.Text = x1
x2 = (-b - Sqr(d)) / (2 * a)
Text6.Text = x2
Else
x1 = "нет корней"
Text5.Text = x1
Text6.Text = x1
End If
End Sub
Слайд 4Очистка текстовых окон
Private Sub Command3_Click()
Text1.Text = del
Text2.Text = del
Text3.Text = del
Text4.Text
= del
Text5.Text = del
Text6.Text = del
End Sub
Text5.Text = del
Text6.Text = del
End Sub
Очистка текстовых окон
Private Sub Command3_Click()
Text1.Text = del
Text2.Text = del
Text3.Text = del
Text4.Text = del
Text5.Text = del
Text6.Text = del
End Sub
