Advertisement
uebellehrer

Lohn2

Jun 25th, 2021
188
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Console
  2. 'Übelacker
  3. Module Module1
  4.     'Vereinbarungsteil
  5.    Dim Gesamtlohn, Stundenlohn, Überstunden, Stundenanzahl As Double
  6.     Sub Main()
  7.         'Eingabe
  8.        Write("Geben Sie bitte Ihre Stundenanzahl an: ")
  9.         Stundenanzahl = ReadLine()
  10.         Write("Geben Sie bitte Ihren Stundenlohn ein: ")
  11.         Stundenlohn = ReadLine()
  12.         'Verarbeitung
  13.        'Auswahl
  14.        If Stundenanzahl > 160 Then
  15.             Überstunden = Stundenanzahl - 160
  16.             Gesamtlohn = Stundenanzahl * Stundenlohn + Überstunden * Stundenlohn * 12.5 / 100
  17.         Else
  18.             Gesamtlohn = Stundenanzahl * Stundenlohn
  19.         End If
  20.         'Ausgabe
  21.        Write("Ihr Gesamtlohn beträgt: ")
  22.         Write(Gesamtlohn)
  23.         ReadLine()
  24.     End Sub
  25.  
  26. End Module
  27.  
Advertisement
RAW Paste Data Copied
Advertisement