calcolo di media

esci algebraturbo.htm

scritto con turbo3-attivato sui turbo5

program media2;
uses crt,turbo3;

type vettore = array [1..100] of real;

var N: integer;
X: vettore;
SX:char;

procedure legge_vettore (var V: vettore; N:integer);

var I: integer;

begin
for I := 1 to N do
begin
write ('Inserisci il ',I,'^ valore: ');
readln (X[I])
end
end;

procedure visualizza_vettore (V: vettore; N: integer);

var I: integer;

begin
for I := 1 to N do
write (X[I] :16:2);
end;


procedure visualizza_media_vettore (V: vettore; N: integer);

var SOMMA,MEDIA: real;
I: integer;

begin
SOMMA := 0;
for I := 1 to N do
SOMMA := SOMMA + X[I];

MEDIA := SOMMA/N;
writeln (MEDIA:0:0)
end;


begin
clrscr;
writeln ('---------------------------------');
writeln ('Questo programma calcola la media');
writeln ('aritmetica dei valori introdotti');
writeln ('---------------------------------');
writeln;
write ('Introdurre il numero dei valori ( <100 ):');
readln (N);
legge_vettore (X,N);
clrscr;
writeln('La media dei seguenti valori');
writeln;
visualizza_vettore (X,N);
writeln;
writeln;
write('e'' ');
visualizza_media_vettore (X,N);
read(kbd,SX);
end.