City Temperature Management Program

Inserire il nome della città, la temperature massima e la temperature minima. Visualizzare la temperatura massima e minima di ogni città e calcolare la media delle temperature massime e minime di ogni città.

program es;

uses crt;

const n=3;

var citta:array[1..n]of string;

var min:array[1..n]of real;

var max:array[1..n]of real;

var i,numero,opz:integer;

var tempmax,tempmin,m1,m2:real;

Insertion Procedure

PROCEDURE INSERIMENTO;

BEGIN

tempmax:=0;

tempmin:=0;

for i:=1 to n do

begin

writeln('nome ' , i , '^ citt…:');

readln(citta);

writeln('temperatura massima:');

readln(max);

writeln('temperatura minima:');

readln(min);

tempmax:=tempmax+max;

tempmin:=tempmin+min;

end;

END;

Temperature Display

PROCEDURE VISUALIZZA;

BEGIN

for i:=1 to n do

begin

writeln('la citt… ' , citta , ' ha temperatura massima di ' , max:0:2, 'ø e temperatura minima di ' , min:0:2 , 'ø');

readln;

end;

END;
PROCEDURE MEDIA;

BEGIN

for i:=1 to n do

begin

m1:=tempmax/n;

m2:=tempmin/n;

end;

END;

Average Display

PROCEDURE VISUALIZZA_MEDIA;

BEGIN

writeln(' la media delle temperature massime di tutte le citt… Š ' , m1:0:2,'ø ');

writeln('la media delle temperature minime di tutte le citt… Š ' , m2:0:2, 'ø');

readln;

END;
{PROGRAMMA PRINCIPALE}

BEGIN

CLRSCR;

writeln('inserisci numero citt…:');

readln(numero);

REPEAT

WRITELN('INSERIMENTO');

WRITELN('VISUALIZZA');

WRITELN('MEDIA');

WRITELN('VISUALIZZA_MEDIA');

WRITELN('INSERISCI OPZIONE');

READLN(OPZ);

CASE OPZ OF

1:INSERIMENTO;

2:VISUALIZZA;

3:MEDIA;

4:VISUALIZZA_MEDIA;

END;

UNTIL (OPZ=5)

END.