| | |
| 14. ABSCHREIBUNG | |
| Der Wert der meisten Anlagegüter wird über einen bestimmten Zeitraum abgeschrieben. Dieses Programm errechnet den Abschreibungswert (die Differenz), nachdem Sie den Originalwert, den Abschreibungssatz und den Abschreibungszeitraum eingegeben haben. | |
| | |
| 10 REM DEPRECIATION | |
| 20 CLS | |
| 30 INPUT "ORIGINALPREIS";A | |
| 40 INPUT "ABSCHREIBUNGSSATZ";B | |
| 50 INPUT "ANZAHL JAHRE";C | |
| 60 PRINT "ABSCHREIBUNG ="; | |
| 70 B = B / 100 | |
| 80 D = A * B * (1 - B) ^ (C - 1) | |
| 90 D = INT (D * 10 + .5) / 10 | |
| 100 PRINT D : END | |