!'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