Const c=4190;//Дж/кгvar v1,v2,S1,S2,n:integer;t0,t1,t2,i:integer;S,deng:real; begin writeln('Введите сумму за один Клвт'); readln(deng); writeln('Введите за сколько времени нужно нагреть воду в минутах '); readln(n); writeln('Введите начальное значение и конечное температуры'); readln(t0,t1); writeln('Введите сколько литров воды нужно нагреть первый раз '); readln(v1); for i:=t0 to t1 do S1:=c*v1*(t2 - t1) div n; writeln('Введите конечное значения температуры для нагрева воды второй раз '); readln(t2); writeln('Введите сколько литров воды нужно нагреть второй раз '); readln(v2); for i:=t0 to t2 do S2:=c*v2*(t2-t0) div n; S:=(S1+S2)/10000; writeln('Киловат=',S:3:2); writeln('Сумма=',S*deng); end.
Рисунок, поясняющий решение - в прилагаемом файле. Для решения задачи используется метод кругов Эйлера, только здесь круги не круглые, а прямоугольные.) S = 24 S1+S2+S3+S4 = 10 S3+S4+S5+S7 = 8 S2+S3+S6+S7 = 6 S2+S3 = 3 S3+S4 = 3 S3+S7 = 3 S3 = 1
Для решения задачи используется метод кругов Эйлера, только здесь круги не круглые, а прямоугольные.)
S = 24
S1+S2+S3+S4 = 10
S3+S4+S5+S7 = 8
S2+S3+S6+S7 = 6
S2+S3 = 3
S3+S4 = 3
S3+S7 = 3
S3 = 1
S1+S4+S5 - ?
S1 - ?
S-(S1+S2+S3+S4+S5+S6+S7) - ?
S2 = (S2+S3)-S3 = 3-1 = 2
S4 = (S3+S4)-S3 = 3-1 = 2
S7 = (S3+S7)-S3 = 3-1 = 2
S1 = (S1+S2+S3+S4)-(S2+S3+S4) = 10-(2+1+2) = 5
S5 = (S3+S4+S5+S7)-(S3+S4+S7) = 8-(1+2+2) = 3
S1+S4+S5 = 5+2+3 = 10
S-(S1+S2+S3+S4+S5+S6+S7) = 24-(S2+S3+S6+S7)-(S1+S4+S5) =24-6-10 = 8
ответ: а)10; б)5; в)8