Guess the number/With feedback (player): Difference between revisions
Guess the number/With feedback (player) (view source)
Revision as of 08:15, 21 May 2021
, 3 years agoAdd FOCAL
Not a robot (talk | contribs) (Add BASIC) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 1,108:
I got it correct - thankyou!
</pre>
=={{header|FOCAL}}==
<lang focal>01.10 A "LOWER LIMIT",L
01.15 A "UPPER LIMIT",H
01.20 S T=0
01.25 I (L-H)1.3;T "INVALID INPUT"!;Q
01.30 S G=FITR((H-L)/2+L)
01.35 T "MY GUESS IS",%4,G,!
01.37 S T=T+1
01.40 A "TOO (L)OW, TOO (H)IGH, OR (C)ORRECT",R
01.45 I (R-0L)1.5,1.65,1.5
01.50 I (R-0H)1.55,1.7,1.55
01.55 I (R-0C)1.6,1.75,1.6
01.60 T "INVALID INPUT"!;G 1.3
01.65 S L=G;G 1.3
01.70 S H=G;G 1.3
01.75 T "ATTEMPTS",T,!
01.80 Q</lang>
{{out}}
<pre>LOWER LIMIT:1
UPPER LIMIT:100
MY GUESS IS= 50
TOO (L)OW, TOO (H)IGH, OR (C)ORRECT:L
MY GUESS IS= 75
TOO (L)OW, TOO (H)IGH, OR (C)ORRECT:L
MY GUESS IS= 87
TOO (L)OW, TOO (H)IGH, OR (C)ORRECT:H
MY GUESS IS= 81
TOO (L)OW, TOO (H)IGH, OR (C)ORRECT:L
MY GUESS IS= 84
TOO (L)OW, TOO (H)IGH, OR (C)ORRECT:L
MY GUESS IS= 85
TOO (L)OW, TOO (H)IGH, OR (C)ORRECT:C
ATTEMPTS= 6</pre>
=={{header|Fortran}}==
| |||