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…)
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
'---------------------------------------------- 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