home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 11_3lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  467b  |  19 lines
  1. 10 rem << abschreibungsprogramm  >>
  2. 20 rem dieses programm berechnet die
  3. 30 rem jaehrliche abschreibung
  4. 40 printchr$(5)"[147] abschreibung"
  5. 50 print"eingabe des nennwerts"
  6. 60 input i
  7. 70 print "eingabe der laufzeit  (in jahren)"
  8. 80 input n
  9. 90 print"eingabe des geschaetzten schrottwerts"
  10. 100 input s:print"[147]"
  11. 110 print"jahr abschr. buchwert"
  12. 120 b=i
  13. 130 for k = 1to n
  14. 140 rem der buchwert wird um die jaehrliche abschreibung vermindert
  15. 150 b = b-(i-s)/n
  16. 160 print:printtab(0)k;:printtab(6)(i-s)/n;:printtab(13)b
  17. 170 next
  18. 180 end
  19.