Rabatt 3 Übung

Sila Ogan Übung
imports system.console
Module Module1
Dim Warenwert, Rabattsatz, Rabattbetrag, Sonderabzugsbetrag, Restwert, Endbetrag, MwStBetrag, Rechnungsbetrag As Double
    Sub Main()
    'Eingabe
    Write("Bitte geben Sie den Warenwert ein: ")
    Warenwert=Readline()
    If Warenwert >=1250 Then
    Rabattsatz=7.5
    Else
    If Warenwert>= 1050 Then
    Rabattsatz=6.2
    Else
    If Warenwert>= 800 Then
    Rabattsatz= 4.8
    Else
    If Warenwert>= 550 Then
                        Rabattsatz=3.2
    Else
    If Warenwert>= 200 Then
    Rabattsatz=1.9
    Else
    Rabattsatz=0
    End If
    'Berechnung
    Rabattbetrag=Warenwert*Rabattsatz/100
    Restwert=Warenwert- Rabattbetrag
    If Restwert> 3000 Then
    Sonderabzugsbetrag=150
    Else
    Sonderabzugsbetrag=Warenwert*0.015
    End If
    Endbetrag= Warenwert-Sonderabzugsbetrag
    MwStBetrag=Endbetrag*0.19
    Rechnungsbetrag=Endbetrag+MwStBetrag
    'Ausgabe
    Write("Ihr Rabattbetrag beträgt: ")
    Writeline(math.round(Rabattbetrag,2))
    Write("Ihr Sonderabzugsbetrag beträgt: ")
    Writeline(math.round(Sonderabzugsbetrag,2))
    Write("Ihr MwSt Betrag beträgt: ")
    Writeline(math.round(MwStBetrag,2))
    Write("Ihr Rechnungsbetrag beträgt: ")
    Writeline(math.round(Rechnungsbetrag,2))
    readline()
    End Sub
End Module