Advertisement
KaylaSu

T-shirts

Nov 28th, 2021
167
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Übung Sila Ogan
  2. Imports System.Console
  3.  
  4. Module Programm
  5. Dim Anzahl, Rabattbetrag1, Rabattbetrag2, Rabattbetrag3, Rabattbetrag4, Endpreis As Double
  6.     Sub Main(args As String)
  7.     'Eingabe
  8.        write("Bitte geben Sie die Anzahl der T-shirts an: ")
  9.         Anzahl=Readline()
  10.         'Vereibeitung
  11.        Endpreis= Anzahl*10.5
  12.         Rabattbetrag1= Endpreis*2/100
  13.         Rabattbetrag2= Endpreis*4/100
  14.         Rabattbetrag3= Endpreis*5/100
  15.         Rabattbetrag4= Endpreis*8/100
  16.         'Ausgabe
  17.        Write("Ihr Endpreis lautet: ")
  18.         Writeline(Endpreis)
  19.         Write("Ihr Preis mit 2% Rabatt: ")
  20.         Writeline(Endpreis-Rabattbetrag1)
  21.         Write("Ihr Preis mit 4% Rabatt: ")
  22.         Writeline(Endpreis-Rabattbetrag2)
  23.         Write("Ihr Preis mit 5% Rabatt: ")
  24.         Writeline(Endpreis-Rabattbetrag3)
  25.         Write("Ihr Preis mit 8% Rabatt: ")
  26.         Writeline(Endpreis-Rabattbetrag4)
  27.         Readline()
  28.        
  29.     End Sub
  30. End Module
  31.  
Advertisement
RAW Paste Data Copied
Advertisement