Brain.training.04


 * La procedura operazioni.definisci è l' unica parte che dovete cambiare voi!!!!
 * seguendo le regole implicite nell' esempio
 * Versione che conserva gli sfondi, delle ore 16.49
 * battendo x al posto di un risultato si può interrompere uil programma

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 [3 3 somma 6] as "op6 [22 10 somma 33] as "op7 [12 2 differenza 10] as "op8 [52 11 somma 63] as "op9 [33 4 differenza 29] as "op10 [27 16 somma 43] as "op11 [14 4 somma 18] as "op12 [40 15 somma 55] as "op13 [6 3 differenza 3] as "op14 [6 12 somma 18] as "op15 [7 3 differenza 4] as "op16 [32 3 somma 35] as "op17 [28 2 somma 30] as "op18 [34 2 somma 36] as "op19 [13 6 differenza 7] as "op20 [22 4 somma 26] 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

per operazioni.esegui as "tempo.totale 0 as "esatte 0 as "errate 0 as "basta "falso 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 se uguale? :basta "vero [stop] 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? :risposta "x se_vero [as "basta "vero stop] 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 sotto 40 se minore? :n :nn [scritarta [... passiamo alla prossima!]] tarta.primo.piano aspetta 2000 fine per operazioni.concludi sfondoblu cominciaxy -250 250 0 250 giallo1 tahoma 24 scritarta (frase [il tempo totale impiegato è di] :tempo.totale "secondi) sotto 25 scritarta (frase [risposte esatte] :esatte) sotto 25 scritarta (frase [risposte errate] :errate) sotto 25 as "risposte somma :errate :esatte as "percentuale.errori prodotto 100 quoziente :errate :risposte scritarta (frase [percentuale errori] :percentuale.errori) nastarta fine tarta.apparecchia 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 aspetta 2000 operazioni.concludi sfondo.conserva.come "sfondo.000 tarta.primo.piano