Advertisement
Jocelyn_Leppla

Lohn1

Jun 18th, 2021
95
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Console
  2. 'Jocelyn Leppla
  3. Module Module1
  4.     Dim Normalstunden, Überstunden, Bruttolohn, Stundenlohn As Double
  5.     Sub Main()
  6.         'Eingabe
  7.        Write("Bitte geben sie ihre Normalstunden ein: ")
  8.         Normalstunden = ReadLine()
  9.         Write("Bitte geben sie ihre Überstunden ein: ")
  10.         Überstunden = ReadLine()
  11.         Write("Bitte geben sie ihren Stundenlohn ein: ")
  12.         Stundenlohn = ReadLine()
  13.         'Verarbeitung
  14.        Bruttolohn = Stundenlohn * Normalstunden + Stundenlohn * Überstunden * 1.3
  15.         'Ausgabe
  16.        Write("Ihr Bruttolohn betraegt: ")
  17.         WriteLine(Bruttolohn)
  18.  
  19.         ReadLine()
  20.  
  21.     End Sub
  22. End Module
  23.  
Advertisement
RAW Paste Data Copied
Advertisement