Rezolva Ecuatii de gradul 2

[Cyber]

Buna.
Este un program facut un AutoIT ce rezolva ecuatii de gradul 2. trebuie doar sa introduceti valoarea lui a, b si c. Si va va afisa delta, x1 si x2

Download: http://www.cyber.rsb-team.com/downloads/rezolva_ec_gr2.exe

Have fun...!

UPDATE: am fixat un bug ( daca introduceai pe "c" cu "-" nu calcula bine) si acuma arata si radical din delta

cod sursa

Cod:

#include
#NoTrayIcon

$gui = GUICreate("Ec.Gr.2.by.Cyber", 250, 75)
$a_label = GUICtrlCreateLabel("a= ", 4, 5, 15, 18)
$a_input = GUICtrlCreateInput("", 20, 4, 30, 19)
$b_label = GUICtrlCreateLabel("b= ", 54, 5, 15, 18)
$b_input = GUICtrlCreateInput("", 70, 4, 30, 19)
$c_label = GUICtrlCreateLabel("c= ", 104, 5, 15, 18)
$c_input = GUICtrlCreateInput("", 120, 4, 30, 19)
$calculate = GUICtrlCreateButton("Calculeaza", 154, 4, 94, 19)
$delta_box = GUICtrlCreateLabel("Delta=", 4, 30, 50, 19)
$x1_box = GUICtrlCreateLabel("x1=", 58, 30, 45, 19)
$x2_box = GUICtrlCreateLabel("x2=", 107, 30, 45, 19)
$rad_delta_box = GUICtrlCreateLabel("Rad. Delta=", 156, 30, 80, 19)
$reset = GUICtrlCreateButton("--------------------Reseteaza--------------------", 4, 53, 242, 18)

GUISetBkColor(0x000000, $gui)
GUICtrlSetColor($a_label, 0xFFFFFF)
GUICtrlSetColor($b_label, 0xFFFFFF)
GUICtrlSetColor($c_label, 0xFFFFFF)
GUICtrlSetBkColor($a_input, 0x000000)
GUICtrlSetColor($a_input, 0xFFFFFF)
GUICtrlSetBkColor($b_input, 0x000000)
GUICtrlSetColor($b_input, 0xFFFFFF)
GUICtrlSetBkColor($c_input, 0x000000)
GUICtrlSetColor($c_input, 0xFFFFFF)
GUICtrlSetColor($delta_box, 0xFFFFFF)
GUICtrlSetColor($x1_box, 0xFFFFFF)
GUICtrlSetColor($x2_box, 0xFFFFFF)
GUICtrlSetColor($rad_delta_box, 0xFFFFFF)
GUISetState()

Dim $a, $b, $c, $delta

Func delta()
$a = GUICtrlRead($a_input)
$b = GUICtrlRead($b_input)
$c = GUICtrlRead($c_input)
If $a==0 Then
MsgBox(0, "Eroare", $a & " trebuie sa nu fie egal cu 0")
Else
If $b < 0 Then $b= $b* -1
If $c < 0 Then $c= $c* 1
$delta = ($b^2) - 4 * $a * $c
$rad_delta = Round(Sqrt($delta), 1)
If $delta < 0 Then MsgBox(0, "Eroare", "Delta este mai mic ca 0")
GUICtrlSetData($delta_box, "Delta= " & $delta)
GUICtrlSetData($rad_delta_box, "Rad. Delta= " & $rad_delta)
EndIf
EndFunc

Func x1()
$a = GUICtrlRead($a_input)
$b = GUICtrlRead($b_input)
$rad_delta = Sqrt($delta)
$f = 2 * $a
$ff = -$b + $rad_delta
$x11 = $ff/$f
$x1 = Round($x11, 1)
GUICtrlSetData($x1_box, "x1= " & $x1)
EndFunc

Func x2()
$a = GUICtrlRead($a_input)
$b = GUICtrlRead($b_input)
$rad_delta = Sqrt($delta)
$ff = 2 * $a
$fff = -$b - $rad_delta
$x22 = $fff/$ff
$x2 = Round($x22, 1)
GUICtrlSetData($x2_box, "x2= " & $x2)
EndFunc

While 1
$msg = GUIGetMsg()
Select
Case $msg = $reset
GUICtrlSetData($delta_box, "Delta=")
GUICtrlSetData($x1_box, "x1=")
GUICtrlSetData($x2_box, "x2=")
GUICtrlSetData($a_input, "")
GUICtrlSetData($b_input, "")
GUICtrlSetData($c_input, "")
Case $msg = $calculate
GUICtrlSetData($delta_box, "")
GUICtrlSetData($x1_box, "")
GUICtrlSetData($x2_box, "")
delta()
x1()
x2()
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd

[HexString]

In mare parte programul este destul de dragut, dar se pot aduce unele imbunatatiri, nu vad acolo cat e delta si radical din delta, incearca sa lungesti GUI-ul . Iar mai apoi, incearca in caz ca Delta este mai mic decat 0, sa dai un rezultat pe numere complexe ...nu te limita la numere reale, pentru numere complexe formula este relativ la fel x12=(-b+-i*radical(-delta))/2a , si afisezi rezultatul in functie de i

OffTopic: Ma bucur ca ni sa alaturat inca un user la Programare in AutoIT

[SkullAds]