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 clear and easy to read.
Scrivi un programma per visualizzare la tabella delle moltiplicazioni nella finestra di testo.
Utilizza il colore e la spaziatura per allineare i numeri e rendere la lettura chiara e semplice.
La tavola pitagorica
- è costituita da 10 righe e 10 colonne
- ogni elemento è il prodotto della riga e della colonna corrispondente
- uno spazio fisso separa gli elementi…
1 2 3 4 5 6 7 |
For riga=1 To 10 For colonna=1 To 10 r=riga*colonna TextWindow.Write(" " + r) EndFor TextWindow.WriteLine("") EndFor |
Per allineare in colonna è necessario adattare gli spazi al valore…
- r = 100
- r = 10 … 99
- r = 1 … 9
1 2 3 4 5 6 7 8 9 10 11 12 13 |
For riga=1 To 10 For colonna=1 To 10 r=riga*colonna If(r < 10) Then TextWindow.Write(" " + r) ' 3 spazi ElseIf(r < 100) Then TextWindow.Write(" " + r) ' 2 spazi Else TextWindow.Write(" " + r) ' 1 spazio EndIf EndFor TextWindow.WriteLine("") EndFor |
Aggiungi il codice per visualizzare l’indice della colonna e poi anche quello di riga…
Il codice finale
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
TextWindow.ForegroundColor="Yellow" TextWindow.WriteLine(" 1 2 3 4 5 6 7 8 9 10") TextWindow.ForegroundColor="Gray" For riga=1 To 10 TextWindow.ForegroundColor="Yellow" If(riga < 10) Then TextWindow.Write(" " + riga) Else TextWindow.Write(riga) EndIf TextWindow.ForegroundColor="Gray" For colonna=1 To 10 r=riga*colonna If(r < 10) Then TextWindow.Write(" " + r) ElseIf(r < 100) Then TextWindow.Write(" " + r) Else TextWindow.Write(" " + r) EndIf EndFor TextWindow.WriteLine("") EndFor |
Esercizi
Realizza le tavole per l’addizione e la sottrazione.
Dovrai adattare gli spazi ai nuovi risultati…