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 |
Consulta i valori di default della finestra di testo
|
1 2 3 4 5 6 7 |
TextWindow.WriteLine(TextWindow.BackgroundColor) TextWindow.WriteLine(TextWindow.ForegroundColor) TextWindow.WriteLine(TextWindow.CursorLeft) ' Colonna del cursore TextWindow.WriteLine(TextWindow.CursorTop) ' Riga del cursore TextWindow.WriteLine(TextWindow.Left) ' Colonna della finestra TextWindow.WriteLine(TextWindow.Title) TextWindow.WriteLine(TextWindow.Top) ' Riga della finestra |
Seconda prova di Matematica – 2014 P.N.I. – Quesito 8 La zara è un gioco d’azzardo di origine araba che conobbe particolare fortuna in Italia in epoca medievale… Leggi tutto »La zara
Matematica Senza Frontiere – 10/2/2015 Annamaria si diverte con le successioni numeriche. Sceglie un numero intero naturale come primo numero della successione; calcola il successivo… Leggi tutto »Decrescita programmata 2
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
Lancia un dado finché non ottiene un certo numero, per esempio 3
|
1 2 3 4 5 6 7 |
NUM =3 ' numero magico DADO=0 While(DADO <> NUM) DADO=Math.GetRandomNumber(6) TextWindow.Write(DADO + " ") EndWhile TextWindow.WriteLine("") |
Quante volte ha lanciato il dado prima di ottenere un 3?
|
1 2 3 4 5 6 7 8 9 10 11 12 |
NUM =3 ' numero magico DADO=0 n =0 While(DADO <> NUM) DADO=Math.GetRandomNumber(6) TextWindow.Write(DADO + " ") n=n+1 EndWhile TextWindow.WriteLine("") TextWindow.WriteLine("-----------------------------------") TextWindow.WriteLine("Ho lanciato il dado " + n + " volte") TextWindow.WriteLine("-----------------------------------") |
Challenge 2012-04 – Challenge 2 Use a While loop to find the first triangular number with 4 digits. A triangular number is the sum of all… Leggi tutto »Raggiungere la meta
2016-03: Text 3 Write a program to write out the times tables to the TextWindow. Use colour and positionng to tabulate the numbers to make the display… Leggi tutto »Tavola pitagorica
Scrivi un programma per la finestra di testo che chiede all’utente una larghezza e un’altezza e dopo disegna un rettangolo vuoto con queste dimensioni utilizzando asterischi. Osserva… Leggi tutto »Rettangolo di asterischi
Definizione Esempi N=0: 0!=1 N=1: 1!=1 N=2: 2!=2*1=2 … N=5: 5!=5*4*3*2*1=120 N=6: 6!=6*5*4*3*2*1=720 … Codifica
|
1 2 3 4 |
RISP=1 For i=N To 1 Step -1 RISP=RISP*i EndFor |
oppure…
|
1 2 3 4 |
RISP=1 For i=1 To N RISP=RISP*i EndFor |
Moltiplicare per 1 è superfluo…
|
1 2 3 4 |
RISP=1 For i=N To 2 Step -1 RISP=RISP*i EndFor |
oppure…
|
1 2 3 4 |
RISP=1 For i=2 To N RISP=RISP*i EndFor |