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.
|
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 27 28 29 30 31 32 33 34 |
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 |