Hallo und jetzt schonmal ein großes Danke, weil ich weiß das ich jetzt denke ich viel fragen werde..
Also ich bin absoluter Anfänger und habe noch niemals irgendwas programmiert und dann kam das studium.
Wir sollen jetzt ein programm schreiben das uns nullstellen mithilfe der pq-formel ausspuckt, wobei hier "p" und "q" frei wählbar eingegeben werden können.
und soweit bin ich gekommen: Dim Eingabep AsInteger = EingabepDim Eingabeq AsInteger = Eingabeq
Dim x1 AsDouble
Dim x2 AsDouble
x1 = ((-Eingabep / 2) + ((Eingabep / 2) ^ 2 - Eingabeq)) ^ 1 / 2
If ((Eingabep / 2) ^ 2 - Eingabeq) ^ 1 / 2 < 0 Then x1 = "keine Lösung!"
x2 = (-Eingabep / 2) - ((Eingabep / 2) ^ 2 - Eingabeq) ^ 1 / 2
If ((Eingabep / 2) ^ 2 - Eingabeq) ^ 1 / 2 < 0 Then x2 = "keine Lösung"
Also das mit dem deklarieren bereitet mir einige probleme und im Internet hab ich jetzt auch nichts hilfreiches gefunden. VB zeigt mir keinen einzigen Fehler ein, dennoch tut sich da einfach garnichts beim Debugging..
Wie sage ich dem Programm, dass P und Q einfach einzugeben sind, also irgendeine zahl sein können?
MFG
Fabian
Also ich bin absoluter Anfänger und habe noch niemals irgendwas programmiert und dann kam das studium.
Wir sollen jetzt ein programm schreiben das uns nullstellen mithilfe der pq-formel ausspuckt, wobei hier "p" und "q" frei wählbar eingegeben werden können.
und soweit bin ich gekommen: Dim Eingabep AsInteger = EingabepDim Eingabeq AsInteger = Eingabeq
Dim x1 AsDouble
Dim x2 AsDouble
x1 = ((-Eingabep / 2) + ((Eingabep / 2) ^ 2 - Eingabeq)) ^ 1 / 2
If ((Eingabep / 2) ^ 2 - Eingabeq) ^ 1 / 2 < 0 Then x1 = "keine Lösung!"
x2 = (-Eingabep / 2) - ((Eingabep / 2) ^ 2 - Eingabeq) ^ 1 / 2
If ((Eingabep / 2) ^ 2 - Eingabeq) ^ 1 / 2 < 0 Then x2 = "keine Lösung"
Also das mit dem deklarieren bereitet mir einige probleme und im Internet hab ich jetzt auch nichts hilfreiches gefunden. VB zeigt mir keinen einzigen Fehler ein, dennoch tut sich da einfach garnichts beim Debugging..
Wie sage ich dem Programm, dass P und Q einfach einzugeben sind, also irgendeine zahl sein können?
MFG
Fabian