Advertisement
Elisabeth_mandi

Lohn 2

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