Console

[Green Snake]

Hallo

hat jemand von euch ein paar tipps zur console programmierung?

d.h. zb wie man macht, das man eine zahl eingibt, dann noch eine, und dann soll die console das ergebnis ausgeben das wiederum heisst:

1 zahl zb 12
2 zahl zb 5
resultat 17

also ich will, das die console ganz normale aditions aufgaben lösst

ich hoffe ihr könnt mir weiterhelfen

[JanFredi]

Code: Alles auswählen

OpenConsole()
var1 = Val(Input())
PrintN("")
var2 = Val(Input())
PrintN("")
PrintN(Str(var1)+"+"+Str(var2)+"="+Str(var1+var2))
Input()
End

[125]

Etwas Komplizierter aber es sind unendlich Zahlen zahlen die du miteinander Addieren kannst und es ist Kommentiert und gibt dem User auch noch Anweisungen

Code: Alles auswählen

 ; PrintN("") = Absatz
Procedure Add() ; Um immer wieder Aufrufen zu ermöglichen
Repeat
PrintN("")
If runed=0 ; First Run?
PrintN("Zahl zum Addieren bitte eingeben. Fuer Programmende einfach Enter druecken.") 
runed=1 ; Jetzt hats ja gelaufen
EndIf 
var$ = Input()
If var$="" ; Will er verlassen? (nur enter)
Exit=1
Else
Var+Val(var$) ; Unsere addierten Zahlen mit der neuen Addieren
EndIf 
PrintN("")
If Exit=0
PrintN("Naechste Zahl zum Addieren bitte eingeben. Fuer Programmende einfach Enter druecken.") 
EndIf
Until Exit=1
PrintN(Str(var))
PrintN("")
PrintN("Moechtest du noch einmal andere Zahlen addieren? y/n") ; Will er eine neue Rechnung?
yn$=Input()
If yn$ = "y" Or yn$ = "Y"
runed=0 ; Jetzt ist ja wieder first run
Add() ; Restart
EndIf
EndProcedure 

OpenConsole() 
Add() ; Start Rechenroutine
PrintN("")
PrintN("Druecke Enter um das Programm zu verlassen.")
Input()
End