Справа налево расставляем степени от 0. Если 1 в n степени - умножаем единицу на 2 в n степени. Если 0 в n степени - ничего не пишем, переходим к следующей единице. Примерно так - 1*2^8+1*2^6+1*2^3+1*2^1+1*2^0
// PascalABC.Net 3.0, сборка 1052 const 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); end end.
Тестовое решение: t= 5c, средняя температура= 19.61 t= 6c, средняя температура= 20.35 t= 7c, средняя температура= 20.60 t= 8c, средняя температура= 19.68 t= 9c, средняя температура= 20.03 t=10c, средняя температура= 19.17 t=11c, средняя температура= 18.06 t=12c, средняя температура= 17.16 t=13c, средняя температура= 18.15 t=14c, средняя температура= 18.01 t=15c, средняя температура= 18.25 t=16c, средняя температура= 19.44 t=17c, средняя температура= 19.71 t=18c, средняя температура= 18.80 t=19c, средняя температура= 18.54 t=20c, средняя температура= 19.36 t=21c, средняя температура= 19.57 t=22c, средняя температура= 20.20 t=23c, средняя температура= 20.65 t=24c, средняя температура= 20.97 t=25c, средняя температура= 20.46
1. С=2*Pi*R, S= Pi*R^2, V=4/3*Pi*R^3, где Pi=3,14, заданный радиус R 2. P=a+b, S=1/2*a*b, где a и b - данные катеты 3. Пусть даны координаты трех вершин треугольника A(x1;y1), B(x2;y2), C(x3;y3). Расстояние между двумя точками вычисляется по формуле Тогда периметр треугольника можно вычислить по формуле: P=sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2). Площадь треугольника по формуле Герона вычисляется по формуле: , где -полу периметр треугольника. S=sqrt((sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2)/2*(sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2)/2-sqrt((x2-x1)^2+(y2-y1)^2))*(sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2)/2-+sqrt((x3-x2)^2+(y3-y2)^2))*(sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2)/2-sqrt((x3-x1)^2+(y3-y1)^2)) 4. Среднее геометрическое трех чисел вычисляется по формуле или (a*b*c)^1/3
, где 
-полу периметр треугольника.![\sqrt[3]{abc}](/tpl/images/0559/2002/25fb8.png)
или
Справа налево расставляем степени от 0. Если 1 в n степени - умножаем единицу на 2 в n степени. Если 0 в n степени - ничего не пишем, переходим к следующей единице. Примерно так - 1*2^8+1*2^6+1*2^3+1*2^1+1*2^0