Помогите, пожалуйста. Лабораторная работа по информатике. V1 литров воды нагревается **...

Question

Помогите, пожалуйста. Лабораторная работа по информатике.
V1 литров воды нагревается на электроплите от температуры t0 до температуры t1, а V2 литров- до температуры t2. Сколько будет стоить затраченная на это электроэнергия?
Буду ооооочень благодарна. +65баллов)))
Если получится, можете помочь еще с отчетом? (Блок-схема, оформление и т.д.)

Comments

t0 и t1 // 0 и 1 это градусы ?

---

температура

Answer 1

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.

Comments

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.

---

полностью прога в коменты не влезла

---

спасиииибо) Очень выручаешь)))))))))