Mathe Stunde

[theomega]

hallo

wie kann ich aus einer zahl mit delphi nicht nur die Quadratwurzel (sqrt) sondern auch die xte wurzel ziehen? Hbe in der Hilfe nichts gefunden.

THnXs

oMeGA

[Luckie]

Die n-te Wuzel aus x ist gleich x hoch 1 durch n. Und das ist mit Delphi-Boardmitteln lösbar -> Exponent.

[jbg]

Das geht wie im Matheunterricht: 3. Wurzel aus 27 = 27^(1/3)

Code:

uses Math;
function Wurzel(Value, WurzelNum: Extended): Extended;
begin
  Result := Power(Value, 1 / WurzelNum);
end;

[Privateer3000]

:shock:

[Luckie]

Zitat:

Zitat von Privateer3000

:shock:

Was' los Privateer3000? In Mathe gepennt :mrgreen:?

[theomega]

Wie kann ich den Sinus richtig ausrechnen so wie auf dem Tschenrechner, das
sin(180) = 0 oder
sin(86) = 0,99756405

und wie geht das mit dem cOsInUs?

Tnhx

[Daniel]

Hallo,

der Sinus von 180° beträgt 0. Die Funktion sin() in Delphi erwartet den Parameter aber als Radiant. Du musst also noch die Funktion "DegToRad" nutzen:

Code:

uses Math;
...
Funktion SinusEinesWinkels( aWinkel : Single ) : Single;
begin
  Result:= sin( DegToRad(aWinkel) );
end;

Jetzt solltest Du auf gleiche Ergebnisse kommen wie Dein Taschenrechner. :D

Grüße,
Daniel

[trashar]

Zitat:

Zitat von Daniel

Hallo,

der Sinus von 180° beträgt 0. Die Funktion sin() in Delphi erwartet den Parameter aber als Radiant. Du musst also noch die Funktion "DegToRad" nutzen:

Code:

uses Math;
...
Funktion SinusEinesWinkels( aWinkel : Single ) : Single;
begin
  Result:= sin( DegToRad(aWinkel) );
end;

Jetzt solltest Du auf gleiche Ergebnisse kommen wie Dein Taschenrechner. :D

Grüße,
Daniel

hallo
der beitrag ist zwar schon älter aber egal

also DegToRad() kennt der wohl nicht mehr in Delphi 7
hat sich da was geändert oder wird sin() nun anders angewannt?
mfg

[Mirilin]

:hi:

hast du die Unit Math eingebunden, :gruebel: die sollte er eigentlich noch haben.

[trashar]

oh
thx wusst ich nicht

nu gehts
thx