Brain.training.03


 * 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.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 "operazioni listavuota as "operazioni inult :op1 :operazioni as "operazioni inult :op2 :operazioni as "operazioni inult :op3 :operazioni as "operazioni inult :op4 :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 aspetta 500 sotto 40 se minore? :n :nn [scritarta [... passiamo alla prossima!]] tarta.primo.piano fine

per operazioni.concludi sfondonero cominciaxy -200 200 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