Contare le occorrenze delle lettere dell’alfabeto all’interno di una frase 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”)… Leggi tutto »Contare le lettere
Colori casuali: #RRGGBB 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… Leggi tutto »Boom
Tre settori con i colori fondamentali DIM =600 DISTANZA=0.4*DIM NUMERO=360 angolo=360/NUMERO SETTORI =3 NUMSETTORE=NUMERO/SETTORI GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM Turtle.X =DIM/2 Turtle.Y =DIM/2 Turtle.Speed=10 COLORI[1]=”red” COLORI[2]=”green”… Leggi tutto »Ombrelli
Un ventaglio 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()… Leggi tutto »Ventagli
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