Brain.training.02

; seguendo le regole implicite nell' esempio ; Versione che conserva gli sfondi, delle ore 15.45
 * La procedura **operazioni.definisci** è l' unica parte che dovete cambiare voi!!!!

per operazioni.definisci as "op1 [11 22 somma 33] as "op2 [33 22 differenza 11] as "op3 [48 12 somma 60] as "op4 [2 2 somma 4] as "op5 [10 2 divisione 5] as "op6 [14 7 somma 21] as "op7 [24 12 somma 36] as "op8 [56 42 differenza 14] as "op9 [10 20 somma 30] as "op10 [40 30 differenza 10] as "op11 [44 12 somma 56] as "op12 [10 9 somma 19] as "op13 [27 3 divisione 9] as "op14 [56 2 divisione 28] as "op15 [60 39 somma 99] as "op16 [45 25 differenza 20] as "op17 [3 3 moltiplicazione 9] as "op18 [4 5 moltiplicazione 20] as "op19 [30 6 divisione 5] as "op20 [72 8 divisione 9] as "operazioni listavuota as "operazioni inult :op1 :operazioni as "operazioni inult :op2 :operazioni as "operazioni inult :op3 :operazioni as "operazioni inult :op4 :operazioni as "operazioni inult :op5 :operazioni as "operazioni inult :op6 :operazioni as "operazioni inult :op7 :operazioni as "operazioni inult :op8 :operazioni as "operazioni inult :op9 :operazioni as "operazioni inult :op10 :operazioni as "operazioni inult :op11 :operazioni as "operazioni inult :op12 :operazioni as "operazioni inult :op13 :operazioni as "operazioni inult :op14 :operazioni as "operazioni inult :op15 :operazioni as "operazioni inult :op16 :operazioni as "operazioni inult :op17 :operazioni as "operazioni inult :op18 :operazioni as "operazioni inult :op19 :operazioni as "operazioni inult :op20 :operazioni fine
 * La procedura operazioni.definisci è l' unica parte che dovete cambiare voi!!!!
 * seguendo le regole implicite nell' esempio
 * Versione che conserva gli sfondi, delle ore 14.24

per operazioni.esegui as "tempo.totale 0 as "esatte 0 as "errate 0 as "nn conta :operazioni ripeti :nn [as "n rip operazione.esegui] fine per operazione.definisci as "operazione ele :n :operazioni as "op1 ele 1 :operazione as "op2 ele 2 :operazione as "op ele 3 :operazione as "risultato ele 4 :operazione fine per operazione.esegui as "operazione ele :n :operazioni operazione.definisci operazione.presenta operazione.valuta fine per operazione.presenta sfondogrigio3 cominciaxy -280 280 tahoma 40 rosso1 scritarta (frase [Operazione numero] :n) sotto 50 spessore 6 strisciax 380 saltax -380 tahoma 28 scritarta [Devi eseguire l' operazione indicata qui sotto] sotto 50 verde2 scritarta :op sotto 40 strisciax 120 strisciax -120 sotto 10 verde1 scritarta :op1 sotto 50 verde1 scritarta :op2 sotto 50 blu1 scritarta [scrivi il risultato nella casella e premi ok] fine per operazione.valuta astempo 0 as "risposta leggiparola cominciaxy -280 -130 tahoma 28 verifica uguale? :risultato :risposta blu3 se_vero [verde1 scritarta [Esatto] as "esatte somma :esatte 1] se_falso [rosso1 scritarta [Errato] as "errate somma :errate 1] saltay -40 as "tempo1 quoziente tempo 1000 as "tempo.totale somma :tempo.totale :tempo1 scritarta (frase [Ci hai messo] :tempo1 "secondi) as "sfondojpg (parola "sfondo alfa.punto nic3 :n) sfondo.conserva.come :sfondojpg aspetta 500 sotto 40 se minore? :n :nn [scritarta [... passiamo alla prossima!]] tarta.primo.piano fine

per operazioni.concludi giallo1 tahoma 15 scritarta (frase [il tempo totale impiegato c( di] :tempo.totale "secondi) sotto 16 scritarta (frase [risposte esatte] :esatte) sotto 16 scritarta (frase [risposte errate] :errate) sotto 16 as "risposte somma :errate :esatte as "percentuale.errori prodotto 100 quoziente :errate :risposte scritarta (frase [percentuale errori] :percentuale.errori) nastarta sfondo.conserva.come "sfondo.000 tarta.primo.piano fine ta sfondopanna3 tahoma 48 cominciaxy -280 280 blu1 scritarta [Esercizi di Brain Training] saltaxy -1 1 blu3 scritarta [Esercizi di Brain Training] aspetta 2000 operazioni.definisci operazioni.esegui operazioni.concludi