Thema Datum  Von Nutzer Rating
Antwort
03.12.2010 00:08:28 Crnk
NotSolved
Blau Aw:Quadratische Gleichung lösen
 03.12.2010 12:53:10 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
03.12.2010 12:53:10		 Views:
897		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Quadratische Gleichung lösen
Crnk schrieb am 03.12.2010 00:08:28:

Moin moin,
ich soll im Rahmen eines Praktikums für Info eine Quadratische Gleichung in der Form ax^2+bx+c=0 lösen
Folgender Code klingt für mich logisch:
intA = ABox.Text
intB = BBox.Text
intC = CBox.Text


If intA = 0 Then
intX = -(intC / intB) 'Für a=0
ElseIf (intB / intA * 2) - intC / intA >= 0 Then
intX1 = -(intB / intA * 2) + Math.Sqrt((intB / intA * 2) ^ 0.5 - intC / intA)
And intX2 = -(intB / intA * 2) - Math.Sqrt((intB / intA * 2) ^ 0.5 - intC / intA) '
Else : ErgebnisBox.Text = "Komplex"
End If

Allerdings schmeißt der mir die kuriosesten Dinge an den Kopf.
Entweder soll ich nicht durch 0 teilen oder sonst irgendwas.
Hat einer eine Idee ?
Gruß,
Crnk


Hallo Crnk,
ich habe deinen Code nicht geprüft. Aus nachfolgendem Code kannst du dir leicht deine Lösung anpassen:
'ax^2+bx+c=0
If a = 0 Then
If b = 0 Then
Ergebnis = "Das ist keine Gleichung!"
Else
Ergebnis = "x = " + CStr(-c / b)
End If
Else
w = b * b / (4 * a * a) - c / a
Select Case w
Case Is 0
Ergebnis = "x1 = " + CStr(-b / (2 * a) + Sqr(w)) + vbCrLf + _
"x2 = " + CStr(-b / (2 * a) - Sqr(w))
End Select
End If

Rückmeldung erwünschen!
Gruß
Holger

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.12.2010 00:08:28 Crnk
NotSolved
Blau Aw:Quadratische Gleichung lösen
 03.12.2010 12:53:10 Holger
NotSolved