Advertisement
KaylaSu

Reifenhandel Übung

Jan 30th, 2022
234
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Sila Ogan Übung
  2. imports system.console
  3. Module Module1
  4. Dim Stückzahl_Flegen, Stückpreis_Flegen, Stückzahl_Reifen, Stückpreis_Reifen, Rabattsatz, Reifenpreis, Rabattbetrag, Restbetrag_Reifen, Flegenpreis, Endpreis, Rechnungsbetrag, Sonderbonus, MwSt_Betrag As Double
  5. Sub Main(args As String())
  6. 'Eingabe
  7. Write("Bitte geben Sie die Stückzahl der Flegen an: ")
  8. Stückzahl_Flegen=Readline()
  9. Write("Bitte geben Sie den Stückpreis der Flegen an: ")
  10. Stückpreis_Flegen=Readline()
  11. Write("Bitte geben Sie die Stückzahl der Reifen an: ")
  12. Stückzahl_Reifen=Readline()
  13. Write("Bitte geben Sie den Stückpreis der Reifen an: ")
  14. Stückpreis_Reifen=Readline()
  15. 'Verarbeitung
  16. If Stückpreis_Reifen>= 2 then
  17. Rabattsatz=0
  18. Else
  19. If Stückpreis_Reifen>= 4 then
  20. Rabattsatz=2.5
  21. Else
  22. If Stückpreis_Reifen>=6 then
  23. Rabattsatz=4
  24. Else
  25. If Stückpreis_Reifen>=8 then
  26. Rabattsatz=8
  27. Else
  28. Rabattsatz=6.5
  29. end If
  30. Reifenpreis=Stückzahl_Reifen*Stückpreis_Reifen
  31. Rabattbetrag=Reifenpreis*Rabattsatz/100
  32. Rabatbetrag_Reifen= Reifenpreis- Rabattbetrag
  33. Felgenpreis=Stückzahl_Felgen*Stückpreis_Flegen+Stückpreis_Flegen*5
  34. Endpreis=Restbetrag_Reifen+Felgenpreis
  35. If Endpreis>=500 then
  36. Rechnungsbetrag=Endpreis-50
  37. WriteLine("Sie erhalten einen Sonderbonus in Höhe von 50 Euro")
  38. Else
  39. Rechnungsbetrag=Endpreis
  40. End If
  41. MwSt_Betrag=Rechnungsbetrag/119*119
  42. 'Ausgabe
  43. Write("Ihr Rechnungsbetrag lautet: ")
  44. Writeline(math.round(Rechnungsbetrag,2))
  45. Write("Ihr Mehrwertsteuerbetrag lautet: ")
  46. Writeline(math.round(MwSt_Betrag,2))
  47. Write("Ihr Rabattbetrag lautet: ")
  48. Writeline(math.round(Rabattbetrag,2))
  49. Readline()
  50.     End Sub
  51. End Module
  52.  
Advertisement
RAW Paste Data Copied
Advertisement