Von |
Rantantan |
Am |
29. Dezember 2008 um 13:04:44 |
Frage |
Hallo Leute
schreibe ein Programm mit dem man die Koeffizienten in Textboxen eingibt und das Programm berechnet die Lösungen x1,x2 der quadr. Gleichung.
Ich kriege aber keine Ausgabe für Realteil/Imaginärteil. Re und Im sind immer 0. Aber x1 und x2 kann er richtig berechnen, vorausgesetzt natürlich, die Wurzel ist nichtnegativ.Dim a As Double Dim p As Double Dim q As Double Dim c As Double Dim x1 As Double Dim x2 As Double Dim Re As Double Dim Im As Double Private Sub Command1_Click() ' Gleichung der Form ax^2+px+q=c ' a = Text1.Text p = Text2.Text q = Text3.Text c = Text4.Text If (p / (2 * a)) ^ 2 < (q / a) - (c / a) Then Re = -p / (a * 2) Im = ((p / (2 * a) ^ 2) - ((q / a) - (c / a))) ^ (1 / 2) x1 = -p / (a * 2) + ((p / (a * 2)) ^ 2 - ((q / a) - (c / a))) ^ (1 / 2) x2 = -p / (a * 2) - ((p / (a * 2)) ^ 2 - ((q / a) - (c / a))) ^ (1 / 2) End If Label4 = x1 & vbCrLf & x2 Label5 = Re & "+j*" & Im & vbCrLf & Re & "-j*" & Im |
|