Contare le occorrenze delle lettere dell’alfabeto all’interno di una frase
|
1 2 3 4 5 6 7 8 9 10 11 |
testo="ADDIO alle armi" For X=1 To Text.GetLength(testo) CAR=Text.GetSubText(testo, X, 1) CONTA[CAR]=CONTA[CAR]+1 EndFor c_A=Text.GetCharacterCode("A") c_Z=Text.GetCharacterCode("Z") For X=c_A To c_Z CAR=Text.GetCharacter(X) TextWindow.WriteLine(CAR + " -> " + CONTA[CAR]) EndFor |
Colori casuali: #RRGGBB
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
GraphicsWindow.Height=GraphicsWindow.Width GraphicsWindow.PenWidth=25 Turtle.Speed=10 Turtle.Y=GraphicsWindow.Height/2 NUMERO=100 distanza=250 For i=1 to NUMERO GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor() Turtle.PenDown() Turtle.Move(distanza) Turtle.PenUp() Turtle.Move(-distanza) distanza=distanza-2 Turtle.Turn(90+Math.GetRandomNumber(90)) EndFor |
Colori casuali, semitrasparenti: #99RRGGBB
|
1 2 |
c=GraphicsWindow.GetRandomColor() GraphicsWindow.PenColor="#99"+Text.GetSubText(c,2,6) |
Il colore va dal blue (0,0,255) al magenta (255,0,255)
|
1 2 |
red=Math.GetRandomNumber(255) GraphicsWindow.PenColor=GraphicsWindow.GetColorFromRGB(red,0,255) |
Un colore a piacere, semitrasparente
|
1 |
GraphicsWindow.PenColor="#330000FF" |
…
Un ventaglio
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
numero =30 lunghezza=250 angolo =180/numero '----------------------------------------------------------- Turtle.Speed=10 Turtle.X =GraphicsWindow.Width/2 Turtle.Y =GraphicsWindow.Height-30 Turtle.Angle=-90 VENTAGLIO() '----------------------------------------------------------- Sub VENTAGLIO For i=1 To numero+1 GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor() GraphicsWindow.PenWidth=10+Math.GetRandomNumber(10) Turtle.PenDown() Turtle.Move(lunghezza) Turtle.PenUp() Turtle.Move(-lunghezza) Turtle.Turn(angolo) EndFor EndSub |
Due ventagli Quattro ventagli
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
GraphicsWindow.Height=GraphicsWindow.Width numero =30 lunghezza=200 angolo =180/numero '----------------------------------------------------------- Turtle.Speed=10 Turtle.X =30 Turtle.Y =GraphicsWindow.Height/2 VENTAGLIO() '----------------------------------------------------------- Turtle.X =GraphicsWindow.Width/2 Turtle.Y =30 Turtle.Angle=90 VENTAGLIO() '----------------------------------------------------------- Turtle.X =GraphicsWindow.Width-30 Turtle.Y =GraphicsWindow.Height/2 Turtle.Angle=180 VENTAGLIO() '----------------------------------------------------------- Turtle.X =GraphicsWindow.Width/2 Turtle.Y =GraphicsWindow.Height-30 Turtle.Angle=-90 VENTAGLIO() '----------------------------------------------------------- Sub VENTAGLIO For i=1 To numero+1 GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor() GraphicsWindow.PenWidth=10+Math.GetRandomNumber(10) Turtle.PenDown() Turtle.Move(lunghezza) Turtle.PenUp() Turtle.Move(-lunghezza) Turtle.Turn(angolo) EndFor EndSub |
Con sovrapposizioni e trasparenza del colore
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
GraphicsWindow.Height=GraphicsWindow.Width GraphicsWindow.PenWidth=25 numero =30 lunghezza=250 angolo =180/numero '----------------------------------------------------------- Turtle.Speed=10 Turtle.X=30 Turtle.Y=GraphicsWindow.Height/2 VENTAGLIO() '----------------------------------------------------------- Turtle.X=GraphicsWindow.Width/2 Turtle.Y=30 Turtle.Angle=90 VENTAGLIO() '----------------------------------------------------------- Turtle.X=GraphicsWindow.Width-30 Turtle.Y=GraphicsWindow.Height/2 Turtle.Angle=180 VENTAGLIO() '----------------------------------------------------------- Turtle.X=GraphicsWindow.Width/2 Turtle.Y=GraphicsWindow.Height-30 Turtle.Angle=-90 VENTAGLIO() '----------------------------------------------------------- Sub VENTAGLIO For i=1 To numero+1 c=GraphicsWindow.GetRandomColor() GraphicsWindow.PenColor="#99"+Text.GetSubText(c,2,6) Turtle.PenDown() Turtle.Move(lunghezza) Turtle.PenUp() Turtle.Move(-lunghezza) Turtle.Turn(angolo) EndFor EndSub |
2016-03: Text 1 Write a program to count the number of vowels in a sentense. Scrivi un programma per contare il numero di vocali in una… Leggi tutto »Contare le vocali
Contare le occorrenze delle lettere dell’alfabeto all’interno di una frase
|
1 2 3 4 5 6 7 8 9 10 11 |
testo="ADDIO alle armi" For X=1 To Text.GetLength(testo) CAR=Text.GetSubText(testo, X, 1) CONTA[CAR]=CONTA[CAR]+1 EndFor c_A=Text.GetCharacterCode("A") c_Z=Text.GetCharacterCode("Z") For X=c_A To c_Z CAR=Text.GetCharacter(X) TextWindow.WriteLine(CAR + " -> " + CONTA[CAR]) EndFor |
2012-01: File and Text Write a program to read an entire text file into a Small Basic variable. You need to create a sample text… Leggi tutto »File di testo
Estrae un carattere alla volta da un testo input e lo visualizza
|
1 2 3 4 5 6 7 8 9 10 |
TextWindow.Write("Inserisci un testo qualsiasi: ") input=TextWindow.Read() '---------------------------------------------------- For i=1 To Text.GetLength(input) CAR=Text.GetSubText(input,i,1) TextWindow.Write(CAR) TextWindow.Write(" ") EndFor '---------------------------------------------------- TextWindow.WriteLine("") |
Estrae un carattere alla volta da un testo input e lo visualizza… Leggi tutto »Scorrere un testo
2012-01: Easy 1 Write a program to write out the current date and time in this format (date format may vary if you are in… Leggi tutto »Data e ora
Week 7: Text 2 Write a program that will reverse each individual word in a sentence but leave the order of words unchanged. Example INPUT: Hasta… Leggi tutto »Parole capovolte
Week 6: Text 1 Write a program that counts the number of words in a sentence that the user enters. E.g. We don’t need no education should… Leggi tutto »Contare le parole