Come ordinare con QBASIC

November 9

Come ordinare con QBASIC


BASE sta per All-Purpose codice simbolico di istruzioni per principianti; mastering è il primo passo per molti programmatori prendono quando imparare il loro mestiere. QBASIC è un ambiente di sviluppo integrato per BASIC; si potrebbe scrivere BASIC all'interno QBASIC e provarlo, salvarlo o di debug senza la necessità di qualsiasi altro programma. Perché Basic è un linguaggio fatto soprattutto per l'apprendimento, non esiste una funzione "Ordina" built-in. Imparare a ordinare in BASIC è un grande esercizio di pensiero critico e come scrivere codice preciso.

istruzione

1 Cancella la schermata di qualsiasi altro codice all'inizio del programma digitando "CLS" come prima riga. Premere il tasto "Enter" per passare alla riga successiva.

2 Digitare quanto segue in QBASIC:

LET DATA = 10

DIM A (DATA)

Questo creerà una variabile chiamata "DATA" con 10 elementi e quindi assicurarsi BASIC sa che si desidera utilizzare come un array.

3 Aggiungere il seguente al programma:

PER NUM = 1 AI DATI

LET A(NUM) = INT(100 * RND) + 1

AVANTI NUM

In questo blocco di codice, è possibile impostare un ciclo in cui i numeri casuali tra 1 e 100 vengono generati e messi in una variabile "DATA". Nella prima riga, si imposta il primo numero che si desidera ripetere fino a quando l'array finisce. All'interno del ciclo, "RND" viene moltiplicato per 100 e ha aggiunto 1 ad esso. Questo perché "RND" restituisce sempre un numero compreso tra 0 e 1, e tutto, i numeri diversi da zero sono più facili per gli esseri umani per capire.

4 Inserire il codice successivo sotto:

PER ESTERNO = 1 AI DATI - 1

PRINT OUTER;

Per interni = ESTERNA + 1 AI DATI

SE A (ESTERNO) & lt; = A (INTERNO) THEN GOTO NoChange

SWAP A (ESTERNO), A (INTERNO)

NESSUN CAMBIAMENTO:

NEXT INNER

ESTERNO AVANTI

Questo codice è il codice di ordinamento. "Interno" ed "esterni" sono due variabili che si utilizzano per rappresentare il primo e secondo elementi dell'array. Se uno è maggiore, quindi swap programma. In caso contrario, si andrà alla "NoChange:" marcatore e semplicemente lavorare per il prossimo passo del programma.

5 Aggiungere il seguente codice:

PER NUM = 1 ai prodotti

PRINT A(NUM),

AVANTI NUM

Questo stamperà l'elenco ordinato in modo da poter controllare il vostro lavoro.