Advertisement
Sedaaa

Fliese.1

Jun 18th, 2021
183
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Console
  2. 'Seda Dalkilic
  3. Module Module1
  4.     Dim Länge, Breite, QMPreis, Verlegekosten, Endpreis, Fläche As Double
  5.     Sub Main()
  6.         'Eingabe
  7.        Write("Bitte die länge eingeben: ")
  8.         Länge = ReadLine()
  9.         Write("Bitte die Breite eingeben: ")
  10.         Breite = ReadLine()
  11.         Write("Bitte den QMPreis eingeben: ")
  12.         QMPreis = ReadLine()
  13.         'Verarbeitung
  14.        Fläche = Länge * Breite
  15.         Verlegekosten = Fläche * 5
  16.         Endpreis = Fläche * QMPreis + Verlegekosten
  17.         'Ausgabe
  18.        Write("Ihre Verlegekosten betragen: ")
  19.         WriteLine(Verlegekosten)
  20.         Write("Bitte zahlen Sie: ")
  21.         WriteLine(Endpreis)
  22.  
  23.         ReadLine()
  24.     End Sub
  25. End Module
  26.  
Advertisement
RAW Paste Data Copied
Advertisement