Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Zinsrechnung (https://www.delphipraxis.net/160381-zinsrechnung.html)

Rakash 10. Mai 2011 16:03

Delphi-Version: 7

Zinsrechnung
 
Zinsrechnung mal anders: Wie berechne ich denn aus einem gegebenem Startkapital, dem Endkapital und dem Zinssatz die Laufzeit, bis zum gegebenen Endkapital?

Viel wichtiger: Wie codiere ich es?

Ich habe mir nun eine Tabelle gemacht, 3 Editfenster und 2 Buttons.
Allerdings verwirrt mich schon der einfache Rechenweg: Wie würde ichs denn im Matheunterricht lösen? Sitze sicher nur auf leitung^^

Aphton 10. Mai 2011 16:21

AW: Zinsrechnung
 
Startkapital: x
Endkapital: y
Zinssatz: p
--
Aufzinsungsfaktor: q = 1+p

KapitalNachNJahren(n) := Startkapital * q^n

Fallst du Derive hast, kannst du es wie folgt lösen:
Code:
solve(Endkapital = Startkapital * q^n, n);
Ansonsten müsstest du selbst umformen und dir n ausrechnen:
Endkapital/Starkapital = q^n | log
log(Endkapital/Startkapital) = n*log(q)
log(Endkapital/Startkapital)/log(q) = n

Rakash 10. Mai 2011 16:28

AW: Zinsrechnung
 
Zitat:

Zitat von Aphton (Beitrag 1100023)
Startkapital: x
Endkapital: y
Zinssatz: p
--
Aufzinsungsfaktor: q = 1+p

KapitalNachNJahren(n) := Startkapital * q^n

Fallst du Derive hast, kannst du es wie folgt lösen:
Code:
solve(Endkapital = Startkapital * q^n, n);
Ansonsten müsstest du selbst umformen und dir n ausrechnen:
Endkapital/Starkapital = q^n | log
log(Endkapital/Startkapital) = n*log(q)
log(Endkapital/Startkapital)/log(q) = n

und die logarythmusfkt. wie drück ich die aus?

Wolfgang Mix 10. Mai 2011 16:37

AW: Zinsrechnung
 
http://www.delphibasics.co.uk/RTL.asp?Name=Log10

alternativ: ln statt log

Aphton 10. Mai 2011 16:38

AW: Zinsrechnung
 
Binde die Math Unit ein!

-Phantom- 10. Mai 2011 19:50

AW: Zinsrechnung
 
Delphi-Quellcode:
Uses Math;

FUNCTION lZeit(gWert,eWert,pSatz:Real): Real;
var
faktor : Real;
BEGIN
 faktor := (pSatz / 100) + 1;  
result := (ln(eWert) -  ln(gWert)) / ln(faktor);
Müsste gehen :wink:

Rakash 10. Mai 2011 20:52

AW: Zinsrechnung
 
Zitat:

Zitat von -Phantom- (Beitrag 1100045)
Delphi-Quellcode:
Uses Math;

FUNCTION lZeit(gWert,eWert,pSatz:Real): Real;
var
faktor : Real;
BEGIN
 faktor := (pSatz / 100) + 1;  
result := (ln(eWert) -  ln(gWert)) / ln(faktor);
Müsste gehen :wink:

okay. aber ist das ganze auch völlig primitiv ohne zinseszins und logarythmus möglich? :)

Aphton 10. Mai 2011 21:15

AW: Zinsrechnung
 
Um den Logarithmus wirst du nicht drumherum kommen!
Das ist notwendig, um die Potenz "runterzuziehen" und durchs Umformen dieselbe zu bestimmen!

Luckie 10. Mai 2011 21:20

AW: Zinsrechnung
 
Zitat:

Zitat von Rakash (Beitrag 1100063)
okay. aber ist das ganze auch völlig primitiv ohne zinseszins und logarythmus möglich? :)

Wenn du die Mathematik neu erfindest. Was stört dich an dem Logarithmus?

Rakash 10. Mai 2011 21:27

AW: Zinsrechnung
 
Zitat:

Zitat von Aphton (Beitrag 1100070)
Um den Logarithmus wirst du nicht drumherum kommen!
Das ist notwendig, um die Potenz "runterzuziehen" und durchs Umformen dieselbe zu bestimmen!

im unterricht haben wir soetwas noch nicht behandelt. und ich bezweifle, dass es in einer hausaufgabe gilt, etwas neues zu bearebitet, war bis jetzt nämlich noch nicht so. aber gut. ich behalt die lösung auf jeden fall im hinterkopf, habe sie ja codiert.:)


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:30 Uhr.
Seite 1 von 2  1 2      

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