Brain.training.05


 * 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


 * 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 [14 22 somma 36] as "op2 [33 11 differenza 22] as "op3 [33 12 somma 45] as "op4 [2 5 somma 7] as "op5 [3 9 somma 12] as "op6 [32 10 somma 42] as "op7 [12 6 differenza 6] as "op8 [42 11 somma 53] as "op9 [44 4 differenza 40] as "op10 [25 16 somma 41] as "op11 [10 4 somma 14] as "op12 [50 15 somma 65] as "op13 [9 3 differenza 12] as "op14 [9 12 somma 21] as "op15 [5 3 differenza 2] as "op16 [30 3 somma 33] as "op17 [40 2 somma 42] as "op18 [36 2 somma 38] as "op19 [14 6 differenza 8] as "op20 [28 4 somma 32] 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) sfondo.conserva.numero :n aspetta 500 sotto 40 se minore? :n :nn [scritarta [... passiamo alla prossima!]] tarta.primo.piano fine

per sfondo.conserva.numero :n as "sfondojpg (parola :nome alfa.punto nic3 :n) sfondo.conserva.come :sfondojpg fine

per operazioni.concludi sfondoblu cominciaxy -250 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 sfondonero bianco cominciaxy -280 200 tahoma 30 scritarta [Dimmi il tuo nome di battesimo] as "nome leggiparola aspetta 500 cominciaxy -280 160 blu1 scritarta frase "Benvenuto :nome aspetta 2000 sfondopanna3 tahoma 48 cominciaxy -280 280 blu1 scritarta [Esercizi di Brain Training] saltaxy -1 1 blu3 scritarta [Esercizi di Brain Training] aspetta 1000 operazioni.definisci operazioni.esegui aspetta 2000 operazioni.concludi sfondo.conserva.numero 0 tarta.primo.piano