Advertisement
uebellehrer

Lohn2 IF

Mar 25th, 2022
220
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Console
  2. Module Module1
  3.     Dim Stundenanzahl, Stundenlohn, Gesamtlohn, Faktor As Double
  4.     Sub Main()
  5.         'Eingabe
  6.        Write("Geben Sie den Stundenlohn ein: ")
  7.         Stundenlohn = ReadLine()
  8.         Write("Geben Sie den Stundenanzahl ein: ")
  9.         Stundenanzahl = ReadLine()
  10.         'Verarbeitung
  11.        If Stundenanzahl > 160 Then
  12.             Gesamtlohn = Stundenanzahl * Stundenlohn * 112.5 / 100
  13.         Else
  14.             Gesamtlohn = Stundenanzahl * Stundenlohn
  15.         End If
  16.         Write("Ihr Gesamtlohn lautet: ")
  17.         WriteLine(Gesamtlohn)
  18.         ReadLine()
  19.  
  20.     End Sub
  21.  
  22. End Module
  23.  
Advertisement
RAW Paste Data Copied
Advertisement