Rosetta Code

Guess the number/With feedback: Difference between revisions

Page Discussion

Guess the number/With feedback (view source)

Revision as of 18:19, 20 March 2024

2,635 bytes added ,  1 month ago
→‎{{header|Tiny Craft Basic}}
 
(12 intermediate revisions by 7 users not shown)
Line 410:
Enter your number 8
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}}===
Line 437 ⟶ 456:
 
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}}===
Line 462 ⟶ 499:
110 LET T = 0
120 LET N = 20
130 LET R = INT(RND *N)+1
140 PRINT "GUESS A WHOLE NUMBER BETWEEN 1 AND";N
150 REMLET LOOPT = T+1
160 LETPRINT T"ENTER =YOUR T+1NUMBER ";
170 INPUT G
170 PRINT "ENTER YOUR NUMBER ";
180 INPUTIF G <> R THEN 210
190 PRINT "YOU GUESSED IT IN";T;"TRIES."
190 IF G <> R THEN 220
200 GOTO 310
200 PRINT "YOU GUESSED IT IN";T;"TRIES."
210 GOTOIF 360G > R THEN 240
220 REMIF ENDIFG < 1 THEN 240
230 IFPRINT G"SORRY, >YOUR RNUMBER THENWAS 260TOO LOW"
240 IF G < 1R THEN 260270
250 PRINTIF "SORRY,G YOUR> NUMBER100 WASTHEN TOO LOW"270
260 PRINT "SORRY, YOUR NUMBER WAS TOO HIGH"
260 REM ENDIF
270 IF G <>= R1 THEN 300
280 IF G ><= 100 THEN 300
290 PRINT "SORRY,THAT YOURWAS NUMBERAN WASINVALID TOO HIGHNUMBER"
300 REMIF ENDIFG <> R THEN 140
310 END</syntaxhighlight>
310 IF G >= 1 THEN 320
 
320 IF G <= 100 THEN 340
==={{header|MSX Basic}}===
330 PRINT "THAT WAS AN INVALID NUMBER"
{{works with|MSX BASIC|any}}
340 REM ENDIF
<syntaxhighlight lang="qbasic">100 CLS
350 IF G <> R THEN 150
120 L = 20
360 END</syntaxhighlight>
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}}===
Line 764 ⟶ 812:
 
printf( "Guess the number between %d and %d: ", lower_limit, upper_limit );
fflush(stdout); // Flush the output buffer
 
while( scanf( "%d", &guess ) == 1 ){
Line 1,384 ⟶ 1,433:
 
=={{header|EasyLang}}==
<syntaxhighlight lang="text">
print "Guess a number between 1 and 100!"
n = randomrandint 100
repeat
g = number input
write g
if error = 1
print "You must enter a number!"
elif g > n
print " is too high"
elif g < n
print " is too low"
.
until g = n
.
print " is correct"
Line 1,463 ⟶ 1,512:
 
=={{header|Elena}}==
ELENA 46.x :
<syntaxhighlight lang="elena">import extensions;
public program()
{
int randomNumber := randomGenerator.evalnextInt(1,10);
console.printLine("I'm thinking of a number between 1 and 10. Can you guess it?");
bool numberCorrect := false;
Line 1,977 ⟶ 2,026:
 
return</syntaxhighlight>
 
=={{header|FutureBasic}}==
<syntaxhighlight lang="futurebasic">
Short n // We'll just do 1..10 to get the idea
 
void local fn BuildInterface
Short i
window 1, @"Guess the number", ( 0, 0, 340, 120 )
for i = 1 to 10
button i,,, fn StringWithFormat(@"%d", i), ( 26 * i, 60, 40, 22 )
ButtonSetBordered( i, No )
next
button 11,,, @"Quit", ( 38, 10, 95, 32 )
button 12,,, @"Again", ( 200, 10, 95, 32 )
textlabel 13, @"Guess the number:", ( 112, 85, 200, 22 )
textlabel 14,, ( 158, 30, 100, 22 ) // Hints here
filemenu 1 : menu 1, -1, No // Build but disable File menu
editmenu 2 : menu 2, -1, No // Build but disable Edit menu
end fn
 
void local fn newGame
CFRange r = fn RangeMake( 1, 10 )
ControlRangeSetEnabled( r, Yes ) // Enable number buttobns
button 11, No // Disable Quit button
button 12, No // Disable Again button
n = rnd( 10 ) // Choose a random number
textlabel 14, @"🔴" // Not found yet
end fn
 
void local fn DoDialog( evt as Long, tag as Long )
CFRange r = fn RangeMake( 1, 10 )
select evt
case _btnClick
button tag, No
select tag
case 11 : end // Quit
case 12 : fn newGame // Again
case n : textlabel 14, @"🟢" // Found
ControlRangeSetEnabled( r, No )
button 11, Yes
button 12, Yes
case < n : textlabel 14, @"➡️"
case > n : textlabel 14, @"⬅️"
end select
case _windowWillClose : end
end select
end fn
 
fn buildInterface
fn newGame
on dialog fn DoDialog
handleevents
 
</syntaxhighlight>
 
 
=={{header|Genie}}==
Line 4,560 ⟶ 4,664:
Well done! You guessed it.
</pre>
 
=={{header|Tiny Craft Basic}}==
<syntaxhighlight lang="basic">10 cls
 
20 let r = int(rnd * 100) + 1
 
30 print "hilo game"
40 print "guess the nusmber between 1 and 100"
 
50 rem loop
 
60 let t = t + 1
 
70 input "guess: ", g
 
80 if g <> r then 110
 
90 print "you guessed it in ", t ," tries."
100 goto 220
 
110 rem endif
 
120 if g > r or g < 1 then 140
 
130 print "too low"
 
140 rem endif
 
150 if g < r or g > 100 then 170
 
160 print "too high"
 
170 rem endif
 
180 if g >= 1 and g <= 100 then 200
 
190 print "invalid guess"
 
200 rem endif
 
210 if g <> r then 50
 
220 shell "pause"</syntaxhighlight>
 
=={{header|TUSCRIPT}}==
Line 4,895 ⟶ 4,956:
 
=={{header|Wren}}==
<syntaxhighlight lang="ecmascriptwren">import "io" for Stdin, Stdout
import "random" for Random
 
Basicgames
305

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/345590...362335"