Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Quadratische Funktion? (https://www.delphipraxis.net/46428-quadratische-funktion.html)

Hallo_Thomas 24. Mai 2005 22:23


Quadratische Funktion?
 
Meine Anfänger Kenntnisse sind mal wieder am Ende

Wie wird in Delphi diese Formel geschrieben: 2^(n-1)


In meinem Buch hab ich Sqr(x:Extended):(Extended);

gefunden, kann aber nich wirklich was damit anfangen.


Danke für eure Hilfe

JasonDX 24. Mai 2005 22:27

Re: Quadratische Funktion?
 
In der Unit Math gibt es eine Funktion namens Power.
Mit der erreichst du das a^b durch Power(a, b).
Also was du brauchst: Power(2, n - 1);

wobei das auch durch
Delphi-Quellcode:
(1 shl (n-1))
zu erreichen wäre, solang die Basis des Ausdrucks 2 ist ;)

(Stimmt. sqr wär hier nicht unbedingt einfach einzusetzen :zwinker: )

Simonko 24. Mai 2005 22:28

Re: Quadratische Funktion?
 
nö sqr ist a^2. du musst den natürlichen logarithmus dazu benutzten schreib dir einfach eine function pow.

Pow:=exp(ln(x)*y)

JasonDX 24. Mai 2005 22:40

Re: Quadratische Funktion?
 
Zitat:

Zitat von Simonko
Pow:=exp(ln(x)*y)

Die Power-Funktion der Math-Unit macht eigentlich nichts anderes ;)

Wobei die Methode mit dem Shiften zwar nur für den Fall geeignet ist, dass n e N+ und die Basis 2 ist, aber dafür definitiv am schnellsten ist.

Hallo_Thomas 24. Mai 2005 22:45

Re: Quadratische Funktion?
 
Wegen Jungs wie euch ist dieses Forum so geil!

Simonko 24. Mai 2005 22:49

Re: Quadratische Funktion?
 
chimaira ist doch cool wenn man prozeduren manchmal auch versteht und nicht nur übernimmt ))

leddl 24. Mai 2005 22:51

Re: Quadratische Funktion?
 
:gruebel: Ich würde auch mal den Titel des Threads ändern, denn so wies aussieht gehts ja gar nicht um eine quadratische Funktion. Denn das wäre ja x^2. Du willst aber 2^x. Da besteht ein kleiner Unterschied. ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:34 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz