Esercizi sui Vettori – Esercizi sui Vettori in informatica con soluzioni

Ho deciso di pubblicare degli esercizi sui vettori in informatica che ho svolto durante il terzo anno di superiori. Gli esercizi saranno composti dal comando, svolgimento e scrittura di codici in Visual Basic. Se lo svolgimento scritto non è chiaro, potete sempre fare click sull’immagine per vedere le fotografie del foglio scritto.

PRIMO ESERCIZIO

3 vettori di 10 elementi: un nome stuente maschio, femmina, età, visualizzare l’età media dei maschi e quella delle femmine.

INIZIO

I = 0

SM = 0

NM = 0

SF = 0

NF = 0

Blocco decisionale, S (i) = M

Se NO, SM = SM + Età (i)

NF = NF + 1

Se sì, SM = SM + Età (i)

NM = NM + 1

I = I + 1

Blocco decisionale, I <= 9, Se NO SM = SF / NF

SM = SM / NM

“Media femmine” SF

“Media maschi” SM

Cliccate Qui per visualizzare l’immagine completa dello svolgimento dell’esercizio.

SECONDO ESERCIZIO

Caricare un vettore con i primi numeri online.

Procedimento diagramma a blocchi:

INIZIO

I = 1

V (I) = 2 * I

I = I + 1

Blocco decisionale, I > 10

Se NO, torna a I = 1

Se sì, FINE

Scrittura in Visual Basic:

BATCH

FOR I = 1 TO 10

V (I) ) = 2 * I

LIST.ADDITEM

V (I)

NEXT I

DIM V (1 TO 10)  AS BYTE

DIM I AS BYTE

(AREA GENERALE)

Cliccate Qui per visualizzare l’immagine dello svolgimento completo dell’esercizio.

TERZO ESERCIZIO

Dati 3 vettori con nomi, squadre, le serie e i punti, elencare i nomi, i punti corrispondenti delle squadre.

Procedimento sul diagramma a blocchi:

INIZIO

“Inserisci la serie”

SERIE (I)

I = 1

Found = 0

Blocco decisionale

Se Sì, Found = 1, SQ (I), PUNTI (I)

I = I + 1

Blocco decisionale, se NO torna a Found = 0

Se sì, blocco decisionale Found = 0

Se sì, “Nessuna squadra della serie scelta

Procedimento in Visual Basic:

DIM I AS BYTE

DIM SERIE (1 TO 10) AS STRING

DIM PUNTI (1 TO 10) AS BYTE

DIM SQ (1 TO 10) AS STRING

DIM SER AS STRING * 1

PRIVATE_SUB FORM_LOAD ()

COMBO1.TEXT = “SELEZIONA UNA SERIE”

COMBO1.ADDITEM “A”

COMBO1.ADDITEM “B”

END SUB

PRIVATE SUB COMBO1.CLICK ()

LIST1.CLEAR

SER = COMBO1.CLICK ()

LIST1.CLEAR

SER = COMBO1.TEXT

FOR I = 1 TO 10

IF SERIE (I) )= SER THEN

LIST1.ADDITEM (SQ (I) & ” ” &

PUNTI (I)

END IF

NEXT I

END SUB

Cliccate Qui per visualizzare l’immagine dello svolgimento completo dell’esercizio.