Я уже писал такую программку,но сегодня решил вновь.Определяет количество корней в квадратном уравнении.Полезно дойти до решения самому.
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Local $hGUI = GUICreate("Вспоминая матан", 500,500,0,0)
GUICtrlCreateLabel("Коэффициент 1", 10, 0)
Local $cof_1 = GUICtrlCreateInput("1", 10, 50, 300, 20)
GUICtrlCreateLabel("Коэффициент 2",10, 100)
Local $cof_2 = GUICtrlCreateInput("1", 10, 150, 300, 20)
GUICtrlCreateLabel("Коэффициент 3",10, 200)
Local $cof_3 = GUICtrlCreateInput("1", 10, 250, 300, 20)
GUICtrlCreateLabel("Дискриминант",10, 300)
Local $input = GUICtrlCreateInput("*", 10, 350, 300, 20)
Local $idButton = GUICtrlCreateButton("Сколько корней?", 0, 450, 500, 25)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $idButton
Local $a = Number(GUICtrlRead($cof_1))
Local $b = Number(GUICtrlRead($cof_2))
Local $c = Number(GUICtrlRead($cof_3))
$d = ($b*$b) - 4*$a*$c
GUICtrlSetData($input,$d)
if $d < 0 then msgbox(0,"сообщение","Уравнение не имеет действительных корней")
if $d = 0 then msgbox(0,"сообщение","Уравнение имеет два одинаковых корня")
if $d > 0 then msgbox(0,"сообщение","Уравнение имеет два корня")
EndSwitch
WEnd
|