Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ludo
Language: PASCAL
Code:
(*Realizza un algoritmo che consenta di leggere un insieme di temperature, di calcolare la media e di trovare la deviazione delle singole temperature della media ottenute attraverso la formula d=t-med*)

Program Temperature;

Procedure chiedi_temp;
var
  temp:real;
begin
    writeln('Inserisci le temperature.');
    readln(temp);
    temperature[temp]:=temp;
end;

Procedure calcola_med;
var
  tot:real;
  conteggio_temp:integer;
begin
    tot:=0;
    conteggio_temp:=0;
    repeat
       tot:=tot+temperature[conteggio_temp];
       conteggio_temp:=conteggio_temp+1;
    until conteggio_temp=conta_temp;
    media_temp:=tot DIV conta_temp;
end;

Procedure trova_dev;
  dev:real;
begin
  conteggio_temp:=0;
  repeat
    dev:=temperature[conteggio_temp]- media_temp;
     writeln('La deviazione è: ', dev , 'Premi INVIO per la prossima deviazione.')
     readln();
  until conteggio_temp=conta_temp;
end;

begin
   conta_temp:=0
   repeat
      chiedi_temp;     (*Chiedi temperature*)
      writeln('Vuoi continuare? Rispondi si o no.');    (*Chiedi di continuare*)
      readln(risp1);
      if risp1=si ora risp1=Si then
        risp=vero;
      if risp1=no or risp=No then
        risp=falso;
      conta_temp:=conta_temp+1;
      if conta_temp=49 then
        writeln('ATTENZIONE: Puoi inserire solo un altro valore della temperatura. Premi INVIO per continuare.');
        readln();
      until risp=falso and conta_temp<50 or conta_temp=50;
    calcola_med;     (*Calcola media*)
    trova_dev;        (*Trova deviazioni*)
end.     
          
          
Comments: