Advertisement
KaylaSu

Lohn

Nov 28th, 2021
183
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Console
  2. 'Sila Ogan
  3.  
  4. Module Programm
  5. Dim Normalstunden, Überstunden, Stundenlohn, Normallohn, Überstundenlohn, Bruttolohn As Double
  6.     Sub Main(args As string())
  7.         Write("Geben Sie ihre Normalstunden an : ")
  8.         Normalstunden=Readline()
  9.         Write("Geben Sie ihre Überstunden an: ")
  10.         Überstunden= Readline()
  11.         Write("Geben Sie Ihren Stundenlohn an: ")
  12.         Stundenlohn= Readline()
  13.         'Verarbeitung
  14.        Normallohn= Normalstunden*Stundenlohn
  15.         Überstundenlohn= Überstunden*1.3*Stundenlohn
  16.         Bruttolohn=Normallohn+Überstundenlohn
  17.         'Ausgabe
  18.        Write("Ihr Bruttolohn lauet: ")
  19.         Writline(Bruttolohn)
  20.         Readline()
  21.     End Sub
  22. End Module
  23.  
Advertisement
RAW Paste Data Copied
Advertisement