// PascalABC.Net 3.0, сборка 1052const k=5; minT=-60; maxT=60; Umax=4.8;var Ut,s,meanT:real; ring:array[1..k] of real; i,p:byte;begin { Модерируем работу за 25 с } Randomize; s:=0; { Выход на рабочий режим } for i:=1 to k do begin Ut:=0.3*Random+3; { колебания напряжения от 3 до 3.3В } ring[i]:=minT+(maxT-minT)*Ut/Umax; s:=s+ring[i] end; meanT:=s/k; Writeln('t=',k:2,'c, средняя температура= ',meanT:6:2); { Рабочий режим } for i:=k+1 to 25 do begin Ut:=0.3*Random+3; { колебания напряжения от 3 до 3.3В } p:=i mod k; if p=0 then p:=k; s:=s-ring[p]; ring[p]:=minT+(maxT-minT)*Ut/Umax; s:=s+ring[p]; meanT:=s/k; Writeln('t=',i:2,'c, средняя температура= ',meanT:6:2); endend.
Тестовое решение:t= 5c, средняя температура= 19.61t= 6c, средняя температура= 20.35t= 7c, средняя температура= 20.60t= 8c, средняя температура= 19.68t= 9c, средняя температура= 20.03t=10c, средняя температура= 19.17t=11c, средняя температура= 18.06t=12c, средняя температура= 17.16t=13c, средняя температура= 18.15t=14c, средняя температура= 18.01t=15c, средняя температура= 18.25t=16c, средняя температура= 19.44t=17c, средняя температура= 19.71t=18c, средняя температура= 18.80t=19c, средняя температура= 18.54t=20c, средняя температура= 19.36t=21c, средняя температура= 19.57t=22c, средняя температура= 20.20t=23c, средняя температура= 20.65t=24c, средняя температура= 20.97t=25c, средняя температура= 20.46