Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Code-Beispiel
Zinseszinsrechner
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| k. A. |  Siedlerchr |  16.08.2007 |
(In dieser Form kann das Programm nur unter FB0.16 benutzt werden, FB0.17 erfordert die Übersetzung mit -lang deprecated, aber eine leicht geänderte Version ist hier)
Option Explicit 'Variablen Fehler werden sofort angezeigt
Dim As Single aKo, aKn, an, ap , Ko, Kn, n, p, ax 'Varaiablen deklariert
Dim Eingabe$ 'Eingabe$ deklarieren
Defsng A-Z 'Runden
Color 2, 0 'Farbe Grün, Hintegrund schwarz
Do
Print "=========================" 'Zur Deko;)
Print "Zinseszinsrechner, Eingabe von ende bei Anfangskapital beendet das Programm ";
Print "nach Tastendruck"
Print "-------------------------"
Print "EINGABEN":
Input "Anfangskapital"; eingabe$ 'das $ sagt aus, dass das 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
If Kn=0 Then
aKn = Ko * (1 + p / 100) ^ n
Else
aKn=Kn
End If
'--------------------------------------
If Ko=0 Then
aKo = Kn / ((1 + p / 100) ^ n)
Else
aKo=Ko
End If
'---------------------------------------
ax = Kn /Ko 'Variable ax bekmmt den Wert aus Kn/Ko
If n=0 Then
an = Log (ax) / Log(1+p/100) 'Einsetzten von ax
Else
an =n
End If
'---------------------------------------
If p=0 Then
ap = ( ax ^ (1/n) -1)*100
Else
ap =p
End If
'---------------------------------------
Print "ERGEBNISSE:"
Print Using "Endkapital ########.##"; aKn
Print Using "Anfangskapital ########.##"; aKo
Print Using "Zeitraum ########.##"; an
Print Using "Zinssatz ########.##"; ap
Print "========================="
sleep
cls'Clear Screen-Vorherige Ergebnisse löschen
Loop
Sleep 'Nach Tastendruck beenden
| Zusätzliche Informationen und Funktionen | |||||||
|---|---|---|---|---|---|---|---|
|
|
||||||
Bearbeiten
Versionen