Advertisement
KaylaSu

Rabatt 3 Übung

Jan 30th, 2022
173
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 Warenwert, Rabattsatz, Rabattbetrag, Sonderabzugsbetrag, Restwert, Endbetrag, MwStBetrag, Rechnungsbetrag As Double
  5.     Sub Main()
  6.     'Eingabe
  7.    Write("Bitte geben Sie den Warenwert ein: ")
  8.     Warenwert=Readline()
  9.     If Warenwert >=1250 Then
  10.     Rabattsatz=7.5
  11.     Else
  12.     If Warenwert>= 1050 Then
  13.     Rabattsatz=6.2
  14.     Else
  15.     If Warenwert>= 800 Then
  16.     Rabattsatz= 4.8
  17.     Else
  18.     If Warenwert>= 550 Then
  19.                         Rabattsatz=3.2
  20.     Else
  21.     If Warenwert>= 200 Then
  22.     Rabattsatz=1.9
  23.     Else
  24.     Rabattsatz=0
  25.     End If
  26.     'Berechnung
  27.    Rabattbetrag=Warenwert*Rabattsatz/100
  28.     Restwert=Warenwert- Rabattbetrag
  29.     If Restwert> 3000 Then
  30.     Sonderabzugsbetrag=150
  31.     Else
  32.     Sonderabzugsbetrag=Warenwert*0.015
  33.     End If
  34.     Endbetrag= Warenwert-Sonderabzugsbetrag
  35.     MwStBetrag=Endbetrag*0.19
  36.     Rechnungsbetrag=Endbetrag+MwStBetrag
  37.     'Ausgabe
  38.    Write("Ihr Rabattbetrag beträgt: ")
  39.     Writeline(math.round(Rabattbetrag,2))
  40.     Write("Ihr Sonderabzugsbetrag beträgt: ")
  41.     Writeline(math.round(Sonderabzugsbetrag,2))
  42.     Write("Ihr MwSt Betrag beträgt: ")
  43.     Writeline(math.round(MwStBetrag,2))
  44.     Write("Ihr Rechnungsbetrag beträgt: ")
  45.     Writeline(math.round(Rechnungsbetrag,2))
  46.     readline()
  47.     End Sub
  48. End Module
  49.  
Advertisement
RAW Paste Data Copied
Advertisement