ax ²+bx+c =0 квадрат теңдеудің түбірлерін табу.

Ол үшін :

А2 ұяшығына а

А3 ұяшығына Ь

А4 ұяшығына с

А7 ұяшығына d

А8 ұяшығына Х1

А9 ұяшығына Х2 параметрлерін жазамыз.

В2,В3,В4 ұяшықтарына а,в,с мәндерін енгізбестен бұрын теңдеуді шешу үшін алгоритмін құрамыз.

a,b,c мәндерін енгізіп дискременантты табамыз

егер D>=0 шарты орындалмаса

онда "теңдеудің шешім жоқ" Орындалса D>0 шартын тексереміз бұл шарт орындалса теңдеудің екі шешімі бар орындалмаса бір шешімі бар.(яғни D=0)

а,в,с кез келген мәндері үшін теңдеудің түбірін табу :

Лентаның қосымша қатарынан әзірлеуші (разработчик)

қосымшасын ашып Визуал Бейсик бтырмасын шертеміз.

Квадрат теңдеудің түбірлерін табу программасын Жоба (Проект) терезесінен

Insert Module кірістіреміз

Insert Procedure процедураны жүктейміз.

Процедураның атын rezultat кірістіреміз.

Енді әзірлеуші қосымшасынан кірістіру батырмасынан басқару элемент формасын таңдаймыз

. Батырмаға макрос , атын қоямыз

Ескерту лентада әзірлеу қосымшасы болмаса