2011-10: Intermediate
Create a program (text or graphics) that allows the user to enter 10 numbers.
The program will then display these numbers in numerical (ascending) order.
Modify your program to allow the user to enter 10 words which are then sorted into alphabetical order.To help with this you may want to research sorting algorithms such as the Bubble Sort.
Here is a nice video to get you in the mood!
Realizza un programma (con interfaccia di testo o grafica) che permette all’utente di inserire 10 numeri.
Il programma visualizzerà i numeri in ordine crescente.
Modifica il programma per permettere all’utente di inserire 10 parole che saranno ordinate in ordine alfabetico.
Soluzione
Ordina 10 numeri.
DIM=10
'------------------------------------------------------------------
Inserimento()
Ordinamento()
Visualizzazione()
'------------------------------------------------------------------
Sub Inserimento
TextWindow.WriteLine("Inserisci " + DIM + " numeri da ordinare")
TextWindow.WriteLine("-------------------------------")
For i=1 To DIM
TextWindow.Write(i + ": ")
numeri[i]=TextWindow.ReadNumber()
EndFor
EndSub
Sub Ordinamento
For passata=1 To DIM-1
For coppia=1 To DIM-passata
If numeri[coppia] > numeri[coppia+1] Then
temp =numeri[coppia]
numeri[coppia] =numeri[coppia+1]
numeri[coppia+1]=temp
EndIf
EndFor
EndFor
EndSub
Sub Visualizzazione
TextWindow.WriteLine("-------------------------------")
TextWindow.WriteLine("I " + DIM + " numeri ordinati")
TextWindow.WriteLine("-------------------------------")
For i=1 To DIM
TextWindow.WriteLine(i + ": " + numeri[i])
EndFor
TextWindow.WriteLine("-------------------------------")
EndSub