avtonorm 628 B

1234567891011121314151617181920212223242526
  1. # avtonorm
  2. if car = 1:set normhour = 20
  3. if car = 2:set normhour = 20
  4. if car = 3:set normhour = 20
  5. if car = 4:set normhour = 20
  6. if car = 5:set normhour = 20
  7. if car = 6:set normhour = 20
  8. if car = 7:set normhour = 20
  9. if car = 8:set normhour = 20
  10. if car = 9:set normhour = 15
  11. if car = 10:set normhour = 18
  12. if car = 11:set normhour = 15
  13. if car >= 95:set normhour = 50
  14. if wrek = 0:
  15. set normneed = tehcar - teh
  16. set normrem = normneed * normhour
  17. end
  18. if wrek = 1:
  19. set normneed = tehcar - teh
  20. set normremK = (normneed * normhour)*70
  21. set normrem = (normneed * normhour)+ normremK
  22. end
  23. --- avtonorm ---------------------------------