Quadratische Gleichung

Mr.AI · Hält's aus hier Beiträge: 3 WIN XP

hallo,

ich versuch grad Delphi 7 zu lernen (Also noch Anfänger), hoffe ihr könnt mir bei folgenden Problem
helfen:

Also das Programm soll die Gleichung 0=x²+px+q lösen (d ist die Diskriminante).
Wenn d = 0 oder d > 0 ist klappt auch alles. Aber wenn d < 0, bricht das Programm mit der Fehler-
meldung 'ungültige Gleitkommaopertion' ab und im Quelltext wird die Zeile "d := sqrt((p*p/4)-q);"
blau hervorgehoben.

Quelltext:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

var
  Form1: TForm1;
  p,q,d,x1,x2 :real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
p := StrToFloat(Edit1.Text);
q := StrToFloat(Edit2.Text);
d := sqrt((p*p/4)-q);
x1 := -(p/2)+d;
x2 := -(p/2)-d;
if d < 0 then
begin
Label1.Caption := 'keine Nullstelle';
Label2.Caption := '';
Label3.Caption := '';
end
else if d = 0 then
begin
Label1.Caption := 'nur 1 Nullstelle';
Label2.Caption := 'x1 = ' + FloatToStrF(x1,ffnumber,4,2);
Label3.Caption := '';
end
else
begin
Label1.Caption := '';
Label2.Caption := 'x1 = ' + FloatToStrF(x1,ffnumber,4,2);
Label3.Caption := 'x2 = ' + FloatToStrF(x2,ffnumber,4,2);
end;
 end;
end.

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Ehemaliges Mitglied Erhaltene Danke: 1

du kannst keine wurzel aus einer negativen zahl ziehen. erst überpüfen.

Mr.AI · Hält's aus hier Beiträge: 3 WIN XP

wie kann ich sagen, das delphi das erst prüfen soll?

Tilo · Verfasst: So 26.02.06 22:52

achtung!
Die Diskriminate ist p²/4-q. Die Wurzel kommt erst in der Lösungsformel!

Um 'Fehler' abzufangen gibt es noch die Konstrukte:

markieren

Quelltext

1:
2:
3:
4:
5:

try
//tue was
except
//tue was bei fehler
end;

und

markieren

Quelltext

1:
2:
3:
4:
5:

try
//tue was
finally
//tue was TROTZ Fehler
end;

Die Nullstellenberechnung kannst Du auch nach Auswertung der Diskrimante vornehmen.
bei D<0 brauchst Du dann nicht rechnen und bei D=0 ist X0=-p/2. Spart "Rechenzeit"

DaRkFiRe · Beiträge: 526 WinXP Home & Professional C, C++, Delphi

Ja, aber in der Diskriminantenberechnung ergibt sich die Wurzel aus der negativen reellen Zahl.
Zudem ist die Aussage: "eine Wurzel aus einer negativen Zahl existiert nicht" nur in dem reellen (und damit der Schulmathematik UND der Rechnerform) Körper der Zahlen richtig. Es gibt ja weiterhin noch die komplexen Zahlen. Aber das ist höhere Mathematik, imaginäre Mathematik

Also:
Definitionsbereich von der Wurzel (sqrt) ist x >= 0
Du kannst den Wert (p*p/4)-q einer Variable (_d) zuweisen. Dein D wäre dann sqrt(_d) - dann bräuchtest Du auch diesen Wert nicht mehr berechnen (da das Programm aber nicht zeitkritisch scheint, dürfte das kaum ins Gewicht fallen).

Wenn also _d < 0 wird, wird sqrt(_d) MIT SICHERHEIT die Exception auslösen.
Andernfalls kannst Du hier - wie erwähnt - auch mit try...except..end arbeiten, aber angesichts der Tatsache, dass Du hier die Exception durch simple Mathematik vermeiden kannst, brauchst Du diesen Konstrukt hier nicht.

_________________
Lang ist der Weg durch Lehren - kurz und wirksam durch Beispiele! Seneca

Ehemaliges Mitglied Erhaltene Danke: 1

einfach:

markieren

Delphi-Quelltext

1:	if (pp/4)-q)>0 then sqrt(pp/4)-q) else doSomeThing;

DaRkFiRe · Beiträge: 526 WinXP Home & Professional C, C++, Delphi

Genau so meine ich das. Du hast es allerdings schön in Pascal ausformuliert

_________________
Lang ist der Weg durch Lehren - kurz und wirksam durch Beispiele! Seneca

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme