Das deutsche QBasic- und FreeBASIC-Forum

[swordfish]

Hallo zusammen, finde es toll dass es dieses Forum gibt. Ich habe vor ein paar Tagen angefangen ein bisschen mit QBasic zu programmieren. Auf die Idee gebracht hat mich mein Mathelehrer. Jetzt habe ich für euch warscheinlich eine ganz einfache Frage. Wenn ich am Ende eines Programms, hier im Beispiel ist ein ganz simples Rechtecks-Berechnung-Programm:

REM "Rechteck.Bas"
CLS : PRINT : PRINT
PRINT " RECHTECKSBERECHNUNGEN"
PRINT "************************"
PRINT
INPUT " Wie lang (in cm) ist das Rechteck "; a
INPUT " Wie breit (in cm) ist das Rechteck "; b
u = (a+b) *2
f = a*b
PRINT
PRINT " Umfang = "; u; "cm"
PRINT " Fläche = "; f; "cm2"
END

möchte dass mich das Programm fragt ob ich das ganze noch einmal durchführen möchte, und ich dann j oder n für ja oder nein eingeben muss?
Ich wäre dem der mir dass kurz erläutern könnte sehr dankbar.

Vielen Dank schon im voraus und freundliche Grüsse
swordfish

[raph ael]

Der Einfachheit halber mach ich das mal mit GoTo:

[Sebastian]

Hallo!

Gewöhn dir GOTO am besten erst gar nicht an. Wenn man das üppiger benutzt, kommen ganz furchtbare Quelltexte dabei raus... So geht es "schöner":

[Random]

Ich würde das so machen:

DO
CLS : PRINT : PRINT
PRINT " RECHTECKSBERECHNUNGEN"
PRINT "************************"
PRINT
INPUT " Wie lang (in cm) ist das Rechteck "; a
INPUT " Wie breit (in cm) ist das Rechteck "; b
u = (a+b) *2
f = a*b
PRINT
PRINT " Umfang = "; u; "cm"
PRINT " Fläche = "; f; "cm2"
PRINT
PRINT "Weiter (j/n):"
SLEEP
IF INKEY$="n" THEN END
LOOP

es geht aber auch mit:

...
INPUT "Weiter (j/n): "; weiter$
IF weiter$ = "n" THEN END
LOOP

[Random]

Da war ich wohl etwas zu langsam. Ist aber schön zu sehen, dass viele Wege nach Rom führen.

[Elektronix]