Επίλυση δευτεροβάθμιας εξίσωσης με html/javascript

Επίλυση δευτεροβάθμιας εξίσωσης αx²+βx+γ=0

Συντελεστής α:

Συντελεστής β:

Συντελεστής γ:

Διακρίνουσα :

x1:

x2:

Το αρχείο html/javascript για λήψη

Επίλυση εξίσωσης δευτέρου βαθμού με συνάρτηση της Python 2.7

 Επίλυση εξίσωσης δευτέρου βαθμού της μορφής αx² + βx + γ = 0, με α ≠ 0

με τη χρήση της διακρίνουσας Δ με Python 2.7

Δ = β2 – 4αγ	Η εξίσωση αx2 + βx + γ = 0, α ≠ 0
Δ > 0	Έχει δύο ρίζες άνισες τις
Δ = 0	Έχει μια διπλή ρίζα τη
Δ < 0	Είναι αδύνατη στο R .

Πηγή: 

http://users.sch.gr/fergadioti1/Institude_Geogebra/applets/A_alg_3exisoseis/33.html

Στην Python δημιουργούμε μία συνάρτηση quad(a,b,c) με παραμέτρους τους συντελεστές της δευτεροβάθμιας εξίσωσης α,β και γ (a,b,c).

Πρώτα υπολογίζουμε την διακρίνουσα  Δ = β² – 4αγ    (d=b**2-4*a*c)

Aν d<0 επιστρέφει το d και τα μηνύματα: "No real solution",  "No real solution"

Αλλιώς αν το d>0 η συνάρτηση επιστρέφει το d και δύο ρίζες:

x1=(-b+math.sqrt(d))/(2*a)

x2=(-b-math.sqrt(d))/(2*a)

return d,x1,x2

Τέλος αν d=0 (d==0)  η συνάρτηση επιστρέφει το d και μία διπλή ρίζα:

 x=-b/float(2*a)

return d,x,x

 

Η συνάρτηση και οι κλήσεις της συνάρτησης από τη γραμμή εντολών (εκτέλεση)

 Το αρχείο Python με τη συνάρτηση επίλυσης δευτεροβάθμιας εξίσωσης

Επίλυση δευτεροβάθμιας εξίσωσης με Visual Basic

Επίλυση δευτεροβάθμιας εξίσωσης
Πηγή: Wikipedia

Α) Δίνονται οι συντελεστές α, β και γ από εξίσωση

Β) Υπολογίζουμε τη διακρίνουσα

Γ) Αν Δ<0 τότε δεν υπάρχει λύση και χ1=αδύνατο και χ2=αδύνατο
Δ) Αν Δ=0 τότε χ1=χ2=-β/2α

Ε) Αν Δ>0 τότε

χ1 = ( - β +

) / 2α

 και

χ2 = ( - β -
) / 2α


Παρατηρήσεις
α<>0
α, β και γ ακέραιοι (a, b, c integer)
Δ ακέραιος (d integer)

Χ1 και Χ2 πραγματικοί (x1, x2 single)

Ο κώδικας στο κουμπί "Επίλυση" είναι:

Private Sub Command1_Click()

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim x1 As Single
Dim x2 As Single
a = Text1
b = Text2
c = Text3
If a = 0 Then
MsgBox "To α δεν μπορεί να είναι 0"
GoTo 10
End If
d = b ^ 2 - 4 * a * c
If d < 0 Then
Text4 = "Μη πραγματική ρίζα"
Text5 = "Μη πραγματική ρίζα"
End If
If d = 0 Then
x1 = -b / (2 * a)
x2 = -b / (2 * a)
Text4 = x1
Text5 = x2
End If
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Text4 = x1
Text5 = x2
End If
10 End Sub