{ File: somvett1.pas } { Scopo: secondo esempio di uso array unidimensionali } program SommaVettori; { Calcola la somma di due vettori a 3 componenti. } const DIM = 3; type TipoVettore = array [1..DIM] of integer; { tipo vettore di DIM interi } var v1, v2, { i due vettori letti } somma : TipoVettore; { il vettore somma } i : 1..DIM; { indice del ciclo per scandire le componenti del vettore } begin { SommaVettori } { lettura primo vettore } writeln('Immetti il primo vettore !'); for i := 1 to DIM do { il vettore deve essere letto una componente alla volta } begin write('Componente ', i, ' ? '); readln(v1[i]) end; writeln; { lettura secondo vettore } writeln('Immetti il secondo vettore !'); for i := 1 to DIM do begin write('Componente ', i, ' ? '); readln(v2[i]) end; writeln; { calcolo vettore somma } for i := 1 to DIM do somma[i] := v1[i] + v2[i]; { N.B. NON si puo` fare direttamente somma := v1 + v2; } { stampa della somma } writeln('Il vettore somma e'':'); for i := 1 to DIM do { il vettore deve essere stampato una componente alla volta } writeln('Componente ', i, ' : ', somma[i]); end. { SommaVettori }