Einzugeben sind Kapital, Zinssatz (in Prozent) und Laufzeit (in Jahren, Monaten und
Tagen). Das Programm soll die einfachen bankm¨aßigen Zinsen und das verzinste Gesamtkapital
berechnen (jedes Monat ist mit 30 Tagen und jedes volle Jahr mit 360
Tagen zu rechnen).
Beispiel:
Kapital (in Euro) --> 1234.56
Zinssatz (in %) --> 4.5
Verzinsungsdauer Jahre --> 3
Verzinsungsdauer Monate --> 7
Verzinsungsdauer Tage --> 12
---------------------------------------------------
Es ergeben sich Zinsen von 200.92 Euro.
Wert des einfach verzinsten Gesamtkapitals: 1435.48 Euro.
Bedingungen fÜr die Eingabewerte:
Kapital: zwischen 10 und 1000000 Euro
Zinsatz: zwischen 0.5 und 10.0 Prozent
Verzinsungsdauer Jahre: ganzzahlig von 0 bis 50 Jahre
Verzinsungsdauer Monate: ganzzahlig zwischen 0 und 11
Verzinsungsdauer Tage: ganzzahlig zwischen 0 und 29
' Hauptprogramm
'Programmtitel
TextWindow.Title = "Zinsen"
'Eingabe Kapital
TextWindow.Write("Geben Sie das Kapital zwischen 10 und 10 000 Euro ein : ")
'Fehlermeldung
While kapital < 10 Or kapital > 1000000
kapital = TextWindow.ReadNumber()
If kapital < 10 Or kapital > 1000000 Then
Fehlermeldung()
EndIf
EndWhile
'Eingabe Zinssatz
TextWindow.Write("Geben Sie den Zinssatz zwischen 0.5 und 10.0 Prozent ein : ")
'Fehlermeldung
While zinssatz < 0.5 Or zinssatz > 10.0
zinssatz = TextWindow.ReadNumber()
If zinssatz < 0.5 Or zinssatz > 10.0 Then
Fehlermeldung()
EndIf
EndWhile
'Eingabe Verzinsungsdauer Jahre
TextWindow.Write("Geben Sie die Verzinsungsdauer von 0 bis 50 Jahren ein : ")
jahr = TextWindow.ReadNumber()
'Fehlermeldung
If jahr < 0 Or jahr > 50 Then
Fehlermeldung()
EndIf
'Eingabe Verzinsungsdauer Monate
TextWindow.Write("Geben Sie die Verzinsungsdauer von 0 bis 11 Monaten ein : ")
monat = TextWindow.ReadNumber()
'Fehlermeldung
If monat < 0 Or monat > 11 Then
Fehlermeldung()
EndIf
'Eingabe Verzinsungsdauer Tage
TextWindow.Write("Geben Sie die Verzinsungsdauer von 0 bis 29 Tagen ein : ")
tag = TextWindow.ReadNumber()
'Fehlermeldung
If tag < 0 Or tag > 29 Then
Fehlermeldung()
EndIf
Zinsen = (kapital*zinssatz*(jahr*360)+(monat*30)+ tag/(100*360))
TextWindow.WriteLine("Es ergeben sich Zinsen von "+ Zinsen+" Euro.")
'Unterprogramm Fehlermeldung
Sub Fehlermeldung
TextWindow.WriteLine("Falsche Eingabe!")
EndSub
Ich krieg einfach nicht das gleiche Ergebnis wie bei der Angabe.
Stimmt die Formel nicht?
Okay ich geb einen aus wie viel muss ich bezahlen, Barkeaper ?
Barkeaper: 9545054$
Spongebozz: Ok ey guck mal da ist deine Mum.
Barkeaper: Mama Yey, oh ey du Lügner! Wo ist der hin?
Spongebozz: Haha so nen Lauch ich hab den gezogen yeah bin azzlack
Der längste e*pvp Thread XII 04/01/2010 - Off Topic - 29987 Replies Yo!
Hier ein paar Dinge die echt lang sind:
http://img511.imageshack.us/img511/8597/5l89ca0pk qqccaenrbqncaz.jpg
http://img683.imageshack.us/img683/5397/noguca2mk cnvcabc68jbca4.jpg
