Главная » Файлы » Ұстаздарға көмек » Информатика
Визуал бейсикте квадрат теңдеу шешу
[ Скачать с сервера (13.3 Kb) ] 22.12.2015, 20:14
1. Форманы жасаймыз:


2. Формадағы Есептеу түгмесін 2 рет басып мына программаны жазамыз:
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = b * b - 4 * a * c
Text4 = d
If d > 0 Then
X1 = (-b + Sqr(d)) / (2 * a)
X2 = (-b - Sqr(d)) / (2 * a)
Text5 = X1
Text6 = X2
Else
Text5 = "Жауабы жоқ"
Text6 = " Жауабы жоқ "
End If
End Sub

3. Формадағы Тазалау түгмесін 2 рет басып мына программаны жазамыз:
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

4. Формадағы Шыгу түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command3_Click()
End
End Sub

http://www.referati.kz/load/slajdtar/informatika/vizual_bejsikde_kvadrat_tendeu_sheshu/82-1-0-4205
Категория: Информатика | Добавил: tashxodjaev2 | Теги: бейсикте, Визуал, теңдеу, квадрат, шешу
Просмотров: 933 | Загрузок: 298 | Рейтинг: 0.0/0
Всего комментариев: 0
ComForm">
Войдите:
avatar