Seite 1 von 1
Console
Verfasst: 04.03.2005 18:43
von 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
Verfasst: 04.03.2005 18:54
von JanFredi
Code: Alles auswählen
OpenConsole()
var1 = Val(Input())
PrintN("")
var2 = Val(Input())
PrintN("")
PrintN(Str(var1)+"+"+Str(var2)+"="+Str(var1+var2))
Input()
End
Verfasst: 04.03.2005 19:16
von 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