Advertisement
Jocelyn_Leppla

Lohn2

Jun 25th, 2021
312
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Console
  2. 'Jocelyn Leppla
  3. Module Program
  4.     Dim Stundenzahl, Lohn, Überstunden, Überstundenlohn, Normallohn, Gesamtlohn As Double
  5.  
  6.     Sub Main()
  7.         'Eingabe
  8.        Write("Bitte geben sie ihre Stundenzahl ein: ")
  9.         Stundenzahl = ReadLine()
  10.         Write("Bitte geben sie ihren Lohn ein: ")
  11.         Lohn = ReadLine()
  12.         'Verarbeitung
  13.        If Stundenzahl > 160 Then
  14.             Überstunden = Stundenzahl - 160
  15.         Else Überstunden = 0
  16.         End If
  17.         Überstundenlohn = Überstunden * Lohn * 1.12
  18.             Normallohn = (Stundenzahl - Überstunden) * Lohn
  19.             Gesamtlohn = Normallohn + Überstundenlohn
  20.             'Ausgabe
  21.            Write("Ihr Gesamtlohn betraegt: ")
  22.             WriteLine(Gesamtlohn)
  23.             ReadLine()
  24.  
  25.  
  26.  
  27.     End Sub
  28. End Module
  29.  
Advertisement
RAW Paste Data Copied
Advertisement