Relazione conta

Ci è stato posto il problema di realizzare un programma, in linguaggio pascal, che, dati 10 valori assegnati precedentemente dal programmatore, maggiori di 1 e minori di 100, ci permetta di riordinarli all’interno del vettore. E’ stato utilizzato un unico vettore per assegnare i valori. È stata utilizzata la procedura conta per contare quanti numeri sono stati inseriti. Successivamente è stata utilizzata la procedura ordina per ordinare i valori. Infine abbiamo utilizzato la procedura visua per visualizzare i numeri in ordine.

PSEUDOCODICE

Procedura assegna;

Inizio

V[1]:=35;

V[2]:=40;

V[3]:=85;

V[4]:=0;

V[5]:=76;

Fine;

Procedura conta;

var y,h:integer;

Inizio

h:=0;

Per y:=1 a 100 esegui

Inizio

h:=h+1;

Se V[y]<>0 allora g:=h;

Fine;

Fine;

Procedura scambia(var a,b:integer);

Var alessio:integer;

Inizio

alessio:=a;

a:=b;

B:=alessio;

Fine;

Procedura Ordina (Var v:vet);

var y,j:integer;

Inizio

Per y:=1 a g-1 esegui

Per j:=y+1 a g esegui

Se V[y]>v[j] allora scambia(v[y],v[j]);

Fine;

Procedura visua;

Var y:integer;

Inizio

Scrivi('i numeri in ordine sono:');

Per y:=1 a g esegui

Inizio

scrivi(V[y]);

Fine;

Fine;

Inizio

assegna;

conta;

ordina(v);

visua;

Fine.

Flow chart

Procedura assegna Procedura conta

Procedura scambia(var a,b:integer)

 Procedura Ordina (Var v:vet);

 Procedura visua;

O

Programma principale

Programma in formato pascal