Программа для расчёта среднегодовой, среднемесячной температуры, а также средней температуры за сезон и каждую неделю

Отчёт по работе.

Процедуры и функции.

Задача:

Даны результаты измерений температуры за каждый день года (массив Т).

Используя функцию или процедуру для нахождения средней арифметической, рассчитать среднегодовую, среднемесячную температуру, среднею температуру за сезон (зима, осень, лето, весна), среднею температуру за каждую неделю.

Телопрограммы:

Program GodovayTemp;

Var Day: array [1..360] of integer;

    i,j,sg,r,sm,n,k :integer;

Procedure Srednegod;

Begin

sg:=0;

For i:=1 to 360 do

   sg:=sg+Day[i];

End;

Procedure Srednemes;

Begin

n:=30;

k:=1;

Repeat

sm:=0;

  For i:=k to n do

  Begin

     sm:=sm+Day[i];

  End;

      k:=n;

      n:=n+30;

      Writeln('srednemesachnaya temperatyra ',sm/30:5:3);

Until n>360

End;

Procedure Srednesezon;

Var sz,sz1,sz2,sv,sl,so:integer;

Begin

sz1:=0;

sz2:=0;

sz:=0;

For i:=1 to 60 do

    sz1:=sz1+Day[i];

For i:=330 to 360 do

    sz2:=sz2+Day[i];

sz:=sz1+sz2;

Writeln('temp za zimy ',sz/90:5:3);

sv:=0;

For i:=60 to 150 do

 sv:=sv+Day[i];

Writeln('temp za vesny ',sv/90:5:3);

sl:=0;

For i:=150 to 240 do

sl:=sl+Day[i];

Writeln('temp za leto ',sl/90:5:3);

so:=0;

For i:=240 to 330 do

so:=so+Day[i];

Writeln('temp za osen',so/90:5:3);

end;

Procedure Srednenedeln;

Var sn,n,i,k:integer;

Begin

n:=7;

k:=1;

Repeat

sn:=0;

  For i:=k to n do

     sn:=sn+Day[i];

      k:=n;

      n:=n+7;

      Writeln('temp za kagdyu nedely ',sn/7:5:3);

Until n>360

end;

Begin

Randomize;

For i:=1 to 360 do

Day[i]:=Random(41);

Srednegod;

Writeln('srednegodovaya temperatyra ravna ',sg/360:5:3);

Srednemes;

Srednesezon;

Readln;

Srednenedeln;

Readln;

end.

Вывод:

Эта программа вычисляет среднею температуру за различные периоды года.

Значения получаются примерно от 9 до 30, т.к. мы использовали оператор подбора случайных чисел.