wurzel formel

[don buck]

guten abend,
ich brauche hilfe und zwar, ich benötige dringend die formel für wurzelberechenung
diese ist nich optimal,da sie nur die quadratwurzel berechnet:

ergebnis:= sqrt (zahl1);

könnntet ihr mir bitte eine formel geben, bei der ich die 2,3,4,5,6,..... wurzel ziehen kann, diese aber im prog. auswählen kann

es ist sehr dringend, ich hoffe ich bekomme eine schnelle antwort

MFG

BUCK! :roll: :roll: :roll:

[Jürgen Thomas]

Power mit 1/n als Exponent

Jürgen

[fLaSh11]

Delphi-Quellcode:

ergebnis:=root(grad, zahl)

[leddl]

Weiß nicht, obs mit Power funktioniert, aber versuch mal

Delphi-Quellcode:

Wurzel := Power(zahl1,1/n);

[don buck]

ich danke euch, aber leider funktioniert es bei mir nich ich weiss nich warum....

die potenz bei hoch... hab ich schon mit power gemacht, da klappts bei wurzel allerdings nich :cry:

nunja vllt. kann mir noch einer helfen

ich denke euch trotzdem dass ihr soooo schnell geantwortet habt, HAMMER!! seit ihr

get buck! :thumb: :thumb:

[Nicolai1234]

Zitat:

Zitat von don buck

ich danke euch, aber leider funktioniert es bei mir nich ich weiss nich warum....

die potenz bei hoch... hab ich schon mit power gemacht, da klappts bei wurzel allerdings nich :cry:

nunja vllt. kann mir noch einer helfen

ich denke euch trotzdem dass ihr soooo schnell geantwortet habt, HAMMER!! seit ihr

get buck! :thumb: :thumb:

Wie meinten auch hoch 1/n für die nte Wurzel.

Also 27^(1/3) ist die dritte Wurzel aus 27.

Also könntest du das mit power umsetzen.

[Matze]

Hallo, noch herzlich willkommen!

Die Auswahl kann beispielsweise über eine ComboBox erfolgen, doch da sind dir kaum Grenzen gesetzt.

Bei mir geht die Berechnung mittels Power ohne Probleme:

Delphi-Quellcode:

uses Math;

function CalcRoot(n, Number: Integer): Double;
begin
  result := Power(Number, 1/n);
end;

[don buck]

ASO; ok ich habs, jetzt klappts, danke euch, schönen abend noch

:thumb: :thumb: ciao :thumb: :thumb:


GET BUCK!

[Cöster]

Zitat:

Zitat von fLaSh11

Delphi-Quellcode:

ergebnis:=root(grad, zahl)

In welcher Unit soll die Funktion stehen? Mein Delphi (5 Standard und Turbo Explorer) kennt sie nicht.

[fLaSh11]

ich könnte schwören, dass es diese Funktion in unserer TurboPascal Version in der Schule gab...

sber wenn nicht dann machs halt so: ( :mrgreen: )

Delphi-Quellcode:

function root(grad, zahl: integer): double;
begin
  Result := Power(zahl, 1/grad);
end;

:duck:

//Edit: verschrieben...

[Matze]

Diese Funktion steht doch oben schon fast genauso.

In Delphi kenne ich root als vordefinierte Funktion ebenfalls nicht, aber das ist ja nicht schlimm. ;)

[Clobber the mob]

Delphi-Quellcode:

function SqRoot (zahl : extended) : extended;
var
  a : extended; i : integer;
begin
  a := 2;
  for i := 1 to 100000 do
   begin
    a := (a + zahl / a) / 2;
   end;
  result := a;
end;

Nach Heron Verfahren.

[sirius]

Zitat:

Zitat von fLaSh11

ich könnte schwören, dass es diese Funktion in unserer TurboPascal Version in der Schule gab...

Ich könnte schwören, dass mein Turbo Pascal 6.0 (was hier immernoch auf 3 3,5" DD-Disketten rumliegt) weder root noch power hatte. Ich habe mir mit ln und exp immer einen abgebrochen, wenn ich es denn mal brauchte.