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
- La prima e l’ultima riga sono piene (il codice corrispondente sarà lo stesso…)
- Le righe intermedie sono tutte vuote (il codice corrispondente sarà lo stesso…)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
TextWindow.Write("Larghezza: ") larghezza=TextWindow.ReadNumber() TextWindow.Write("Altezza: ") altezza=TextWindow.ReadNumber() TextWindow.WriteLine("") For colonna=1 To larghezza ' PRIMA riga "piena" TextWindow.Write("*") EndFor TextWindow.WriteLine("") For riga=1 To altezza-2 ' Le righe INTERMEDIE "vuote" TextWindow.Write("*") For colonna=1 To larghezza-2 TextWindow.Write(" ") EndFor TextWindow.WriteLine("*") EndFor For colonna=1 To larghezza ' ULTIMA riga "piena" TextWindow.Write("*") EndFor TextWindow.WriteLine("") |
Utilizza una Sub per le righe piene e una Sub per le righe vuote
|
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 |
'---------------------------------------------- MAIN TextWindow.Write("Larghezza: ") larghezza=TextWindow.ReadNumber() TextWindow.Write("Altezza: ") altezza=TextWindow.ReadNumber() TextWindow.WriteLine("") RigaPiena() ' PRIMA For riga=1 To altezza-2 RigaVuota() ' INTERMEDIA EndFor RigaPiena() ' ULTIMA '---------------------------------------------- SUB Sub RigaPiena For colonna=1 To larghezza TextWindow.Write("*") EndFor TextWindow.WriteLine("") EndSub Sub RigaVuota TextWindow.Write("*") For colonna=2 To larghezza-1 TextWindow.Write(" ") EndFor TextWindow.WriteLine("*") EndSub '---------------------------------------------- FINE PROGRAMMA |