« previous next »
Pages: [1] 2   Go Down

Author Topic: Guess the Animal  (Read 6156 times)

0 Members and 1 Guest are viewing this topic.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Guess the Animal
« on: November 08, 2020, 12:47:24 pm »
This is an interesting program and might be good exercise to convert it to more modern ways with QB64.

In 70 lines or so this little program starts learning.

Define the problem: wouldn't it be nice to save it's learning so you don't have to start over the next time you run the program? wouldn't it be nice if your answers didn't have to be in all capital letters? wouldn't it be nice to get a little practice using an array? Wouldn't it be nice to lose all the line numbers?

Here, I've taken TempodiBasic's find and divided the program into 4 or 5 sections with spaces to start making sense of what it is doing and how.

Code: QB64: [Select]
  1. 10 PRINT TAB(32); "ANIMAL"
  2. 20 PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  4. 40 PRINT "PLAY 'GUESS THE ANIMAL'"
  6. 50 PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
  8. 70 DIM A$(200)
  9. 80 FOR I = 0 TO 3
  10.    90 READ A$(I)
  11. 100 NEXT I
  12. 110 N = VAL(A$(0))
  13.  
  14. 120 REM          MAIN CONTROL SECTION
  15. 130 INPUT "ARE YOU THINKING OF AN ANIMAL"; A$
  16. 140 IF A$ = "LIST" THEN 600
  17. 150 IF LEFT$(A$, 1) <> "Y" THEN 120
  18. 160 K = 1
  19. 170 GOSUB 390
  20. 180 IF LEN(A$(K)) = 0 THEN 999
  21. 190 IF LEFT$(A$(K), 2) = "\Q" THEN 170
  22. 200 PRINT "IS IT A "; RIGHT$(A$(K), LEN(A$(K)) - 2);
  23. 210 INPUT A$
  24. 220 A$ = LEFT$(A$, 1)
  25. 230 IF LEFT$(A$, 1) = "Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": GOTO 120
  26. 240 INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "; V$
  27. 250 PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
  28. 260 PRINT V$; " FROM A "; RIGHT$(A$(K), LEN(A$(K)) - 2)
  29. 270 INPUT X$
  30. 280 PRINT "FOR A "; V$; " THE ANSWER WOULD BE ";
  31. 290 INPUT A$
  32. 300 A$ = LEFT$(A$, 1): IF A$ <> "Y" AND A$ <> "N" THEN 280
  33. 310 IF A$ = "Y" THEN B$ = "N"
  34. 320 IF A$ = "N" THEN B$ = "Y"
  35. 330 Z1 = VAL(A$(0))
  36. 340 A$(0) = STR$(Z1 + 2)
  37. 350 A$(Z1) = A$(K)
  38. 360 A$(Z1 + 1) = "\A" + V$
  39. 370 A$(K) = "\Q" + X$ + "\" + A$ + STR$(Z1 + 1) + "\" + B$ + STR$(Z1) + "\"
  40. 380 GOTO 120
  41.  
  42.  
  43. 390 REM     SUBROUTINE TO PRINT QUESTIONS
  44. 400 Q$ = A$(K)
  45. 410 FOR Z = 3 TO LEN(Q$)
  46.    415 IF MID$(Q$, Z, 1) <> "\" THEN PRINT MID$(Q$, Z, 1);
  47. 417 NEXT Z
  48. 420 INPUT C$
  49. 430 C$ = LEFT$(C$, 1)
  50. 440 IF C$ <> "Y" AND C$ <> "N" THEN 410
  51. 450 T$ = "\" + C$
  52. 455 FOR X = 3 TO LEN(Q$) - 1
  53.    460 IF MID$(Q$, X, 2) = T$ THEN 480
  54. 470 NEXT X
  55. 475 STOP
  56. 480 FOR Y = X + 1 TO LEN(Q$)
  57.    490 IF MID$(Q$, Y, 1) = "\" THEN 510
  58. 500 NEXT Y
  59. 505 STOP
  60. 510 K = VAL(MID$(Q$, X + 2, Y - X - 2))
  61. 520 RETURN
  62.  
  63.  
  64.  
  65. 530 DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
  66.  
  67.  
  68. 600 PRINT: PRINT "ANIMALS I ALREADY KNOW ARE:"
  69. 605 X = 0
  70. 610 FOR I = 1 TO 200
  71.    620 IF LEFT$(A$(I), 2) <> "\A" THEN 650
  72.    624 PRINT TAB(15 * X);
  73.    630 FOR Z = 3 TO LEN(A$(I))
  74.        640 IF MID$(A$(I), Z, 1) <> "\" THEN PRINT MID$(A$(I), Z, 1);
  75.    642 NEXT Z
  76.    645 X = X + 1: IF X = 4 THEN X = 0: PRINT
  77. 650 NEXT I
  78. 660 PRINT
  79. 670 PRINT
  80. 680 GOTO 120
  81. 999 END
  82.  
  83.  
  84.  

Divide and conquer!
Logged

Offline Kiara87

  • Forum Regular
  • Posts: 164
    • View Profile
Re: Guess the Animal
« Reply #1 on: November 08, 2020, 05:17:17 pm »
Quote from: bplus on November 08, 2020, 12:47:24 pm
This is an interesting program and might be good exercise to convert it to more modern ways with QB64.

In 70 lines or so this little program starts learning.

Define the problem: wouldn't it be nice to save it's learning so you don't have to start over the next time you run the program? wouldn't it be nice if your answers didn't have to be in all capital letters? wouldn't it be nice to get a little practice using an array? Wouldn't it be nice to lose all the line numbers?

Here, I've taken TempodiBasic's find and divided the program into 4 or 5 sections with spaces to start making sense of what it is doing and how.

Code: QB64: [Select]
  1. 10 PRINT TAB(32); "ANIMAL"
  2. 20 PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  4. 40 PRINT "PLAY 'GUESS THE ANIMAL'"
  6. 50 PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
  8. 70 DIM A$(200)
  9. 80 FOR I = 0 TO 3
  10.    90 READ A$(I)
  11. 100 NEXT I
  12. 110 N = VAL(A$(0))
  13.  
  14. 120 REM          MAIN CONTROL SECTION
  15. 130 INPUT "ARE YOU THINKING OF AN ANIMAL"; A$
  16. 140 IF A$ = "LIST" THEN 600
  17. 150 IF LEFT$(A$, 1) <> "Y" THEN 120
  18. 160 K = 1
  19. 170 GOSUB 390
  20. 180 IF LEN(A$(K)) = 0 THEN 999
  21. 190 IF LEFT$(A$(K), 2) = "\Q" THEN 170
  22. 200 PRINT "IS IT A "; RIGHT$(A$(K), LEN(A$(K)) - 2);
  23. 210 INPUT A$
  24. 220 A$ = LEFT$(A$, 1)
  25. 230 IF LEFT$(A$, 1) = "Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": GOTO 120
  26. 240 INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "; V$
  27. 250 PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
  28. 260 PRINT V$; " FROM A "; RIGHT$(A$(K), LEN(A$(K)) - 2)
  29. 270 INPUT X$
  30. 280 PRINT "FOR A "; V$; " THE ANSWER WOULD BE ";
  31. 290 INPUT A$
  32. 300 A$ = LEFT$(A$, 1): IF A$ <> "Y" AND A$ <> "N" THEN 280
  33. 310 IF A$ = "Y" THEN B$ = "N"
  34. 320 IF A$ = "N" THEN B$ = "Y"
  35. 330 Z1 = VAL(A$(0))
  36. 340 A$(0) = STR$(Z1 + 2)
  37. 350 A$(Z1) = A$(K)
  38. 360 A$(Z1 + 1) = "\A" + V$
  39. 370 A$(K) = "\Q" + X$ + "\" + A$ + STR$(Z1 + 1) + "\" + B$ + STR$(Z1) + "\"
  40. 380 GOTO 120
  41.  
  42.  
  43. 390 REM     SUBROUTINE TO PRINT QUESTIONS
  44. 400 Q$ = A$(K)
  45. 410 FOR Z = 3 TO LEN(Q$)
  46.    415 IF MID$(Q$, Z, 1) <> "\" THEN PRINT MID$(Q$, Z, 1);
  47. 417 NEXT Z
  48. 420 INPUT C$
  49. 430 C$ = LEFT$(C$, 1)
  50. 440 IF C$ <> "Y" AND C$ <> "N" THEN 410
  51. 450 T$ = "\" + C$
  52. 455 FOR X = 3 TO LEN(Q$) - 1
  53.    460 IF MID$(Q$, X, 2) = T$ THEN 480
  54. 470 NEXT X
  55. 475 STOP
  56. 480 FOR Y = X + 1 TO LEN(Q$)
  57.    490 IF MID$(Q$, Y, 1) = "\" THEN 510
  58. 500 NEXT Y
  59. 505 STOP
  60. 510 K = VAL(MID$(Q$, X + 2, Y - X - 2))
  61. 520 RETURN
  62.  
  63.  
  64.  
  65. 530 DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
  66.  
  67.  
  68. 600 PRINT: PRINT "ANIMALS I ALREADY KNOW ARE:"
  69. 605 X = 0
  70. 610 FOR I = 1 TO 200
  71.    620 IF LEFT$(A$(I), 2) <> "\A" THEN 650
  72.    624 PRINT TAB(15 * X);
  73.    630 FOR Z = 3 TO LEN(A$(I))
  74.        640 IF MID$(A$(I), Z, 1) <> "\" THEN PRINT MID$(A$(I), Z, 1);
  75.    642 NEXT Z
  76.    645 X = X + 1: IF X = 4 THEN X = 0: PRINT
  77. 650 NEXT I
  78. 660 PRINT
  79. 670 PRINT
  80. 680 GOTO 120
  81. 999 END
  82.  
  83.  
  84.  

Divide and conquer!

these sources as an exercise I downloaded them

https://www.mediafire.com/file/psy37gm7dadtobb/Basic_Computer_Games_SourceCode.7z/file

so the solution to learn and translate a program from one code to another?

will help learning?

is this what you mean?
from basic code to QB64
OR other language to QB64?
Logged
se avessi solo un'ora per salvare il mondo, passerei 55 minuti per definire bene il problema e 5 a trovare la soluzione

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Guess the Animal
« Reply #2 on: November 08, 2020, 05:42:40 pm »
Hi kiara87
I suppose that Bplus drives you to learning translating a source code to another structure so:
1. you must read Wiki to understand what does each keyword that you have to manage
2. you can see a general structure in the code
3. you can choose a more readable structure
4. you can change the structure  adding or modifying its way of working
It takes times but it is a good and hard way to learn
Good luck

Ciao kiara87
Io suppongo che Bplus ti guidi ad apprendere  traducendo un codice sorgente in un'altra struttura di codice così facendo:
1. tu sei costretta a leggere laWIKI per capire coda fa ogni parola che tu devi gestire
2. tu puoi vedere una struttura generale nel codice
3. tu puoi scegliere una struttura più leggibile
4. tu puoi cambiare la struttura aggiungendo o modificando il suo modo di funzionare
Richiede del tempo ma è un modo buono e duro di apprendere
Buona fortuna
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline Kiara87

  • Forum Regular
  • Posts: 164
    • View Profile
Re: Guess the Animal
« Reply #3 on: November 08, 2020, 05:59:28 pm »
Quote from: TempodiBasic on November 08, 2020, 05:42:40 pm
Hi kiara87
I suppose that Bplus drives you to learning translating a source code to another structure so:
1. you must read Wiki to understand what does each keyword that you have to manage
2. you can see a general structure in the code
3. you can choose a more readable structure
4. you can change the structure  adding or modifying its way of working
It takes times but it is a good and hard way to learn
Good luck

Ciao kiara87
Io suppongo che Bplus ti guidi ad apprendere  traducendo un codice sorgente in un'altra struttura di codice così facendo:
1. tu sei costretta a leggere laWIKI per capire coda fa ogni parola che tu devi gestire
2. tu puoi vedere una struttura generale nel codice
3. tu puoi scegliere una struttura più leggibile
4. tu puoi cambiare la struttura aggiungendo o modificando il suo modo di funzionare
Richiede del tempo ma è un modo buono e duro di apprendere
Buona fortuna

ciao @TempodiBasic 
allora avevo capito bene devo tradurre  il programma dal codice basic a QB64
però hai detto che ci vuole del tempo per apprendere con questo metodo
allora io mi chiedo se cè un metodo più veloce per imparare a programmare
questo magari e il metodo migliore tradurre un programma in altro linguaggio?
oppure non esiste un metodo migliore?
non sia per la fretta per imparare ma è quasi 1 anno che ci giro è cercando scorciatoie magari un metodo più veloce esiste
comunque farò anche come consigliato da bplus perche credo che lui abbia imparato cosi a programmare
grazie anche alla tua attenzione e tutti i tuoi suggerimenti e un tuo commento vale tanto con la tua traduzione in italiano
Logged
se avessi solo un'ora per salvare il mondo, passerei 55 minuti per definire bene il problema e 5 a trovare la soluzione

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Guess the Animal
« Reply #4 on: November 08, 2020, 06:29:48 pm »
Oh man! this is harder than I thought. I tried this afternoon putting it in more modern form and picked up errors. Might be easier to rewrite this from scratch, for me anyway ;-))

Logged

Offline Kiara87

  • Forum Regular
  • Posts: 164
    • View Profile
Re: Guess the Animal
« Reply #5 on: November 08, 2020, 06:37:06 pm »
Quote from: bplus on November 08, 2020, 06:29:48 pm
Oh man! this is harder than I thought. I tried this afternoon putting it in more modern form and picked up errors. Might be easier to rewrite this from scratch, for me anyway ;-))

you can post the work here to verify the changes made so to learn how you transformed the code
thanks
Logged
se avessi solo un'ora per salvare il mondo, passerei 55 minuti per definire bene il problema e 5 a trovare la soluzione

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Guess the Animal
« Reply #6 on: November 08, 2020, 06:54:08 pm »
I once had a Basic code tool that converted old basic source (that needed line numbers), into prettier Qbasic source code.  It removed all line numbers that were not called on (like GOTO 110), and it cleaned up code in other ways too.  I used it often to translate old code into more modern code and it worked good.  It was called B2Q I think.  I'm going to look for it.  Could come in handy again....

- Dav.
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Guess the Animal
« Reply #7 on: November 08, 2020, 06:59:56 pm »
Yeah Dav that was first thing I did. Then plugged in the list maker right in where it was called. Something happens with Question gosub when trying to redo the goto's inside it. It would help if I fully understand how it worked :)

Oh heck it might have been just a case of not being UCASE$() ;-))

Not use to seeing naked INPUT C$

OK removed non essential line numbers, moved the list of animals into main loop putting data at the end of program and capitalized all the INPUTs.

Looks like the original program is not parsing the A$() questions correctly either.

progress?
Code: QB64: [Select]
  1. PRINT TAB(32); "ANIMAL"
  2. PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  4. PRINT "PLAY 'GUESS THE ANIMAL'"
  6. PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
  8. DIM A$(200)
  9. FOR I = 0 TO 3
  10.     READ A$(I)
  12. N = VAL(A$(0))
  13. 120 REM          MAIN CONTROL SECTION
  14. INPUT "ARE YOU THINKING OF AN ANIMAL"; A$
  15. A$ = UCASE$(A$)
  16. IF A$ = "LIST" THEN
  17.     PRINT: PRINT "ANIMALS I ALREADY KNOW ARE:"
  18.     X = 0
  19.     FOR I = 1 TO 200
  20.         IF LEFT$(A$(I), 2) <> "\A" THEN _CONTINUE
  21.         PRINT TAB(15 * X);
  22.         FOR Z = 3 TO LEN(A$(I))
  23.             IF MID$(A$(I), Z, 1) <> "\" THEN PRINT MID$(A$(I), Z, 1);
  24.         NEXT Z
  25.         X = X + 1: IF X = 4 THEN X = 0: PRINT
  26.     NEXT I
  27.     PRINT
  28.     PRINT
  29.     GOTO 120
  31. IF LEFT$(A$, 1) <> "Y" THEN 120
  32. K = 1
  33. 170 GOSUB 390
  34. IF LEN(A$(K)) = 0 THEN END
  35. IF LEFT$(A$(K), 2) = "\Q" THEN 170
  36. PRINT "IS IT A "; RIGHT$(A$(K), LEN(A$(K)) - 2);
  38. A$ = UCASE$(LEFT$(A$, 1))
  39. IF LEFT$(A$, 1) = "Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": GOTO 120
  40. INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "; V$
  41. V$ = UCASE$(V$)
  42. PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
  43. PRINT V$; " FROM A "; RIGHT$(A$(K), LEN(A$(K)) - 2)
  45. X$ = UCASE$(X$)
  46. 280 PRINT "FOR A "; V$; " THE ANSWER WOULD BE ";
  48. A$ = UCASE$(A$)
  49. A$ = LEFT$(A$, 1): IF A$ <> "Y" AND A$ <> "N" THEN 280
  50. IF A$ = "Y" THEN B$ = "N"
  51. IF A$ = "N" THEN B$ = "Y"
  52. Z1 = VAL(A$(0))
  53. A$(0) = STR$(Z1 + 2)
  54. A$(Z1) = A$(K)
  55. A$(Z1 + 1) = "\A" + V$
  56. A$(K) = "\Q" + X$ + "\" + A$ + STR$(Z1 + 1) + "\" + B$ + STR$(Z1) + "\"
  57. GOTO 120
  58. 390 REM     SUBROUTINE TO PRINT QUESTIONS
  59. Q$ = A$(K)
  60. 410 FOR Z = 3 TO LEN(Q$)
  61.     IF MID$(Q$, Z, 1) <> "\" THEN PRINT MID$(Q$, Z, 1);
  64. C$ = UCASE$(LEFT$(C$, 1))
  65. IF C$ <> "Y" AND C$ <> "N" THEN 410
  66. T$ = "\" + C$
  67. FOR X = 3 TO LEN(Q$) - 1
  68.     IF MID$(Q$, X, 2) = T$ THEN 480
  71. 480 FOR Y = X + 1 TO LEN(Q$)
  72.     IF MID$(Q$, Y, 1) = "\" THEN 510
  75. 510 K = VAL(MID$(Q$, X + 2, Y - X - 2))
  77. DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
  78.  

Looks like will have to trim$ STR$(numbers) also.
« Last Edit: November 08, 2020, 07:40:19 pm by bplus »
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Guess the Animal
« Reply #8 on: November 08, 2020, 07:13:42 pm »
 I ran the code through the remline tool in the wiki, and here's that output. A wee bit better I guess...

- Dav

Code: QB64: [Select]
  1. PRINT TAB(32); "ANIMAL"
  2. PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  4. PRINT "PLAY 'GUESS THE ANIMAL'"
  6. PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
  8. DIM A$(200)
  9. FOR I = 0 TO 3
  10.   90 READ A$(I)
  12. N = VAL(A$(0))
  13.  
  14. 120 REM          MAIN CONTROL SECTION
  15. INPUT "ARE YOU THINKING OF AN ANIMAL"; A$
  16. IF A$ = "LIST" THEN 600
  17. IF LEFT$(A$, 1) <> "Y" THEN 120
  18. K = 1
  19. 170 GOSUB 390
  20. IF LEN(A$(K)) = 0 THEN 999
  21. IF LEFT$(A$(K), 2) = "\Q" THEN 170
  22. PRINT "IS IT A "; RIGHT$(A$(K), LEN(A$(K)) - 2);
  24. A$ = LEFT$(A$, 1)
  25. IF LEFT$(A$, 1) = "Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": GOTO 120
  26. INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "; V$
  27. PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
  28. PRINT V$; " FROM A "; RIGHT$(A$(K), LEN(A$(K)) - 2)
  30. 280 PRINT "FOR A "; V$; " THE ANSWER WOULD BE ";
  32. A$ = LEFT$(A$, 1): IF A$ <> "Y" AND A$ <> "N" THEN 280
  33. IF A$ = "Y" THEN B$ = "N"
  34. IF A$ = "N" THEN B$ = "Y"
  35. Z1 = VAL(A$(0))
  36. A$(0) = STR$(Z1 + 2)
  37. A$(Z1) = A$(K)
  38. A$(Z1 + 1) = "\A" + V$
  39. A$(K) = "\Q" + X$ + "\" + A$ + STR$(Z1 + 1) + "\" + B$ + STR$(Z1) + "\"
  40. GOTO 120
  41.  
  42.  
  43. 390 REM     SUBROUTINE TO PRINT QUESTIONS
  44. Q$ = A$(K)
  45. 410 FOR Z = 3 TO LEN(Q$)
  46.   415 IF MID$(Q$, Z, 1) <> "\" THEN PRINT MID$(Q$, Z, 1);
  49. C$ = LEFT$(C$, 1)
  50. IF C$ <> "Y" AND C$ <> "N" THEN 410
  51. T$ = "\" + C$
  52. FOR X = 3 TO LEN(Q$) - 1
  53.   460 IF MID$(Q$, X, 2) = T$ THEN 480
  56. 480 FOR Y = X + 1 TO LEN(Q$)
  57.   490 IF MID$(Q$, Y, 1) = "\" THEN 510
  60. 510 K = VAL(MID$(Q$, X + 2, Y - X - 2))
  62.  
  63.  
  64.  
  65. DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
  66.  
  67.  
  68. 600 PRINT: PRINT "ANIMALS I ALREADY KNOW ARE:"
  69. X = 0
  70. FOR I = 1 TO 200
  71.   620 IF LEFT$(A$(I), 2) <> "\A" THEN 650
  72.   624 PRINT TAB(15 * X);
  73.   630 FOR Z = 3 TO LEN(A$(I))
  74.       640 IF MID$(A$(I), Z, 1) <> "\" THEN PRINT MID$(A$(I), Z, 1);
  75.   642 NEXT Z
  76.   645 X = X + 1: IF X = 4 THEN X = 0: PRINT
  77. 650 NEXT I
  80. GOTO 120
  81. 999 END
  82.  
« Last Edit: November 08, 2020, 07:25:40 pm by Dav »
Logged

Offline Kiara87

  • Forum Regular
  • Posts: 164
    • View Profile
Re: Guess the Animal
« Reply #9 on: November 08, 2020, 07:40:14 pm »
Quote from: Dav on November 08, 2020, 07:13:42 pm
I ran the code through the remline tool in the wiki, and here's that output. A wee bit better I guess...

- Dav

Code: QB64: [Select]
  1. PRINT TAB(32); "ANIMAL"
  2. PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  4. PRINT "PLAY 'GUESS THE ANIMAL'"
  6. PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
  8. DIM A$(200)
  9. FOR I = 0 TO 3
  10.   90 READ A$(I)
  12. N = VAL(A$(0))
  13.  
  14. 120 REM          MAIN CONTROL SECTION
  15. INPUT "ARE YOU THINKING OF AN ANIMAL"; A$
  16. IF A$ = "LIST" THEN 600
  17. IF LEFT$(A$, 1) <> "Y" THEN 120
  18. K = 1
  19. 170 GOSUB 390
  20. IF LEN(A$(K)) = 0 THEN 999
  21. IF LEFT$(A$(K), 2) = "\Q" THEN 170
  22. PRINT "IS IT A "; RIGHT$(A$(K), LEN(A$(K)) - 2);
  24. A$ = LEFT$(A$, 1)
  25. IF LEFT$(A$, 1) = "Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": GOTO 120
  26. INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "; V$
  27. PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
  28. PRINT V$; " FROM A "; RIGHT$(A$(K), LEN(A$(K)) - 2)
  30. 280 PRINT "FOR A "; V$; " THE ANSWER WOULD BE ";
  32. A$ = LEFT$(A$, 1): IF A$ <> "Y" AND A$ <> "N" THEN 280
  33. IF A$ = "Y" THEN B$ = "N"
  34. IF A$ = "N" THEN B$ = "Y"
  35. Z1 = VAL(A$(0))
  36. A$(0) = STR$(Z1 + 2)
  37. A$(Z1) = A$(K)
  38. A$(Z1 + 1) = "\A" + V$
  39. A$(K) = "\Q" + X$ + "\" + A$ + STR$(Z1 + 1) + "\" + B$ + STR$(Z1) + "\"
  40. GOTO 120
  41.  
  42.  
  43. 390 REM     SUBROUTINE TO PRINT QUESTIONS
  44. Q$ = A$(K)
  45. 410 FOR Z = 3 TO LEN(Q$)
  46.   415 IF MID$(Q$, Z, 1) <> "\" THEN PRINT MID$(Q$, Z, 1);
  49. C$ = LEFT$(C$, 1)
  50. IF C$ <> "Y" AND C$ <> "N" THEN 410
  51. T$ = "\" + C$
  52. FOR X = 3 TO LEN(Q$) - 1
  53.   460 IF MID$(Q$, X, 2) = T$ THEN 480
  56. 480 FOR Y = X + 1 TO LEN(Q$)
  57.   490 IF MID$(Q$, Y, 1) = "\" THEN 510
  60. 510 K = VAL(MID$(Q$, X + 2, Y - X - 2))
  62.  
  63.  
  64.  
  65. DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
  66.  
  67.  
  68. 600 PRINT: PRINT "ANIMALS I ALREADY KNOW ARE:"
  69. X = 0
  70. FOR I = 1 TO 200
  71.   620 IF LEFT$(A$(I), 2) <> "\A" THEN 650
  72.   624 PRINT TAB(15 * X);
  73.   630 FOR Z = 3 TO LEN(A$(I))
  74.       640 IF MID$(A$(I), Z, 1) <> "\" THEN PRINT MID$(A$(I), Z, 1);
  75.   642 NEXT Z
  76.   645 X = X + 1: IF X = 4 THEN X = 0: PRINT
  77. 650 NEXT I
  80. GOTO 120
  81. 999 END
  82.  

as I see the code is always the same
Logged
se avessi solo un'ora per salvare il mondo, passerei 55 minuti per definire bene il problema e 5 a trovare la soluzione

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Guess the Animal
« Reply #10 on: November 08, 2020, 07:47:06 pm »
Quote from: Kiara87 on November 08, 2020, 07:40:14 pm
as I see the code is always the same

Yes, you are correct.  However, with the unused lines numbers removed, it may now be visually easier to start modernizing the code (I would find it easier).

- Dav
« Last Edit: November 08, 2020, 07:49:32 pm by Dav »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Guess the Animal
« Reply #11 on: November 08, 2020, 07:52:12 pm »
Quote from: Kiara87 on November 08, 2020, 07:40:14 pm
as I see the code is always the same

I don't see line numbers on every line.

But I see REMline leaves allot more line numbers in than I did?
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Guess the Animal
« Reply #12 on: November 08, 2020, 07:53:36 pm »
Dav did you pick up on the parsing problem of the original code, look at the ends of the questions?

 
Animal original.PNG
« Last Edit: November 08, 2020, 07:55:51 pm by bplus »
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Guess the Animal
« Reply #13 on: November 08, 2020, 07:56:03 pm »
Quote from: bplus on November 08, 2020, 07:53:36 pm
Dav did you pick up on the parsing problem of the original code, look at the ends of the questions?

No I didn't - but I'll take a closer look at it....

- Dav
Logged

Offline Kiara87

  • Forum Regular
  • Posts: 164
    • View Profile
Re: Guess the Animal
« Reply #14 on: November 08, 2020, 08:22:57 pm »
Quote from: bplus on November 08, 2020, 07:52:12 pm
I don't see line numbers on every line.

But I see REMline leaves allot more line numbers in than I did?

REMline   i don't know this instruction i was looking in the wiki but i can't understand what it is for 
Logged
se avessi solo un'ora per salvare il mondo, passerei 55 minuti per definire bene il problema e 5 a trovare la soluzione
Pages: [1] 2   Go Up
« previous next »