![]() |
![]() |
|
![]() |
![]() |
|
Programmierung Rat & Tat für Programmierer |
![]() |
|
Themen-Optionen | Ansicht |
![]() |
#1 |
Master
![]() Registriert seit: 29.12.2001
Beiträge: 797
|
![]() hallo
wie schreibt man in pascal eine hoch zahl zum beispiel 4hoch5 zum quadrat ist mir klar sqr(x) sqr(3) = 9 gibts wo ein par gute seiten über pascal ???? oder ein gutes bord ??? gruß fenster |
![]() |
![]() |
![]() |
#2 |
Inventar
![]() Registriert seit: 04.11.2001
Alter: 45
Beiträge: 2.150
|
![]()
____________________________________
LOL - Mein erstes Post im Programmier Forum MACINTOSH - Most Applications Crash, If Not The Operating System Hangs |
![]() |
![]() |
![]() |
#3 |
Jr. Member
![]() Registriert seit: 12.06.2002
Alter: 48
Beiträge: 44
|
![]() a hoch x = exp( x* ln(a))
exp und ln gibt's ja soweit ich weiss in Pascal |
![]() |
![]() |
![]() |
#4 |
Master
![]() Registriert seit: 29.12.2001
Beiträge: 797
|
![]() program Rentrechung (input, output);
{Berechnet den Entwert bei einer vorschssigen Rentenrate die Jährlich verzinst ist} const x = 1; var Zinssatz, Rentenratejv, Jahre, Endwert : real; begin writeln ('Berechung des Endwertes.'); write ('Geben sie den Zinssatz ein: '); readln (Zinssatz); write ('Geben sie die J„hrliche Rentenrate ein: '); readln (Rentenratejv); write ('Geben sie die Analgedauer Jahren ein '); readln (Jahre); Endwert := Rentenratejv * Zinssatz * (Zinssatz * exp(Jahre* ln(Zinssatz)) - x / Zinssatz - x); writeln ('Der Endwert betr„gt: ', Endwert) end. {Rentenrechung) ================================================== =========== lässt sich zwar compilen rechnet aber falsch bei einem Zinssatz von 1.04 einer rentenrate von 100 anlagedauer von 2 jahren kommt heraus -7.7468....... herauskommen müsste 212.16 checkt das mal gruß fenster |
![]() |
![]() |
![]() |
#5 |
Jr. Member
![]() Registriert seit: 12.06.2002
Alter: 48
Beiträge: 44
|
![]() Hab leider von geometrischen Reihen nicht mehr wirklich viel Ahnung, aber es liegt glaub ich irgendwie an den Klammern.
Müsste glaub ich irgenwie so aussehen: rente*zinssatz*(exp(ln(zinssatz)*jahre)-x)/(zinssatz-1) |
![]() |
![]() |
![]() |
#6 |
Inventar
![]() Registriert seit: 13.06.2001
Beiträge: 1.830
|
![]() Wenn ganzzahlige Hochzahlen (keine Wurzeln) ausreichen kann mans einfach mit einer
Code:
funktion hochzahl(basis:real;exponent:integer):real var i:integer; zahl:real; begin zahl:=1; if (exponent>1) then for i:=1 to exponent do zahl:=zahl*basis; hochzahl:=zahl; end; Jak
____________________________________
Join the DNRC | Godwin\'s Law (thx@stona) Documentation is like sex: If it\'s good, it\'s very, very good. If it\'s bad, it\'s better than nothing. \"In theory, theory and practice are the same. In practice, they are not\" (Lawrence Berra) |
![]() |
![]() |
![]() |
Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1) | |
|
|