Forum: Sonstige Fragen zu Delphi
Delphi
by C0M3T,
7. Mär 2012
@Gammatester:
Also mit meiner Formel kommen die beiden richtigen Ergenisse raus. (1&2)
eingesetzt in die Gleichung ergeben beide 0. So soll es sein.:-D
Forum: Sonstige Fragen zu Delphi
Delphi
by C0M3T,
7. Mär 2012
Naja, das Progi ist einzig dazu gedacht, quadratische Gleichungen der Form 0=ax^2+bx+c zu lösen. Demnach muss, bzw. darf man auf die Formel keinen Einfluss haben. Eine Überprüfung der Variablen erscheint mir sinnvoll, mal sehen, ob ich das noch einbaue.
Forum: Sonstige Fragen zu Delphi
Delphi
by C0M3T,
7. Mär 2012
Habe ich schon angepasst 'Error: Wuzel(-x)'
Forum: Sonstige Fragen zu Delphi
Delphi
by C0M3T,
6. Mär 2012
Also DaddyH 's Quellcode kurz angepasst und ausprobiert.
Funktioniert nun wunderbar!
Vielen Dank an euch alle, für die schnelle Hilfe!
var a,b,c,d,f,g,h:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
g:= b/a/2;
Forum: Sonstige Fragen zu Delphi
Delphi
by C0M3T,
6. Mär 2012
Vielen Dank, für die zahlreichen Antworten!
Nun, wie kann ich denn dem Progi "sagen", dass es hier bei Negativen Werten,
beispielsweise sqrt(-4), eine Meldung mit
'Nicht lösbar' ausgibt ?
Mit einem "If-Then-Befehl"?
Forum: Sonstige Fragen zu Delphi
Delphi
by C0M3T,
6. Mär 2012
Hallo liebe Community,
Dies ist mein erster Post hier, also lasst bitte Nachsicht walten :).
Ich bin leider noch ein ziemlicher Anfänger bei Delphi und stehe nun vor
meinem ersten "schier unlösbaren Problem".
Und zwar bin ich gerade dabei einen simplen Gleichungslöser für quadratische
Gleichungen der allgemeinen Form 0=ax²+bx+c zu basteln (a ungleich 0). Dabei soll mir
das Programm die...