ax 2+bx+c =0 квадрат теңдеудің түбірлерін табу.
Ол үшін :
[pic]
А2 ұяшығына а
А3 ұяшығына Ь
А4 ұяшығына с
А7 ұяшығына d
А8 ұяшығына Х1
А9 ұяшығына Х2 параметрлерін жазамыз.
В2,В3,В4 ұяшықтарына а,в,с мәндерін енгізбестен бұрын теңдеуді шешу үшін алгоритмін құрамыз.
a,b,c мәндерін енгізіп дискременантты табамыз
егер D>=0 шарты орындалмаса
онда "теңдеудің шешім жоқ" Орындалса D>0 шартын тексереміз бұл шарт орындалса теңдеудің екі шешімі бар орындалмаса бір шешімі бар.(яғни D=0)
а,в,с кез келген мәндері үшін теңдеудің түбірін табу :
[pic]
Лентаның қосымша қатарынан әзірлеуші (разработчик)
қосымшасын ашып Визуал Бейсик бтырмасын шертеміз.
Квадрат теңдеудің түбірлерін табу программасын Жоба (Проект) терезесінен
Insert Module кірістіреміз
[pic]
Insert Procedure процедураны жүктейміз.
[pic]
Процедураның атын rezultat кірістіреміз.
[pic] [pic]
[pic]
Енді әзірлеуші қосымшасынан кірістіру батырмасынан басқару элемент формасын таңдаймыз
[pic]
. Батырмаға макрос , атын қоямыз
[pic] [pic]
Ескерту лентада әзірлеу қосымшасы болмаса
[pic] [pic]
