372_avtonorm 638 B

1234567891011121314151617181920212223242526272829
  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 ---------------------------------