Advertisement
uebellehrer

Rabatt

Mar 25th, 2022
206
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Console
  2. Module Module1
  3.     Dim Rabattbetrag, Warenwert, Rabattsatz, Restbetrag As Double
  4.     Sub Main()
  5.         'Eingabe
  6.        Write("Bitte geben Sie den Warenwert ein: ")
  7.         Warenwert = ReadLine()
  8.         If Warenwert > 1000 Then
  9.             Rabattsatz = 5
  10.         Else 'Nach Else folgt NIEMALS eine Bedingung!
  11.            Rabattsatz = 0
  12.         End If
  13.         '=WENN(Warenwert>1000;Restbetrag=5;Rabattbetrag=0)
  14.        'Verarbeitung
  15.        Rabattbetrag = Warenwert * Rabattsatz / 100
  16.         Restbetrag = Warenwert - Rabattbetrag
  17.         'Ausgabe
  18.        Write("Ihr Rabattbetrag in Euro lautet: ")
  19.         WriteLine(Rabattbetrag)
  20.         Write("Ihr Restbetrag in Euro lautet: ")
  21.         WriteLine(Restbetrag)
  22.  
  23.         ReadLine()
  24.     End Sub
  25.  
  26. End Module
  27.  
Advertisement
RAW Paste Data Copied
Advertisement