[Delphi] Wortel trekken

[Verwijderd]

Hoe trek ik met Delphi de wortel uit de var DCC1
ik dacht:

code:

DCC2 := sqrt(DCC1);

maar dat vind hij niet lief, een of andere floatingpiiunt error ofzo?

en dan nog wat, hoe reken je met negatieve getallen gaat dat gewoon zo?

code:

BCC2 := -1 * BF;

(wat dan de negative waarde van BF in BCC2 moet zetten)

[Verwijderd]

ff de volledige code:

code:

procedure TForm1.BerekenButtonClick(Sender: TObject);
var
  AF, BF, CF, ACC1, BCC1, BCC2, DCC1, DCC2, XCC1, XCC2: real;
  S1, S2, S3, S4, S5: string;
begin
  AF := StrToFloat(A.Text);
  BF := StrToFloat(B.Text);
  CF := StrToFloat(C.Text);
  BCC1 := BF * BF;
  DCC1 := BCC1 - 4 * AF * CF;
  DCC2 := sqrt(DCC1);
  BCC2 := -1 * BF;
  XCC1 := BCC2 + DCC2;
  ACC1 := 2 * AF;
  XCC2 := XCC1 / ACC1;
  S1 := FormatFloat('0.0000', DCC1);
  S2 := FormatFloat('0.0000', AF);
  S3 := FormatFloat('0.0000', BF);
  S4 := FormatFloat('0.0000', CF);
  S5 := FormatFloat('0.0000', XCC2);
  Dshow.Caption := S1;
  Ashow.Caption := S2;
  Bshow.Caption := S3;
  Cshow.Caption := S4;
  X1show.Caption := S5;
end;

jawel een vaag beginsel van een ABC formule

[Tomatoman]

Je zou toch moeten weten dat de wortel van een negatief getal resulteert in een imaginair getal. Daarom vreet Sqrt() geen negatieve getallen.

[whoami]

Een wortel trekken met behulp van sqrt kan je enkel uit een integer.
Je rekent zo met negatieve getallen, hoe zou je 't anders doen?

Check er anders maar eens de mooie help over na.

[Tomatoman]

Uit Delhi Help:

function Sqrt(X: Extended): Extended;

X is a floating-point expression. The result is the square root of X.

Geen integer dus, maar een floating-point.

(Ook Lite-Mods dienen de help te lezen. )

[whoami]

Mja, ik had het net nagelezen. excuses.

[ATS]

Herken ik daar de ABC formule?

[Limhes]

Op woensdag 05 juni 2002 01:19 schreef ATS het volgende:
Herken ik daar de ABC formule?

ik ook al, en bij de abc formule wordt doorgaans gecontroleerd of de discriminant (b²-4ac) groter of gelijk aan 0 is, anders kan hij in de reele wiskunde niet worden berekend...