Guess the number/With feedback: Difference between revisions
Content added Content deleted
imported>Arakov |
(Added various BASIC dialects (Chipmunk Basic, GW-BASIC and MSX Basic)) |
||
Line 410: | Line 410: | ||
Enter your number 8 |
Enter your number 8 |
||
Well guessed!</pre> |
Well guessed!</pre> |
||
==={{header|Chipmunk Basic}}=== |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
<syntaxhighlight lang="vbnet">100 cls |
|||
110 nmax = 20 |
|||
120 chosen = int(rnd(1)*nmax)+1 |
|||
130 print "Guess a whole number between 1 a ";nmax;chr$(10) |
|||
140 do |
|||
150 input "Enter your number: ",guess |
|||
160 if guess < n or guess > nmax then |
|||
170 print "That was an invalid number" |
|||
180 exit do |
|||
190 else |
|||
200 if guess < chosen then print "Sorry, your number was too low" |
|||
210 if guess > chosen then print "Sorry, your number was too high" |
|||
220 if guess = chosen then print "Well guessed!" |
|||
230 endif |
|||
240 loop until guess = chosen |
|||
250 end</syntaxhighlight> |
|||
==={{header|Gambas}}=== |
==={{header|Gambas}}=== |
||
Line 437: | Line 456: | ||
End</syntaxhighlight> |
End</syntaxhighlight> |
||
==={{header|GW-BASIC}}=== |
|||
{{works with|PC-BASIC|any}} |
|||
{{works with|BASICA}} |
|||
<syntaxhighlight lang="qbasic">100 CLS |
|||
110 RANDOMIZE 1 |
|||
120 L = 20 |
|||
130 X = INT(RND(1)*L)+1 |
|||
140 PRINT "Guess a whole number between 1 a ";L;CHR$(10) |
|||
150 'do |
|||
160 INPUT "Enter your number: ", N |
|||
170 IF N < N OR N > L THEN PRINT "That was an invalid number" : GOTO 230 |
|||
180 'else |
|||
190 IF N < X THEN PRINT "Sorry, your number was too low" |
|||
200 IF N > X THEN PRINT "Sorry, your number was too high" |
|||
210 IF N = X THEN PRINT "Well guessed!" |
|||
220 IF N <> X THEN GOTO 150 |
|||
230 END</syntaxhighlight> |
|||
==={{header|IS-BASIC}}=== |
==={{header|IS-BASIC}}=== |
||
Line 481: | Line 518: | ||
300 IF G <> R THEN 140 |
300 IF G <> R THEN 140 |
||
310 END</syntaxhighlight> |
310 END</syntaxhighlight> |
||
==={{header|MSX Basic}}=== |
|||
{{works with|MSX BASIC|any}} |
|||
<syntaxhighlight lang="qbasic">100 CLS |
|||
120 L = 20 |
|||
130 X = INT(RND(1)*L)+1 |
|||
140 PRINT "Guess a whole number between 1 a ";L;CHR$(10) |
|||
150 'do |
|||
160 INPUT "Enter your number: "; N |
|||
170 IF N < N OR N > L THEN PRINT "That was an invalid number" : GOTO 230 |
|||
180 'else |
|||
190 IF N < X THEN PRINT "Sorry, your number was too low" |
|||
200 IF N > X THEN PRINT "Sorry, your number was too high" |
|||
210 IF N = X THEN PRINT "Well guessed!" |
|||
220 IF N <> X THEN GOTO 150 |
|||
230 END</syntaxhighlight> |
|||
==={{header|QB64}}=== |
==={{header|QB64}}=== |