Advertisement
uebellehrer

Taschenrechner BGY 20

Feb 4th, 2022
216
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Console
  2. Module Module1
  3.     'Variablendeklaration
  4.    Dim Zahl1 As Double 'Kommazahlen
  5.    Dim Zahl2, Ergebnis As Double
  6.     'Variablen des gleichen Datentyps
  7.    'können mit Komma getrennt deklariert werden.
  8.    Sub Main()
  9.         'Eingabe mithilfe Read-Befehl
  10.        'Merke: Bei der Eingabe steht die
  11.        'Variable LINKS!
  12.        Zahl1 = ReadLine()
  13.         Zahl2 = ReadLine()
  14.         'Verarbeitung
  15.        Ergebnis = Zahl1 + Zahl2
  16.         'Ausgabe
  17.        WriteLine(Ergebnis)
  18.  
  19.         ReadLine() 'Hält das Ausgabefenster offen
  20.    End Sub
  21.  
  22. End Module
  23.  
Advertisement
RAW Paste Data Copied
Advertisement