Смешано V1 литров - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Смешано V1 литров воды температуры t1 с v2 литрами воды температуры t2. Найти объём и температуру образовавшейся жидкости.

Решение задачи: «Смешано V1 литров»

textual
Листинг программы
uses crt;
var v1,v2,t1,t2,v,t:real;
begin
clrscr;
write('Объем первой жидкости v1=');
readln(v1);
write('Температура первой жидкости t1=');
readln(t1);
write('Объем второй жидкости v2=');
readln(v2);
write('Температура второй жидкости t2=');
readln(t2);
v:=v1+v2;
t:=(v1*t1+v2*t2)/v;
write('Объем=',v:0:2,' температура=',t:0:2);
readln
end.

Объяснение кода листинга программы

  1. Используется библиотека crt для работы с консолью.
  2. Объявляются переменные v1, v2, t1, t2, v и t типа real.
  3. Выводится сообщение с просьбой ввести объем первой жидкости v1 и ее температуру t1.
  4. Аналогично запрашивается информация о второй жидкости.
  5. Объединяются объемы обеих жидкостей и вычисляется их средняя температура t.
  6. Выводится результат - объем и температура.

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы