Gli array sono dei contenitori di dati strutturati come delle tabelle.

Nella dichiarazione di una variabile array dobbiamo agire in questo modo:

var prezzo: array[1..10] of real;

La linea quindi indica il nome della variabile array (prezzo), indica tra parentesi quadre il numero massimo di valori che può memorizzare l'array (in questo caso 10), e dopo la parola of specifica il tipo di valore da immagazzinare. Gli array possono contenere variabili integer, real, char e string.
Vogliamo utilizzare gli array per stabilire la media del costo di un computer attraverso i prezzi di 10 negozi diversi:

program prezzi;
uses crt;
var prezzo: array [1..10] of real;
media,somma: real;
c:integer;
begin
clrscr;

Useremo il ciclo for...to...do per velocizzare la scrittura del programma e la variabile "c" farà da contatore:

somma:= 0;
for c:= 1 to 10 do
begin
writeln ('Digita il prezzo del computer del ',c,'° negozio: ');
read (prezzo[c]);
somma:=somma+prezzo[c]
end;
media:= somma/10;
writeln ('La media dei prezzi digitati è ',media:8:2);

Ora aggiungiamo altre due funzioni al programma per dimostrare che possiamo far visualizzare i dati inseriti in precedenza (il vantaggio maggiore nell' utilizzo degli array) utilizzando un' altro ciclo che evidenzi i negozi coi prezzi più convenienti, ovvero quelli sotto la media:

writeln ('I negozi col prezzo più conveniente sono: ');
for c:= 1 to 10 do
if prezzo[c]< media then
writeln ('N° ',c,' Prezzo ',prezzo[c]:8:2);
readln;
readln;
end.

Errori di punteggiatura e in fase di esecuzione

TrackBack URI for this entry