Смешано 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.
Объяснение кода листинга программы
- Используется библиотека crt для работы с консолью.
- Объявляются переменные v1, v2, t1, t2, v и t типа real.
- Выводится сообщение с просьбой ввести объем первой жидкости v1 и ее температуру t1.
- Аналогично запрашивается информация о второй жидкости.
- Объединяются объемы обеих жидкостей и вычисляется их средняя температура t.
- Выводится результат - объем и температура.