[BASE Cinque - Appunti di Matematica ricreativa]

Il gioco dei tre numeri

Il gioco dei tre numeri consiste in questo: dati tre numeri e le quattro operazioni aritmetiche, combinarli in modo da ottenere un dato risultato.

Ad esempio:

Con tre 11, sai ottenere 12?

Risposta: 11 + 11 : 11 = 11 + 1 = 12

Si possono usare anche le parentesi:

Con i numeri 2, 5, 4, sai ottenere 12?

Risposta: (5 - 2) x 4 = 12

Ecco alcuni esercizi. Ciascun gruppo comprende tutte le combinazioni possibili di operazioni e parentesi.


Livello facilissimo

11, 4, 5 = 2

12, 6, 4 = 2

12, 6, 4 = 8

2, 12, 3 = 2

2, 4, 3 = 5

3, 12, 2 = 2

3, 2, 4 = 9

3, 2, 6 = 4

4, 14, 3 = 2

4, 2, 3 = 5

4, 22, 5 = 2

4, 4, 3 = 3

4, 5, 3 = 2

4, 6, 3 = 36

5, 14, 4 = 2

5, 5, 35 = 2

5, 5, 5 = 2

6, 11, 3 = 2

6, 3, 5 = 3

6, 3, 8 = 1

6, 4, 12 = 6

6, 4, 2 = 16

6, 6, 4 = 144

7, 5, 2 = 4


Livello facile

10, 4, 4 = 2

10, 5, 3 = 6

2, 3, 6 = 30

2, 4, 4 = 2

2, 6, 14 = 2

2, 6, 4 = 48

2, 8, 6 = 0

3, 14, 4 = 2

3, 2, 5 = 17

3, 3, 6 = 1

3, 5, 10 = 2

36, 6, 3 = 2

4, 32, 4 = 2

4, 6, 8 = 8

4, 8, 4 = 8

5, 2, 7 = 1

5, 3, 10 = 5

5, 3, 6 = 14

5, 4, 4 = 3

6, 14, 2 = 2

6, 2, 8 = 2

6, 24, 3 = 2

6, 5, 4 = 2

6, 6, 8 = 12


Livello medio

11, 8, 8 = 24

144, 8, 9 = 2

18, 9, 4 = 2

2, 3, 3 = 3

2, 8, 4 = 4

24, 6, 2 = 2

3, 2, 3 = 4

3, 4, 9 = 7

3, 5, 2 = 0

4, 13, 5 = 2

4, 5, 60 = 3

4, 6, 4 = 2

4, 8, 2 = 2

5, 3, 10 = 2

5, 4, 18 = 2

6, 16, 8 = 8

6, 2, 6 = 2

6, 6, 7 = 7

7, 2, 21 = 6

7, 3, 2 = 20

9, 2, 8 = 144

9, 5, 2 = 16

9, 5, 2 = 23

9, 6, 56 = 2


Livello difficile

112, 7, 4 = 4

2, 12, 4 = 4

2, 4, 8 = 0

2, 6, 10 = 11

20, 4, 3 = 2

25, 12, 7 = 5

3, 2, 7 = 20

3, 22, 7 = 5

3, 3, 8 = 15

4, 6, 4 = 6

4, 8, 8 = 4

5, 32, 3 = 4

5, 4, 60 = 3

5, 5, 15 = 15

5, 6, 3 = 90

6, 6, 3 = 15

6, 7, 17 = 4

7, 3, 2 = 6

7, 3, 3 = 1

7, 4, 5 = 3

7, 4, 6 = 34

7, 6, 28 = 10

7, 6, 35 = 30

7, 7, 9 = 5


Risposte & riflessioni


Livello facilissimo

11 - 4 - 5 = 2

4 : (12 : 6) = 2

12 : 6 x 4 = 8

12 : 3 : 2 = 2

4 + 3 - 2 = 5

12 : (2 x 3) = 2

3 + 2 + 4 = 9

2 x 6 : 3 = 4

14 : (3 + 4) = 2

4 : 2 + 3 = 5

22 - 5 * 4 = 2

4 - 4 + 3 = 3

4 : (5 - 3) = 2

(6 + 3) x 4 = 36

(14 - 4) : 5 = 2

35 : 5 - 5 = 2

(5 + 5) : 5 = 2

11 - (3 + 6) = 2

5 - 6 : 3 = 3

3 - (8 - 6) = 1

4 + 12 : 6 = 6

4 + 2 x 6 = 16

4 x 6 x 6 = 144

(7 - 5) x 2 = 4


Livello facile

10 - 4 - 4 = 2

3 x 10 : 5 = 6

(2 + 3) x 6 = 30

4 : (4 : 2) = 2

(14 - 2) : 6 = 2

4 x 2 x 6 = 48

2 - (8 - 6) = 0

14 : (4 + 3) = 2

2 + 5 x 3 = 17

3 - 6 : 3 = 1

10 - (3 + 5) = 2

36 : (6 x 3) = 2

32 : 4 : 4 = 2

6 + 8 : 4 = 8

8 : 4 x 4 = 8

7 - 5 + 2 = 1

10 : 5 + 3 = 5

5 + 3 + 6 = 14

4 + 4 - 5 = 3

14 - 2 * 6 = 2

8 : (6 - 2) = 2

24 : 3 - 6 = 2

(4 + 6) : 5 = 2

(8 - 6) x 6 = 12


Livello medio

(11 - 8) x 8 = 24

144 : (8 x 9) = 2

4 - 18 : 9 = 2

(3 + 3) : 2 = 3

8 : 4 x 2 = 4

24 : 6 - 2 = 2

3 - 2 + 3 = 4

4 + 9 : 3 = 7

3 - (5 - 2) = 0

(13 - 5) : 4 = 2

60 : 4 : 5 = 3

4 : (6 - 4) = 2

8 - (2 + 4) = 2

10 - 5 - 3 = 2

18 : (5 + 4) = 2

16 : 8 + 6 = 8

6 : (6 : 2) = 2

6 + 7 - 6 = 7

2 x 21 : 7 = 6

(7 + 3) x 2 = 20

9 x 2 x 8 = 144

5 + 2 + 9 = 16

5 + 2 x 9 = 23

56 - 9 * 6 = 2


Livello difficile

112 : (7 x 4) = 4

12 - 4 * 2 = 4

4 - 8 : 2 = 0

10 : 2 + 6 = 11

20 : 4 - 3 = 2

25 : (12 - 7) = 5

(7 + 3) x 2 = 20

(22 - 7) : 3 = 5

(8 - 3) x 3 = 15

6 - 4 + 4 = 6

8 : (8 : 4) = 4

32 : (3 + 5) = 4

60 : 5 : 4 = 3

15 : 5 x 5 = 15

3 x 5 x 6 = 90

6 + 6 + 3 = 15

17 - 6 - 7 = 4

2 + 7 - 3 = 6

7 - (3 + 3) = 1

(5 + 7) : 4 = 3

6 + 7 x 4 = 34

6 + 28 : 7 = 10

6 x 35 : 7 = 30

7 - (9 - 7) = 5


Come ho realizzato questi esercizi?

Con un generatore scritto in DECIMAL BASIC. Per gli interessati, riporto il programma qui di seguito.

!'Il gioco dei 3 numeri

!'Dati 3 numeri e le 4 operazioni aritmetiche

!'combinarli in modo da ottenere un dato risultato

DECLARE SUB estrai(a,b,c)

DIM es$(28)

DIM ris$(28)

!'Le seguenti 3 variabili determinano la difficoltà degli esercizi

!'più alte sono e maggiore è la difficoltà

!'valori suggeriti:

!'4<maxn<10

!'0<maxk,maxh<5

LET maxn = 6

LET maxk = 4

LET maxh = 4

LET nes=24

RANDOMIZE

FOR i = 1 TO nes

SELECT CASE i

CASE 1

CALL estrai (a,b,c,k,h)

LET risp = a+b+c

LET risp$=STR$(risp)

LET ris$(1) = a$&" + "&b$&" + "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(1)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(1)

!'PRINT ris$(1)

!'PRINT "---"

CASE 2

CALL estrai (a,b,c,k,h)

IF c>a+b THEN

LET a=a-(a+b-c)+k

LET a$=STR$(a)

END IF

LET risp = a+b-c

LET risp$=STR$(risp)

LET ris$(2) = a$&" + "&b$&" - "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(2)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(2)

!'PRINT ris$(2)

!'PRINT "---"

CASE 3

CALL estrai (a,b,c,k,h)

LET risp = a+b*c

LET risp$=STR$(risp)

LET ris$(3) = a$&" + "&b$&" x "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(3)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(3)

!'PRINT ris$(3)

!'PRINT "---"

CASE 4

CALL estrai (a,b,c,k,h)

LET risp = (a+b)*c

LET risp$=STR$(risp)

LET ris$(4) = "("&a$&" + "&b$&") x "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(4)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(4)

!'PRINT ris$(4)

!'PRINT "---"

CASE 5

CALL estrai (a,b,c,k,h)

LET b=c*k

LET b$=STR$(b)

LET risp = a+b/c

LET risp$=STR$(risp)

LET ris$(5) = a$&" + "&b$&" : "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(5)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(5)

!'PRINT ris$(5)

!'PRINT "---"

CASE 6

CALL estrai (a,b,c,k,h)

LET b=ABS(c*k-a)

LET b$=STR$(b)

LET risp = (a+b)/c

LET risp$=STR$(risp)

LET ris$(6) = "("&a$&" + "&b$&") : "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(6)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(6)

!'PRINT ris$(6)

!'PRINT "---"

CASE 7

CALL estrai (a,b,c,k,h)

IF a<b+c THEN

LET a=b+c+k

LET a$=STR$(a)

END IF

LET risp = a-b-c

LET risp$=STR$(risp)

LET ris$(7) = a$&" - "&b$&" - "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(7)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(7)

!'PRINT ris$(7)

!'PRINT "---"

CASE 8

CALL estrai (a,b,c,k,h)

IF b<c THEN

LET b=c+k

LET b$=STR$(b)

END IF

IF a<b-c THEN

LET a=b-c+k

LET a$=STR$(a)

END IF

LET risp = a-(b-c)

LET risp$=STR$(risp)

LET ris$(8) = a$&" - ("&b$&" - "&c$&") = "&risp$

CALL mescola(a$,b$,c$)

LET es$(8)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(8)

!'PRINT ris$(8)

!'PRINT "---"

CASE 9

CALL estrai (a,b,c,k,h)

LET risp = a-b+c

IF a<b THEN

LET a=b+k

LET a$=STR$(a)

END IF

LET risp$=STR$(risp)

LET ris$(9) = a$&" - "&b$&" + "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(9)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(9)

!'PRINT ris$(9)

!'PRINT "---"

CASE 10

CALL estrai (a,b,c,k,h)

IF a<b+c THEN

LET a=b+c+k

LET a$=STR$(a)

END IF

LET risp = a-(b+c)

LET risp$=STR$(risp)

LET ris$(10) = a$&" - ("&b$&" + "&c$&") = "&risp$

CALL mescola(a$,b$,c$)

LET es$(10)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(10)

!'PRINT ris$(10)

!'PRINT "---"

CASE 11

CALL estrai (a,b,c,k,h)

IF a<b*c THEN

LET a=b*c+k

LET a$=STR$(a)

END IF

LET risp = a-b*c

LET risp$=STR$(risp)

LET ris$(11) = a$&" - "&b$&" * "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(11)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(11)

!'PRINT ris$(11)

!'PRINT "---"

CASE 12

CALL estrai (a,b,c,k,h)

IF a<b THEN

LET a=b+k

LET a$=STR$(a)

END IF

LET risp = (a-b)*c

LET risp$=STR$(risp)

LET ris$(12) = "("&a$&" - "&b$&") x "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(12)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(12)

!'PRINT ris$(12)

!'PRINT "---"

CASE 13

CALL estrai (a,b,c,k,h)

LET b=c*k

LET b$=STR$(b)

IF a<b/c THEN

LET a=b/c+h

LET a$=STR$(a)

END IF

LET risp = a-b/c

LET risp$=STR$(risp)

LET ris$(13) = a$&" - "&b$&" : "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(13)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(13)

!'PRINT ris$(13)

!'PRINT "---"

CASE 14

CALL estrai (a,b,c,k,h)

IF a<b THEN

LET a=b+k

LET a$=STR$(a)

END IF

LET a=b+c*k

LET a$=STR$(a)

LET risp = (a-b)/c

LET risp$=STR$(risp)

LET ris$(14) = "("&a$&" - "&b$&") : "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(14)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(14)

!'PRINT ris$(14)

!'PRINT "---"

CASE 15

CALL estrai (a,b,c,k,h)

LET risp = a*b*c

LET risp$=STR$(risp)

LET ris$(15) = a$&" x "&b$&" x "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(15)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(15)

!'PRINT ris$(15)

!'PRINT "---"

CASE 16

CALL estrai (a,b,c,k,h)

LET b=c*k

LET b$=STR$(b)

LET risp = a*b/c

LET risp$=STR$(risp)

LET ris$(16) = a$&" x "&b$&" : "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(16)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(16)

!'PRINT ris$(16)

!'PRINT "---"

CASE 17

CALL estrai (a,b,c,k,h)

LET a=k*b*c

LET a$=STR$(a)

LET risp = a/b/c

LET risp$=STR$(risp)

LET ris$(17) = a$&" : "&b$&" : "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(17)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(17)

!'PRINT ris$(17)

!'PRINT "---"

CASE 18

CALL estrai (a,b,c,k,h)

LET b=c*k

LET a=(b/c)*h

LET b$=STR$(b)

LET a$=STR$(a)

LET risp = a/(b/c)

LET risp$=STR$(risp)

LET ris$(18) = a$&" : ("&b$&" : "&c$&") = "&risp$

CALL mescola(a$,b$,c$)

LET es$(18)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(18)

!'PRINT ris$(18)

!'PRINT "---"

CASE 19

CALL estrai (a,b,c,k,h)

LET a=k*b

LET a$=STR$(a)

LET risp = a/b+c

LET risp$=STR$(risp)

LET ris$(19) = a$&" : "&b$&" + "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(19)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(19)

!'PRINT ris$(19)

!'PRINT "---"

CASE 20

CALL estrai (a,b,c,k,h)

LET a=k*(b+c)

LET a$=STR$(a)

LET risp = a/(b+c)

LET risp$=STR$(risp)

LET ris$(20) = a$&" : ("&b$&" + "&c$&") = "&risp$

CALL mescola(a$,b$,c$)

LET es$(20)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(20)

!'PRINT ris$(20)

!'PRINT "---"

CASE 21

CALL estrai (a,b,c,k,h)

LET a=(k+c)*b

LET a$=STR$(a)

LET risp = a/b-c

LET risp$=STR$(risp)

LET ris$(21) = a$&" : "&b$&" - "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(21)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(21)

!'PRINT ris$(21)

!'PRINT "---"

CASE 22

CALL estrai (a,b,c,k,h)

IF b<=c THEN

LET b=c+k

LET b$=STR$(b)

END IF

LET a=k*(b-c)

LET a$=STR$(a)

LET risp = a/(b-c)

LET risp$=STR$(risp)

LET ris$(22) = a$&" : ("&b$&" - "&c$&") = "&risp$

CALL mescola(a$,b$,c$)

LET es$(22)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(22)

!'PRINT ris$(22)

!'PRINT "---"

CASE 23

CALL estrai (a,b,c,k,h)

LET a=k*b

LET a$=STR$(a)

LET risp = a/b*c

LET risp$=STR$(risp)

LET ris$(23) = a$&" : "&b$&" x "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(23)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(23)

!'PRINT ris$(23)

!'PRINT "---"

CASE 24

CALL estrai (a,b,c,k,h)

LET a=k*(b*c)

LET a$=STR$(a)

LET risp = a/(b*c)

LET risp$=STR$(risp)

LET ris$(24) = a$&" : ("&b$&" x "&c$&") = "&risp$

CALL mescola(a$,b$,c$)

LET es$(24)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(24)

!'PRINT ris$(24)

!'PRINT "---"

END SELECT

NEXT i

!'Ordina gli esercizi

FOR i=1 TO nes

FOR j=i TO nes

IF es$(j)<es$(i) THEN

LET t$=es$(i)

LET es$(i)=es$(j)

LET es$(j)=t$

LET t$=ris$(i)

LET ris$(i)=ris$(j)

LET ris$(j)=t$

END IF

NEXT j

NEXT i

!'Stampa

FOR i =1 TO nes

PRINT es$(i)

NEXT i

PRINT "------------------"

FOR i =1 TO nes

PRINT ris$(i)

NEXT i

!'---------------------------------

SUB estrai(a,b,c,k,h)

LET a=INT(RND*maxn)+2

LET b=INT(RND*maxn)+2

LET c=INT(RND*maxn)+2

LET k=INT(RND*maxk)+2

LET h=INT(RND*maxh)+2

LET a$=STR$(a)

LET b$=STR$(b)

LET c$=STR$(c)

END SUB

SUB mescola(a$,b$,c$)

FOR k=1 TO 5

LET p=INT(RND*2+1)

!PRINT p

IF p=2 THEN

LET d$=b$

LET b$=a$

LET a$=d$

LET d$=b$

LET b$=c$

LET c$=d$

END if

NEXT k

END SUB

END

!'Il gioco dei 3 numeri

!'Dati 3 numeri e le 4 operazioni aritmetiche

!'combinarli in modo da ottenere un dato risultato

DECLARE SUB estrai(a,b,c)

DIM es$(28)

DIM ris$(28)

!'Le seguenti 3 variabili determinano la difficoltà degli esercizi

!'più alte sono e maggiore è la difficoltà

!'valori suggeriti:

!'4<maxn<10

!'0<maxk,maxh<5

LET maxn = 6

LET maxk = 4

LET maxh = 4

LET nes=24

RANDOMIZE

FOR i = 1 TO nes

SELECT CASE i

CASE 1

CALL estrai (a,b,c,k,h)

LET risp = a+b+c

LET risp$=STR$(risp)

LET ris$(1) = a$&" + "&b$&" + "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(1)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(1)

!'PRINT ris$(1)

!'PRINT "---"

CASE 2

CALL estrai (a,b,c,k,h)

IF c>a+b THEN

LET a=a-(a+b-c)+k

LET a$=STR$(a)

END IF

LET risp = a+b-c

LET risp$=STR$(risp)

LET ris$(2) = a$&" + "&b$&" - "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(2)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(2)

!'PRINT ris$(2)

!'PRINT "---"

CASE 3

CALL estrai (a,b,c,k,h)

LET risp = a+b*c

LET risp$=STR$(risp)

LET ris$(3) = a$&" + "&b$&" x "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(3)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(3)

!'PRINT ris$(3)

!'PRINT "---"

CASE 4

CALL estrai (a,b,c,k,h)

LET risp = (a+b)*c

LET risp$=STR$(risp)

LET ris$(4) = "("&a$&" + "&b$&") x "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(4)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(4)

!'PRINT ris$(4)

!'PRINT "---"

CASE 5

CALL estrai (a,b,c,k,h)

LET b=c*k

LET b$=STR$(b)

LET risp = a+b/c

LET risp$=STR$(risp)

LET ris$(5) = a$&" + "&b$&" : "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(5)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(5)

!'PRINT ris$(5)

!'PRINT "---"

CASE 6

CALL estrai (a,b,c,k,h)

LET b=ABS(c*k-a)

LET b$=STR$(b)

LET risp = (a+b)/c

LET risp$=STR$(risp)

LET ris$(6) = "("&a$&" + "&b$&") : "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(6)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(6)

!'PRINT ris$(6)

!'PRINT "---"

CASE 7

CALL estrai (a,b,c,k,h)

IF a<b+c THEN

LET a=b+c+k

LET a$=STR$(a)

END IF

LET risp = a-b-c

LET risp$=STR$(risp)

LET ris$(7) = a$&" - "&b$&" - "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(7)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(7)

!'PRINT ris$(7)

!'PRINT "---"

CASE 8

CALL estrai (a,b,c,k,h)

IF b<c THEN

LET b=c+k

LET b$=STR$(b)

END IF

IF a<b-c THEN

LET a=b-c+k

LET a$=STR$(a)

END IF

LET risp = a-(b-c)

LET risp$=STR$(risp)

LET ris$(8) = a$&" - ("&b$&" - "&c$&") = "&risp$

CALL mescola(a$,b$,c$)

LET es$(8)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(8)

!'PRINT ris$(8)

!'PRINT "---"

CASE 9

CALL estrai (a,b,c,k,h)

LET risp = a-b+c

IF a<b THEN

LET a=b+k

LET a$=STR$(a)

END IF

LET risp$=STR$(risp)

LET ris$(9) = a$&" - "&b$&" + "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(9)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(9)

!'PRINT ris$(9)

!'PRINT "---"

CASE 10

CALL estrai (a,b,c,k,h)

IF a<b+c THEN

LET a=b+c+k

LET a$=STR$(a)

END IF

LET risp = a-(b+c)

LET risp$=STR$(risp)

LET ris$(10) = a$&" - ("&b$&" + "&c$&") = "&risp$

CALL mescola(a$,b$,c$)

LET es$(10)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(10)

!'PRINT ris$(10)

!'PRINT "---"

CASE 11

CALL estrai (a,b,c,k,h)

IF a<b*c THEN

LET a=b*c+k

LET a$=STR$(a)

END IF

LET risp = a-b*c

LET risp$=STR$(risp)

LET ris$(11) = a$&" - "&b$&" * "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(11)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(11)

!'PRINT ris$(11)

!'PRINT "---"

CASE 12

CALL estrai (a,b,c,k,h)

IF a<b THEN

LET a=b+k

LET a$=STR$(a)

END IF

LET risp = (a-b)*c

LET risp$=STR$(risp)

LET ris$(12) = "("&a$&" - "&b$&") x "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(12)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(12)

!'PRINT ris$(12)

!'PRINT "---"

CASE 13

CALL estrai (a,b,c,k,h)

LET b=c*k

LET b$=STR$(b)

IF a<b/c THEN

LET a=b/c+h

LET a$=STR$(a)

END IF

LET risp = a-b/c

LET risp$=STR$(risp)

LET ris$(13) = a$&" - "&b$&" : "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(13)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(13)

!'PRINT ris$(13)

!'PRINT "---"

CASE 14

CALL estrai (a,b,c,k,h)

IF a<b THEN

LET a=b+k

LET a$=STR$(a)

END IF

LET a=b+c*k

LET a$=STR$(a)

LET risp = (a-b)/c

LET risp$=STR$(risp)

LET ris$(14) = "("&a$&" - "&b$&") : "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(14)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(14)

!'PRINT ris$(14)

!'PRINT "---"

CASE 15

CALL estrai (a,b,c,k,h)

LET risp = a*b*c

LET risp$=STR$(risp)

LET ris$(15) = a$&" x "&b$&" x "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(15)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(15)

!'PRINT ris$(15)

!'PRINT "---"

CASE 16

CALL estrai (a,b,c,k,h)

LET b=c*k

LET b$=STR$(b)

LET risp = a*b/c

LET risp$=STR$(risp)

LET ris$(16) = a$&" x "&b$&" : "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(16)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(16)

!'PRINT ris$(16)

!'PRINT "---"

CASE 17

CALL estrai (a,b,c,k,h)

LET a=k*b*c

LET a$=STR$(a)

LET risp = a/b/c

LET risp$=STR$(risp)

LET ris$(17) = a$&" : "&b$&" : "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(17)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(17)

!'PRINT ris$(17)

!'PRINT "---"

CASE 18

CALL estrai (a,b,c,k,h)

LET b=c*k

LET a=(b/c)*h

LET b$=STR$(b)

LET a$=STR$(a)

LET risp = a/(b/c)

LET risp$=STR$(risp)

LET ris$(18) = a$&" : ("&b$&" : "&c$&") = "&risp$

CALL mescola(a$,b$,c$)

LET es$(18)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(18)

!'PRINT ris$(18)

!'PRINT "---"

CASE 19

CALL estrai (a,b,c,k,h)

LET a=k*b

LET a$=STR$(a)

LET risp = a/b+c

LET risp$=STR$(risp)

LET ris$(19) = a$&" : "&b$&" + "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(19)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(19)

!'PRINT ris$(19)

!'PRINT "---"

CASE 20

CALL estrai (a,b,c,k,h)

LET a=k*(b+c)

LET a$=STR$(a)

LET risp = a/(b+c)

LET risp$=STR$(risp)

LET ris$(20) = a$&" : ("&b$&" + "&c$&") = "&risp$

CALL mescola(a$,b$,c$)

LET es$(20)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(20)

!'PRINT ris$(20)

!'PRINT "---"

CASE 21

CALL estrai (a,b,c,k,h)

LET a=(k+c)*b

LET a$=STR$(a)

LET risp = a/b-c

LET risp$=STR$(risp)

LET ris$(21) = a$&" : "&b$&" - "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(21)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(21)

!'PRINT ris$(21)

!'PRINT "---"

CASE 22

CALL estrai (a,b,c,k,h)

IF b<=c THEN

LET b=c+k

LET b$=STR$(b)

END IF

LET a=k*(b-c)

LET a$=STR$(a)

LET risp = a/(b-c)

LET risp$=STR$(risp)

LET ris$(22) = a$&" : ("&b$&" - "&c$&") = "&risp$

CALL mescola(a$,b$,c$)

LET es$(22)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(22)

!'PRINT ris$(22)

!'PRINT "---"

CASE 23

CALL estrai (a,b,c,k,h)

LET a=k*b

LET a$=STR$(a)

LET risp = a/b*c

LET risp$=STR$(risp)

LET ris$(23) = a$&" : "&b$&" x "&c$&" = "&risp$

CALL mescola(a$,b$,c$)

LET es$(23)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(23)

!'PRINT ris$(23)

!'PRINT "---"

CASE 24

CALL estrai (a,b,c,k,h)

LET a=k*(b*c)

LET a$=STR$(a)

LET risp = a/(b*c)

LET risp$=STR$(risp)

LET ris$(24) = a$&" : ("&b$&" x "&c$&") = "&risp$

CALL mescola(a$,b$,c$)

LET es$(24)= a$&", "&b$&", "&c$&" = "&risp$

!'PRINT es$(24)

!'PRINT ris$(24)

!'PRINT "---"

END SELECT

NEXT i

!'Ordina gli esercizi

FOR i=1 TO nes

FOR j=i TO nes

IF es$(j)<es$(i) THEN

LET t$=es$(i)

LET es$(i)=es$(j)

LET es$(j)=t$

LET t$=ris$(i)

LET ris$(i)=ris$(j)

LET ris$(j)=t$

END IF

NEXT j

NEXT i

!'Stampa

FOR i =1 TO nes

PRINT es$(i)

NEXT i

PRINT "------------------"

FOR i =1 TO nes

PRINT ris$(i)

NEXT i

!'---------------------------------

SUB estrai(a,b,c,k,h)

LET a=INT(RND*maxn)+2

LET b=INT(RND*maxn)+2

LET c=INT(RND*maxn)+2

LET k=INT(RND*maxk)+2

LET h=INT(RND*maxh)+2

LET a$=STR$(a)

LET b$=STR$(b)

LET c$=STR$(c)

END SUB

SUB mescola(a$,b$,c$)

FOR k=1 TO 5

LET p=INT(RND*2+1)

!PRINT p

IF p=2 THEN

LET d$=b$

LET b$=a$

LET a$=d$

LET d$=b$

LET b$=c$

LET c$=d$

END if

NEXT k

END SUB

END

Data creazione: dicembre 2007

Ultimo aggiornamento: dicembre 2007

xhtml 1.0


Sito Web realizzato da Gianfranco Bo