semplice.txt (1432B)
1 /* Exercise 12.26 */ 2 3 --- a) 4 10 rem Prendo in input 3 numeri 5 11 input a 6 12 input b 7 13 input c 8 20 rem Determino la media 9 21 let s = (a + b + c) / 3 10 30 rem Stampo il risultato 11 31 print s 12 13 --- b) 14 10 rem Prendo in input n interi fino al valore sentinella 15 11 input n 16 12 if n == -9999 goto 31 17 20 rem Aggiungo n a s (s += n) 18 21 let s = s + n 19 22 goto 11 20 30 rem Stampo il risultato e termino l'esecuzione 21 31 print s 22 32 end 23 24 --- c) 25 10 rem Prendo in input 7 interi 26 11 let i = 7 27 12 if i < 0 goto 21 28 13 input n 29 14 let s = s + n 30 15 let i = i - 1 31 16 goto 12 32 20 rem Calcolo la media 33 21 let m = s / 7 34 22 print m 35 23 end 36 37 --- d) 38 10 rem Prendo il primo intero 39 11 input i 40 12 let n = i 41 13 if i == 0 goto 27 42 20 rem Prendo in input i numeri 43 21 input n 44 22 if i > n goto 24 45 23 let n = i 46 24 let i = i - 1 47 25 goto 13 48 26 rem Stampo il maggiore ed esco 49 27 print n 50 28 end 51 52 --- e) 53 10 rem Prendo in input 10 interi 54 11 let i = 10 55 13 input x 56 13 if i == 0 goto 20 57 14 input y 58 15 if y > x goto 17 59 16 let x = y 60 17 let i = i - 1 61 18 goto 13 62 19 rem Stampo il minore ed esco 63 20 print x 64 21 end 65 66 --- f) 67 10 rem Ciclo gli interi pari tra 2 e 20 (inclusi) 68 11 let i = 2 69 12 let n = n + i 70 20 if i == 30 goto 31 71 21 let i = i + 2 72 22 goto 12 73 30 rem Stampo la somma ed esco 74 31 print n 75 32 end 76 77 --- g) 78 10 rem Ciclo gli interi dispari tra 1 e 9 (inclusi) 79 11 let i = 1 80 12 let n = n * i 81 20 if i == 9 goto 31 82 21 let i = i + 2 83 22 goto 12 84 30 rem Stampo il prodotto ed esco 85 31 print n 86 32 end 87