Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Wurzel aus negativer Zahl

  Alt 24. Nov 2007, 17:31
Hai shirocko,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXiS"

prüfe einfach vorher ob der Wert deiner Variablen < 0 ist:

Delphi-Quellcode:
procedure TDemo_Form.Button1Click(Sender: TObject);
var
  wert: Extended;
  wurzel: Extended;
begin
  if (wert = 0) then
  begin
    ShowMessage('Wert ist 0');
  end;
  if (wert < 0) then
  begin
    ShowMessage('Wert ist kleiner 0');
  end;
  if (wert > 0) then
  begin
    wurzel := Sqrt(wert);
    ShowMessageFmt('Die Quadratwurzel aus %d ist %d', [wert, wurzel]);
  end;
end;
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat