Tavola pitagorica

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

1. è costituita da 10 righe e 10 colonne
2. ogni elemento è il prodotto della riga e della colonna corrispondente
3. uno spazio fisso separa gli elementi…

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…

1. r = 100
2. r = 10 … 99
3. r = 1 … 9

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

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...