Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
ZinsesZinsRecher für FB0.17f
| Uploader: |  ytwinky |
| Datum/Zeit: | 16.08.2007 18:07:20 |
'So kann der ZinsesZins-Rechner ohne Klimmzüge in FB0.17 benutzt werden..
'es ist eine 'leicht' geänderte Version..
Dim As Single aKo, aKn, an, ap , Ko, Kn, n, p, ax 'Variablen deklarieren
Dim Eingabe As String 'Eingabe deklarieren
Color 2, 0 'Farbe Grün, Hintergrund schwarz
Do
Print "=========================" 'Zur Deko;)
Print "Zinseszinsrechner, Eingabe von ende bei Anfangskapital beendet das Programm ";
Print "nach Tastendruck"
Print "-------------------------"
Print "EINGABEN":
Input "Anfangskapital:", Eingabe 'Eingabe ist ne text variable ist
If Eingabe="ende" Then Exit Do 'springt aus der do:loop-schleife hinten raus
Ko=Val(Eingabe) 'wandelt eingabe in einen zahlenwert um und speichert diesen
'dann in der Zahlenvariable
Input "Zeitraum in Jahren:", n 'Variable:n
Input "Zinssatz:", p 'Variable:p
Input "Endkapital:", Kn 'Variable:Kn
Print "-------------------------"
'Rechnung
aKn = IIF(Kn=0, Ko * (1 + p / 100) ^ n, Kn)
'--------------------------------------
aKo = IIF(Ko=0, Kn / ((1 + p / 100) ^ n), Ko)
'---------------------------------------
If Ko<>0 Then ax = Kn / Ko 'Variable ax bekommt den Wert aus Kn/Ko
'---------------------------------------
'---------------------------------------
Print "ERGEBNISSE:"
Print Using "Endkapital ########.##"; aKn
Print Using "Anfangskapital ########.##"; aKo
Print Using "Zeitraum ########.##"; IIF(n=0, Log (ax) / Log(1+p/100), n)'Einsetzen von ax
Print Using "Zinssatz ########.##"; IIF(p=0, (ax ^ (1/n) -1)*100, p)
Print "========================="
sleep
cls'Clear Screen-Vorherige Ergebnisse löschen
Loop
Sleep 'Nach Tastendruck beenden