program mf;

Uses CRT;

label y;

var x,vt,t1,t2,tk,tp,gt,c,r,h,vps,vpb:real;

begin

TextColor (02);

y: writeln (' УМОВА');

writeln ('Скiльки лiтрiв палива треба, щоб нагрiти');

writeln ('речовину в iнтервалi певних температур.');

writeln ('(Задача не дiйсна для води)');

TextColor (05);

write('Початкова Температура (в CI)= ');

readln(t1);

write ('Кiнцева Температура (в CI)= ');

readln(t2);

write ('Об`єм речовини = ');

readln(vt);

write ('Густина речовини (в СI)= ');

readln(gt);

write ('Температура кипiння (в СI) = ');

readln(tk);

write ('Температура плавлення (в СI)= ');

readln(tp);

write ('Питома теплоємнiсь речовини (в СI)= ');

readln(c);

write ('Питома теплота пароутворення речовини (в СI)= ');

readln(r);

write ('Питома теплота плавлення речовини (в СI)= ');

readln(h);

if t1<tp then

begin

if t2>tk then x:=c*(tp-t1)+h+c*(tk-tp)+r+c*(t2-tk);

if t2=tk then x:=c*(tp-t1)+h+c*(tk-tp)+r;

if t2<tk then x:=c*(tp-t1)+h+c*(tk-t2);

if t2=tp then x:=c*(tp-t1)+h;

if t2<tp then x:=c*(t2-t1);

end;

if t2>tk then

begin

if t1=tp then x:=h+c*(tk-tp)+r+c*(t2-tk);

if t1>tp then x:=c*(tk-t1)+r+c*(t2-tk);

if t1=tk then x:=r+c*(t2-tk);

if t1>tk then x:=c*(t2-t1);

end;

if t1>tp then if t2<tk then x:=c*(t2-t1);

if t1=tp then

begin

if t2>tk then x:=h+c*(tk-tp)+r+c*(t2-tk);

if t2=tk then x:=h+c*(tk-tp)+r;

if t2<tk then x:=h+c*(t2-tp);

end;

if t2=tk then

begin

if t1<tp then x:=c*(tp-t1)+h+c*(tk-tp)+r;

if t1=tp then x:=h+c*(tk-tp)+r;

if t1>tp then x:=c*(tk-t1)+r;

end;

if t1>tp then

begin

if t2>tk then x:=c*(tk-t1)+r+c*(t2-tk);

if t2=tk then x:=c*(tk-t1)+r;

if t2<tk then x:=c*(t2-t1);

end;

if t2<tk then

begin

if t1<tp then x:=c*(tp-t1)+h+c*(t2-tp);

if t1=tp then x:=c*h+c*(t2-tp);

if t1>tp then x:=c*(t2-t1);

end;

if t2>tk then

begin

if t1=tk then x:=r+c*(t2-tk);

if t1>tk then x:=c*(t2-t1);

end;

if t1<tp then

begin

if t2=tp then x:=c*(tp-t1)+h;

if t2<tp then x:=c*(t2-t1);

end;

vps:= (x*vt*gt)/23200000000;

vpb:= (x*vt*gt)/32200000000;

TextColor (02);

writeln ('Об`єм спирту=',vps);

writeln ('Об`єм бензину =',vpb);

readln;

clrscr;

goto y;

end.

#include <stdio.h>

int main(void)

{

float t1,t2,vt,gt,tk,tp,c,r,h,vpb,vps,x;;

printf (" “¬®ў  \nЄi«мЄЁ «iваiў Ї «Ёў  вॡ , й®Ў ­ ЈаiвЁ \nаҐз®ўЁ­г ў i­вҐаў «i ЇҐў­Ёе ⥬ЇҐа вга. \n(‡ ¤ з  ­Ґ ¤i©б­  ¤«п ў®¤Ё)\n \n");

printf ( "Џ®з вЄ®ў  ⥬ЇҐа вга  (ў –Ґ«мбiпе) = ");

scanf("%f", &t1);

printf ( "Љi­жҐў  ⥬ЇҐа вга  (ў –Ґ«мбiпе) = ");

scanf("%f", &t2);

printf ( "ЋЎ©Ґ¬ = ");

scanf("%f", &vt);

printf ( "ѓгбвЁ­  аҐз®ўЁ­Ё = ");

scanf("%f", &gt);

printf ( "’Ґ¬ЇҐа вга  ЄЁЇi­­п =");

scanf("%f", &tk);

printf ( "’Ґ¬ЇҐа вга  Ї« ў«Ґ­­п = ");

scanf("%f", &tp);

printf ( "ЏЁв®¬  ⥯«®©Ґ¬­лбвм аҐз®ўЁ­Ё = ");

scanf("%f", &c);

printf ( "ЏЁв®¬  ⥯«®в  Ї а®г⢮७­п аҐз®ўЁ­Ё = ");

scanf("%f", &r);

printf ( "ЏЁв®¬  ⥯«®в  Ї« ў«Ґ­­п аҐз®ўЁ­Ё = ");

scanf("%f", &h);

if (t2 > tk & t1 < tp)

x = c * (t1 - tp) + h + c * (tk - tp) + r + c * (t2 - tk);

if (t2 == tk & t1 < tp)

x = c * (t1 - tp) + h + c * (tk - tp) + r;

if (t2 < tk & t1 < tp)

x = c * (t1 - tp) + h + c * (tk - t2);

if (t2 == tp & t1 < tp)

x = c * (t1 - tp) + h;

if (t2 < tp & t1 < tp)

x = c * (t1 - tp);

if (t1 == tp & t2 > tk)

x = h + c * (tk - tp) + r + c * (t2 - tk);

if (t1 > tp & t2 > tk)

x = c * (tk - t1) + r + c * (t2 - tk);

if (t1 == tk & t2 > tk)

x = r + c * (t2 - tk);

if (t1 > tk & t2 > tk)

x = c * (t2 - t1);

if (t1 > tp)

if (t2 < tk)

x = c * (t2 - t1);

if (t2 > tk & t1 == tp)

x = h + c * (tk - tp) + r + c * (t2 - tk);

if (t2 == tk & t1 == tp)

x = h + c * (tk - tp) + r;

if (t2 < tk & t1 == tp)

x = h + c * (t2 - tp);

if (t1 < tp & t2 == tk)

x = c * (t1 - tp) + h + c * (tk - tp) + r;

if (t1 == tp & t2 == tk)

x = h + c * (tk - tp) + r;

if (t1 > tp & t2 == tk)

x = c * (tk - t1) + r;

if (t2 > tk & t1 > tp)

x = c * (tk - t1) + r + c * (t2 - tk);

if (t2 == tk & t1 > tp)

x = c * (tk - t1) + r;

if (t2 < tk & t1 > tp)

x = c * (t2 - t1);

if (t1 < tp & t2 < tk)

x = c * (t1 - tp) + h + c * (t2 - tp);

if (t1 == tp & t2 < tk)

x = c * h + c * (t2 - tp);

if (t1 > tp & t2 < tk)

x = c * (t2 - t1);

if (t1 == tk & t2 > tk)

x = r + c * (t2 - tk);

if (t1 > tk & t2 > tk)

x = c * (t2 - t1);

if (t2 == tp & t1 < tp)

x = c * (t1 - tp) + h;

if (t2 < tp & t1 < tp)

x = c * (t2 - t1);

vps = (x * vt * gt) / 23200000000;

vpb = (x * vt * gt) / 32200000000;

printf ("\nЋЎ©Ґ¬ бЇЁавг = %f", vps);

printf ("\nЋЎ©Ґ¬ ЎҐ­§Ё­г = %f", vpb);

scanf("\n");

return 0;

}

l: CLS

PRINT " “¬®ў "

' УМОВА

PRINT "‘Єi«мЄЁ «iваiў Ї «Ёў  вॡ , й®Ў ­ ЈаiвЁ аҐз®ўЁ­г ў i­вҐаў «i ЇҐў­Ёе ⥬ЇҐа вга. (‡ ¤ з  ­Ґ ¤i©б­  ¤«п ў®¤Ё)"

'Скiльки лiтрiв палива треба, щоб нагрiти речовину в iнтервалi певних температур.(Задача не дійсна для води)

INPUT "Џ®з вЄ®ў  ⥬ЇҐа вга  (ў CI) = ", t1

'Початкова Температура (в CI)

INPUT "Љi­жҐў  ⥬ЇҐа вга  (ў CI) = ", t2

'Кiнцева Температура (в CI)

INPUT "ЋЎ©Ґ¬ аҐз®ўЁ­Ё =", vt

'Обєм речовини =

INPUT "ѓгбвЁ­  аҐз®ўЁ­Ё = ", gt

'Густина речовини (в СI)=

INPUT "’Ґ¬ЇҐа вга  ЄЁЇi­­п = ", tk

'Температура кипiння (в СI) =

INPUT "’Ґ¬ЇҐа вга  Ї« ў«Ґ­­п = ", tp

'Температура плавлення (в СI)=

INPUT "ЏЁв®¬  ⥯«®©Ґ¬­лбвм аҐз®ўЁ­Ё = ", c

'Питома теплоємнiсь речовини (в СI)=

INPUT "ЏЁв®¬  ⥯«®в  Ї а®г⢮७­п аҐз®ўЁ­Ё = ", r

'Питома теплота пароутворення речовини (в СI)=

INPUT "ЏЁв®¬  ⥯«®в  Ї« ў«Ґ­­п аҐз®ўЁ­Ё = ", h

'Питома теплота плавлення речовини (в СI)=

IF t2 > tk AND t1<tp THEN x = c * (t1 - tp) + h + c * (tk - tp) + r + c * (t2 - tk)

IF t2 = tk AND t1<tp THEN x = c * (t1 - tp) + h + c * (tk - tp) + r

IF t2 < tk AND t1<tp THEN x = c * (t1 - tp) + h + c * (tk - t2)

IF t2 = tp AND t1<tp THEN x = c * (t1 - tp) + h

IF t2 < tp AND t1<tp THEN x = c * (t1 - tp)

IF t1 = tp AND t2 > tk THEN x = h + c * (tk - tp) + r + c * (t2 - tk)

IF t1 > tp AND t2 > tk THEN x = c * (tk - t1) + r + c * (t2 - tk)

IF t1 = tk AND t2 > tk THEN x = r + c * (t2 - tk)

IF t1 > tk AND t2 > tk THEN x = c * (t2 - t1)

IF t1 > tp THEN IF t2 < tk THEN x = c * (t2 - t1)

IF t2 > tk AND t1 = tp THEN x = h + c * (tk - tp) + r + c * (t2 - tk)

IF t2 = tk AND t1 = tp THEN x = h + c * (tk - tp) + r

IF t2 < tk AND t1 = tp THEN x = h + c * (t2 - tp)

IF t1 < tp AND t2 = tk THEN x = c * (t1 - tp) + h + c * (tk - tp) + r

IF t1 = tp AND t2 = tk THEN x = h + c * (tk - tp) + r

IF t1 > tp AND t2 = tk THEN x = c * (tk - t1) + r

IF t2 > tk AND t1 > tp THEN x = c * (tk - t1) + r + c * (t2 - tk)

IF t2 = tk AND t1 > tp THEN x = c * (tk - t1) + r

IF t2 < tk AND t1 > tp THEN x = c * (t2 - t1)

IF t1 < tp AND t2 < tk THEN x = c * (t1 - tp) + h + c * (t2 - tp)

IF t1 = tp AND t2 < tk THEN x = c * h + c * (t2 - tp)

IF t1 > tp AND t2 < tk THEN x = c * (t2 - t1)

IF t1 = tk AND t2 > tk THEN x = r + c * (t2 - tk)

IF t1 > tk AND t2 > tk THEN x = c * (t2 - t1)

IF t2 = tp AND t1 < tp THEN x = c * (t1 - tp) + h

IF t2 < tp AND t1 < tp THEN x = c * (t2 - t1)

vps = (x * vt * gt) / 23200000000#

vpb = (x * vt * gt) / 32200000000#

PRINT "ЋЎ©Ґ¬ бЇЁавг = "; vps

'Обєм спирту

PRINT "ЋЎ©Ґ¬ ЎҐ­§Ё­г = "; vpb

'Обєм бензину

INPUT z

GOTO l

<title>Молекулярна фізика</title>

<body><div align="center">

<b>Скiльки лiтрiв палива треба, щоб нагрiти речовину в iнтервалi певних температур. (Задача не дiйсна для води)</b><br><br>

<form name="mfa" action="javascript:mfa()" id="1419313176">

Початкова температура (в CI) = <input name="mfa_t1" type="text" value=" " size="4">

Кінцева температура (в CI) = <input name="mfa_t2" type="text" value=" " size="4">

Об'єм речовини = <input name="mfa_vt" type="text" value=" " size="4">

Густина речовини (в СI) = <input name="mfa_gt" type="text" value=" " size="4"> <br><br>

Температура кипiння (в CI) = <input name="mfa_tk" type="text" value=" " size="4">

Температура плавлення (в CI) = <input name="mfa_tp" type="text" value=" " size="4">

Питома теплоємнiсь речовини (в CI) = <input name="mfa_c" type="text" value=" " size="4"><br><br>

Питома теплота пароутворення речовини (в CI) = <input name="mfa_r" type="text" value=" " size="4">

Питома теплота плавлення речовини (в CI) = <input name="mfa_h" type="text" value=" " size="4">

<input type="submit" value="Порахувати">

<input type="reset" value="Reset">

</form>

Опрацювання: <br> <span id="mfa_sol">Введіть коефіцієнти і нажміть "Порахувати"</span>

</div>

<script language="javascript">

function mfa() {

var t1 = document.mfa.mfa_t1.value;

var t2 = document.mfa.mfa_t2.value;

var vt = document.mfa.mfa_vt.value;

var gt = document.mfa.mfa_gt.value;

var tk = document.mfa.mfa_tk.value;

var tp = document.mfa.mfa_tp.value;

var c = document.mfa.mfa_c.value;

var r = document.mfa.mfa_r.value;

var h = document.mfa.mfa_h.value;

var sol = document.getElementById("mfa_sol");

var x;

if (t2 > tk & t1 < tp)

x = c * (t1 - tp) + h + c * (tk - tp) + r + c * (t2 - tk);

if (t2 == tk & t1 < tp)

x = c * (t1 - tp) + h + c * (tk - tp) + r;

if (t2 < tk & t1 < tp)

x = c * (t1 - tp) + h + c * (tk - t2);

if (t2 == tp & t1 < tp)

x = c * (t1 - tp) + h;

if (t2 < tp & t1 < tp)

x = c * (t1 - tp);

if (t1 == tp & t2 > tk)

x = h + c * (tk - tp) + r + c * (t2 - tk);

if (t1 > tp & t2 > tk)

x = c * (tk - t1) + r + c * (t2 - tk);

if (t1 == tk & t2 > tk)

x = r + c * (t2 - tk);

if (t1 > tk & t2 > tk)

x = c * (t2 - t1);

if (t1 > tp)

if (t2 < tk)

x = c * (t2 - t1);

if (t2 > tk & t1 == tp)

x = h + c * (tk - tp) + r + c * (t2 - tk);

if (t2 == tk & t1 == tp)

x = h + c * (tk - tp) + r;

if (t2 < tk & t1 == tp)

x = h + c * (t2 - tp);

if (t1 < tp & t2 == tk)

x = c * (t1 - tp) + h + c * (tk - tp) + r;

if (t1 == tp & t2 == tk)

x = h + c * (tk - tp) + r;

if (t1 > tp & t2 == tk)

x = c * (tk - t1) + r;

if (t2 > tk & t1 > tp)

x = c * (tk - t1) + r + c * (t2 - tk);

if (t2 == tk & t1 > tp)

x = c * (tk - t1) + r;

if (t2 < tk & t1 > tp)

x = c * (t2 - t1);

if (t1 < tp & t2 < tk)

x = c * (t1 - tp) + h + c * (t2 - tp);

if (t1 == tp & t2 < tk)

x = c * h + c * (t2 - tp);

if (t1 > tp & t2 < tk)

x = c * (t2 - t1);

if (t1 == tk & t2 > tk)

x = r + c * (t2 - tk);

if (t1 > tk & t2 > tk)

x = c * (t2 - t1);

if (t2 == tp & t1 < tp)

x = c * (t1 - tp) + h;

if (t2 < tp & t1 < tp)

x = c * (t2 - t1);

var vps = (x * vt * gt) / 23200000000;

var vpb = (x * vt * gt) / 32200000000;

string = "Об`єм спирту (л) = " + vps +"<br>"+ "Об`єм бензину (л) = " + vpb;

sol.innerHTML = string;

}

</script>

</body>

Class Program

Shared Sub Main()

Console.WriteLine(" УМОВА")

Console.WriteLine("Скiльки лiтрiв палива треба, щоб нагрiти")

Console.WriteLine("речовину в iнтервалi певних температур, ")

Console.WriteLine("(Задача не дiйсна для води)")

Console.Write("Початкова Температура (в СI) = ")

Dim t1 As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Кiнцева Температура (в СI) = ")

Dim t2 As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Об`єм речовини = ")

Dim vt As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Густина речовини (в СI) = ")

Dim gt As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Температура кипiння (в СI) = ")

Dim tk As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Температура плавлення (в СI) = ")

Dim tp As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Питома теплоємнiсь речовини (в СI) = ")

Dim c As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Питома теплота пароутворення речовини (в СI) = ")

Dim r As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Питома теплота плавлення речовини (в СI) = ")

Dim h As Double = Convert.ToDouble(Console.ReadLine())

Dim x As Double

IF t2 > tk AND t1<tp THEN x = c * (t1 - tp) + h + c * (tk - tp) + r + c * (t2 - tk)

IF t2 = tk AND t1<tp THEN x = c * (t1 - tp) + h + c * (tk - tp) + r

IF t2 < tk AND t1<tp THEN x = c * (t1 - tp) + h + c * (tk - t2)

IF t2 = tp AND t1<tp THEN x = c * (t1 - tp) + h

IF t2 < tp AND t1<tp THEN x = c * (t1 - tp)

IF t1 = tp AND t2 > tk THEN x = h + c * (tk - tp) + r + c * (t2 - tk)

IF t1 > tp AND t2 > tk THEN x = c * (tk - t1) + r + c * (t2 - tk)

IF t1 = tk AND t2 > tk THEN x = r + c * (t2 - tk)

IF t1 > tk AND t2 > tk THEN x = c * (t2 - t1)

IF t1 > tp THEN IF t2 < tk THEN x = c * (t2 - t1)

IF t2 > tk AND t1 = tp THEN x = h + c * (tk - tp) + r + c * (t2 - tk)

IF t2 = tk AND t1 = tp THEN x = h + c * (tk - tp) + r

IF t2 < tk AND t1 = tp THEN x = h + c * (t2 - tp)

IF t1 < tp AND t2 = tk THEN x = c * (t1 - tp) + h + c * (tk - tp) + r

IF t1 = tp AND t2 = tk THEN x = h + c * (tk - tp) + r

IF t1 > tp AND t2 = tk THEN x = c * (tk - t1) + r

IF t2 > tk AND t1 > tp THEN x = c * (tk - t1) + r + c * (t2 - tk)

IF t2 = tk AND t1 > tp THEN x = c * (tk - t1) + r

IF t2 < tk AND t1 > tp THEN x = c * (t2 - t1)

IF t1 < tp AND t2 < tk THEN x = c * (t1 - tp) + h + c * (t2 - tp)

IF t1 = tp AND t2 < tk THEN x = c * h + c * (t2 - tp)

IF t1 > tp AND t2 < tk THEN x = c * (t2 - t1)

IF t1 = tk AND t2 > tk THEN x = r + c * (t2 - tk)

IF t1 > tk AND t2 > tk THEN x = c * (t2 - t1)

IF t2 = tp AND t1 < tp THEN x = c * (t1 - tp) + h

IF t2 < tp AND t1 < tp THEN x = c * (t2 - t1)

Dim vps As Double = (x*vt*gt)/23200000000

Dim vpb As Double = (x*vt*gt)/32200000000

Console.WriteLine(" ")

Console.WriteLine("Об`єм спирту = {0} ", vps)

Console.WriteLine("Об`єм бензину = {0} ", vpb)

Console.ReadKey()

End Sub

End Class

#include <conio.h>

#include <iostream>

int main(void)

{

double t1,t2,vt,gt,tk,tp,c,r,h,vpb,vps,x;

setlocale(LC_ALL, "");

std::cout << " УМОВА \nСкiльки лiтрiв палива треба, щоб нагрiти \nречовину в iнтервалi певних температур. \n(Задача не дiйсна для води) \n \n";

std::cout << "Початкова Температура (в СI) = ";

std::cin >> t1;

std::cout << "Кiнцева Температура (в СI) = ";

std::cin >> t2;

std::cout << "Об'єм речовини = ";

std::cin >> vt;

std::cout << "Густина речовини (в СI) = ";

std::cin >> gt;

std::cout << "Температура кипiння (в СI) = ";

std::cin >> tk;

std::cout << "Температура плавлення (в СI) = ";

std::cin >> tp;

std::cout << "Питома теплоємнiсь речовини (в СI) = ";

std::cin >> c;

std::cout << "Питома теплота пароутворення речовини (в СI) = ";

std::cin >> r;

std::cout << "Питома теплота плавлення речовини (в СI) = ";

std::cin >> h;

if (t2 > tk & t1 < tp)

x = c * (t1 - tp) + h + c * (tk - tp) + r + c * (t2 - tk);

if (t2 == tk & t1 < tp)

x = c * (t1 - tp) + h + c * (tk - tp) + r;

if (t2 < tk & t1 < tp)

x = c * (t1 - tp) + h + c * (tk - t2);

if (t2 == tp & t1 < tp)

x = c * (t1 - tp) + h;

if (t2 < tp & t1 < tp)

x = c * (t1 - tp);

if (t1 == tp & t2 > tk)

x = h + c * (tk - tp) + r + c * (t2 - tk);

if (t1 > tp & t2 > tk)

x = c * (tk - t1) + r + c * (t2 - tk);

if (t1 == tk & t2 > tk)

x = r + c * (t2 - tk);

if (t1 > tk & t2 > tk)

x = c * (t2 - t1);

if (t1 > tp)

if (t2 < tk)

x = c * (t2 - t1);

if (t2 > tk & t1 == tp)

x = h + c * (tk - tp) + r + c * (t2 - tk);

if (t2 == tk & t1 == tp)

x = h + c * (tk - tp) + r;

if (t2 < tk & t1 == tp)

x = h + c * (t2 - tp);

if (t1 < tp & t2 == tk)

x = c * (t1 - tp) + h + c * (tk - tp) + r;

if (t1 == tp & t2 == tk)

x = h + c * (tk - tp) + r;

if (t1 > tp & t2 == tk)

x = c * (tk - t1) + r;

if (t2 > tk & t1 > tp)

x = c * (tk - t1) + r + c * (t2 - tk);

if (t2 == tk & t1 > tp)

x = c * (tk - t1) + r;

if (t2 < tk & t1 > tp)

x = c * (t2 - t1);

if (t1 < tp & t2 < tk)

x = c * (t1 - tp) + h + c * (t2 - tp);

if (t1 == tp & t2 < tk)

x = c * h + c * (t2 - tp);

if (t1 > tp & t2 < tk)

x = c * (t2 - t1);

if (t1 == tk & t2 > tk)

x = r + c * (t2 - tk);

if (t1 > tk & t2 > tk)

x = c * (t2 - t1);

if (t2 == tp & t1 < tp)

x = c * (t1 - tp) + h;

if (t2 < tp & t1 < tp)

x = c * (t2 - t1);

vps = (x * vt * gt) / 23200000000L;

vpb = (x * vt * gt) / 32200000000L;

std::cout << "\nОб`єм спирту = " << vps << "\nОб`єм бензину = " << vpb << std::endl;

getch();

return 0;

}

print (' УМОВА')

print ('Скiльки лiтрiв палива треба, щоб нагрiти')

print ('речовину в iнтервалi певних температур, ')

print ('(Задача не дiйсна для води)')

t1=float(input('Початкова Температура (в Цельсiях) = '))

t2=float(input('Кiнцева Температура (в Цельсiях) = '))

vt =float(input('Об`єм речовини ='))

gt =float(input('Густина речовини (в СI) ='))

tk =float(input('Температура кипiння (в СI) ='))

tp =float(input('Температура плавлення (в СI) = '))

c =float(input('Питома теплоємнiсь речовини (в СI) = '))

r =float(input('Питома теплота пароутворення речовини (в СI) ='))

h =float(input('Питома теплота плавлення речовини (в СI) ='))

print ('')

if t2 > tk and t1<tp : x = c * (t1 - tp) + h + c * (tk - tp) + r + c * (t2 - tk)

if t2 == tk and t1<tp : x = c * (t1 - tp) + h + c * (tk - tp) + r

if t2 < tk and t1<tp : x = c * (t1 - tp) + h + c * (tk - t2)

if t2 == tp and t1<tp : x = c * (t1 - tp) + h

if t2 < tp and t1<tp : x = c * (t1 - tp)

if t1 == tp and t2 > tk : x = h + c * (tk - tp) + r + c * (t2 - tk)

if t1 > tp and t2 > tk : x = c * (tk - t1) + r + c * (t2 - tk)

if t1 == tk and t2 > tk : x = r + c * (t2 - tk)

if t1 > tk and t2 > tk : x = c * (t2 - t1)

if t1 > tp and t2 < tk : x = c * (t2 - t1)

if t2 > tk and t1 == tp : x = h + c * (tk - tp) + r + c * (t2 - tk)

if t2 == tk and t1 == tp : x = h + c * (tk - tp) + r

if t2 < tk and t1 == tp : x = h + c * (t2 - tp)

if t1 < tp and t2 == tk : x = c * (t1 - tp) + h + c * (tk - tp) + r

if t1 == tp and t2 == tk : x = h + c * (tk - tp) + r

if t1 > tp and t2 == tk : x = c * (tk - t1) + r

if t2 > tk and t1 > tp : x = c * (tk - t1) + r + c * (t2 - tk)

if t2 == tk and t1 > tp : x = c * (tk - t1) + r

if t2 < tk and t1 > tp : x = c * (t2 - t1)

if t1 < tp and t2 < tk : x = c * (t1 - tp) + h + c * (t2 - tp)

if t1 == tp and t2 < tk : x = c * h + c * (t2 - tp)

if t1 > tp and t2 < tk : x = c * (t2 - t1)

if t1 == tk and t2 > tk : x = r + c * (t2 - tk)

if t1 > tk and t2 > tk : x = c * (t2 - t1)

if t2 == tp and t1 < tp : x = c * (t1 - tp) + h

if t2 < tp and t1 < tp : x = c * (t2 - t1)

vps = (x*vt*gt)/23200000000

vpb = (x*vt*gt)/32200000000

print (' ')

print ('Об`єм спирту = ', vps)

print ('Об`єм бензину = ', vpb)

input()

VERSION 5.00

Begin VB.Form Form1

BorderStyle = 1 'Fixed Single

Caption = "Молекулярна фізика"

ClientHeight = 7005

ClientLeft = 45

ClientTop = 390

ClientWidth = 7305

LinkTopic = "Form1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 7005

ScaleWidth = 7305

StartUpPosition = 2 'CenterScreen

Begin VB.CommandButton Command3

Caption = "ВИХІД"

Height = 315

Left = 120

TabIndex = 25

Top = 6480

Width = 6975

End

Begin VB.CommandButton Command2

Caption = "Очистка"

Height = 255

Left = 3120

TabIndex = 24

Top = 6000

Width = 3975

End

Begin VB.CommandButton Command1

Caption = "СТАРТ"

Height = 255

Left = 3120

TabIndex = 23

Top = 5520

Width = 3975

End

Begin VB.TextBox Text11

Height = 285

Left = 3240

TabIndex = 17

Top = 1200

Width = 3855

End

Begin VB.TextBox Text10

Height = 285

Left = 3240

TabIndex = 16

Top = 2160

Width = 3855

End

Begin VB.TextBox Text9

Height = 285

Left = 3240

TabIndex = 15

Top = 3120

Width = 3855

End

Begin VB.TextBox Text8

Height = 285

Left = 3240

TabIndex = 14

Top = 4080

Width = 3855

End

Begin VB.TextBox Text7

Height = 285

Left = 3240

TabIndex = 13

Top = 5040

Width = 3855

End

Begin VB.TextBox Text6

Height = 285

Left = 120

TabIndex = 12

Top = 6000

Width = 2535

End

Begin VB.TextBox Text5

Height = 285

Left = 120

TabIndex = 11

Top = 5040

Width = 2535

End

Begin VB.TextBox Text4

Height = 285

Left = 120

TabIndex = 10

Top = 4080

Width = 2535

End

Begin VB.TextBox Text3

Height = 285

Left = 120

TabIndex = 9

Top = 3120

Width = 2535

End

Begin VB.TextBox Text2

Height = 285

Left = 120

TabIndex = 8

Top = 2160

Width = 2535

End

Begin VB.TextBox Text1

Height = 285

Left = 120

TabIndex = 5

Top = 1200

Width = 2535

End

Begin VB.Label Label12

Caption = "Питома теплота пароутворення речовини (в СI) ="

Height = 255

Left = 3240

TabIndex = 22

Top = 720

Width = 3735

End

Begin VB.Label Label11

Caption = "Питома теплота плавлення речовини (в СI) ="

Height = 255

Left = 3240

TabIndex = 21

Top = 1680

Width = 3735

End

Begin VB.Label Label10

Caption = "Об'єм спирту ="

Height = 255

Left = 3240

TabIndex = 20

Top = 4560

Width = 2535

End

Begin VB.Label Label9

Caption = "Питома теплоємнiсь речовини (в СI) ="

Height = 255

Left = 3240

TabIndex = 19

Top = 2640

Width = 3495

End

Begin VB.Label Label8

Caption = "Об'єм бензину = "

Height = 255

Left = 3240

TabIndex = 18

Top = 3600

Width = 2415

End

Begin VB.Label Label7

Caption = "Температура плавлення (в СI) ="

Height = 255

Left = 120

TabIndex = 7

Top = 5520

Width = 2535

End

Begin VB.Label Label6

Caption = "Густина речовини (в СI) ="

Height = 255

Left = 120

TabIndex = 6

Top = 3600

Width = 2415

End

Begin VB.Label Label5

Caption = "Об'єм речовини ="

Height = 255

Left = 120

TabIndex = 4

Top = 2640

Width = 2415

End

Begin VB.Label Label4

Caption = "Температура кипiння (в СI) ="

Height = 255

Left = 120

TabIndex = 3

Top = 4560

Width = 2535

End

Begin VB.Label Label3

Caption = "Кiнцева Температура (в CI) ="

Height = 255

Left = 120

TabIndex = 2

Top = 1680

Width = 2415

End

Begin VB.Label Label2

Caption = "Початкова Температура (в CI) ="

Height = 255

Left = 120

TabIndex = 1

Top = 720

Width = 2415

End

Begin VB.Label Label1

Alignment = 2 'Центровка

Caption = "Скiльки лiтрiв палива треба, щоб нагрiти речовину в iнтервалi певних температур. (Задача не дiйсна для води)"

Height = 375

Left = 480

TabIndex = 0

Top = 120

Width = 6255

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

t1 = Text1.Text

t2 = Text2.Text

vt = Text3.Text

gt = Text4.Text

tk = Text5.Text

tp = Text6.Text

c = Text9.Text

r = Text11.Text

h = Text10.Text

If t2 > tk And t1 < tp Then x = c * (t1 - tp) + h + c * (tk - tp) + r + c * (t2 - tk)

If t2 = tk And t1 < tp Then x = c * (t1 - tp) + h + c * (tk - tp) + r

If t2 < tk And t1 < tp Then x = c * (t1 - tp) + h + c * (tk - t2)

If t2 = tp And t1 < tp Then x = c * (t1 - tp) + h

If t2 < tp And t1 < tp Then x = c * (t1 - tp)

If t1 = tp And t2 > tk Then x = h + c * (tk - tp) + r + c * (t2 - tk)

If t1 > tp And t2 > tk Then x = c * (tk - t1) + r + c * (t2 - tk)

If t1 = tk And t2 > tk Then x = r + c * (t2 - tk)

If t1 > tk And t2 > tk Then x = c * (t2 - t1)

If t1 > tp Then If t2 < tk Then x = c * (t2 - t1)

If t2 > tk And t1 = tp Then x = h + c * (tk - tp) + r + c * (t2 - tk)

If t2 = tk And t1 = tp Then x = h + c * (tk - tp) + r

If t2 < tk And t1 = tp Then x = h + c * (t2 - tp)

If t1 < tp And t2 = tk Then x = c * (t1 - tp) + h + c * (tk - tp) + r

If t1 = tp And t2 = tk Then x = h + c * (tk - tp) + r

If t1 > tp And t2 = tk Then x = c * (tk - t1) + r

If t2 > tk And t1 > tp Then x = c * (tk - t1) + r + c * (t2 - tk)

If t2 = tk And t1 > tp Then x = c * (tk - t1) + r

If t2 < tk And t1 > tp Then x = c * (t2 - t1)

If t1 < tp And t2 < tk Then x = c * (t1 - tp) + h + c * (t2 - tp)

If t1 = tp And t2 < tk Then x = c * h + c * (t2 - tp)

If t1 > tp And t2 < tk Then x = c * (t2 - t1)

If t1 = tk And t2 > tk Then x = r + c * (t2 - tk)

If t1 > tk And t2 > tk Then x = c * (t2 - t1)

If t2 = tp And t1 < tp Then x = c * (t1 - tp) + h

If t2 < tp And t1 < tp Then x = c * (t2 - t1)

vps = (x * vt * gt) / 23200000000#

vpb = (x * vt * gt) / 32200000000#

Text7.Text = vps

Text8.Text = vpb

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

procedure Form1.button2_Click(sender: Object; e: EventArgs);

begin

Close;

end;

procedure Form1.button1_Click(sender: Object; e: EventArgs);

var x,vt,t1,t2,tk,tp,gt,c,r,h,vps,vpb:real;

begin

t1:=StrToFloat(TextBox1.Text);

t2:=StrToFloat(TextBox2.Text);

vt:=StrToFloat(TextBox3.Text);

gt:=StrToFloat(TextBox4.Text);

tp:=StrToFloat(TextBox5.Text);

tk:=StrToFloat(TextBox6.Text);

c:=StrToFloat(TextBox10.Text);

h:=StrToFloat(TextBox11.Text);

r:=StrToFloat(TextBox12.Text);

if t1<tp then

begin

if t2>tk then x:=c*(tp-t1)+h+c*(tk-tp)+r+c*(t2-tk);

if t2=tk then x:=c*(tp-t1)+h+c*(tk-tp)+r;

if t2<tk then x:=c*(tp-t1)+h+c*(tk-t2);

if t2=tp then x:=c*(tp-t1)+h;

if t2<tp then x:=c*(t2-t1);

end;

if t2>tk then

begin

if t1=tp then x:=h+c*(tk-tp)+r+c*(t2-tk);

if t1>tp then x:=c*(tk-t1)+r+c*(t2-tk);

if t1=tk then x:=r+c*(t2-tk);

if t1>tk then x:=c*(t2-t1);

end;

if t1>tp then if t2<tk then x:=c*(t2-t1);

if t1=tp then

begin

if t2>tk then x:=h+c*(tk-tp)+r+c*(t2-tk);

if t2=tk then x:=h+c*(tk-tp)+r;

if t2<tk then x:=h+c*(t2-tp);

end;

if t2=tk then

begin

if t1<tp then x:=c*(tp-t1)+h+c*(tk-tp)+r;

if t1=tp then x:=h+c*(tk-tp)+r;

if t1>tp then x:=c*(tk-t1)+r;

end;

if t1>tp then

begin

if t2>tk then x:=c*(tk-t1)+r+c*(t2-tk);

if t2=tk then x:=c*(tk-t1)+r;

if t2<tk then x:=c*(t2-t1);

end;

if t2<tk then

begin

if t1<tp then x:=c*(tp-t1)+h+c*(t2-tp);

if t1=tp then x:=c*h+c*(t2-tp);

if t1>tp then x:=c*(t2-t1);

end;

if t2>tk then

begin

if t1=tk then x:=r+c*(t2-tk);

if t1>tk then x:=c*(t2-t1);

end;

if t1<tp then

begin

if t2=tp then x:=c*(tp-t1)+h;

if t2<tp then x:=c*(t2-t1);

end;

vps:= (x*vt*gt)/23200000000;

vpb:= (x*vt*gt)/32200000000;

TextBox8.Text:= FloatToStr(vps);

TextBox9.Text:= FloatToStr(vpb);

end;

procedure Form1.button3_Click(sender: Object; e: EventArgs);

begin

TextBox1.Text:='';

TextBox2.Text:='';

TextBox3.Text:='';

TextBox4.Text:='';

TextBox5.Text:='';

TextBox6.Text:='';

TextBox8.Text:='';

TextBox9.Text:='';

TextBox10.Text:='';

TextBox11.Text:='';

TextBox12.Text:='';

end;

Public Class Form1

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

End

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

TextBox8.Text = ""

TextBox9.Text = ""

TextBox10.Text = ""

TextBox11.Text = ""

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim t1 As Double = Convert.ToDouble(TextBox1.Text)

Dim t2 As Double = Convert.ToDouble(TextBox2.Text)

Dim vt As Double = Convert.ToDouble(TextBox3.Text)

Dim gt As Double = Convert.ToDouble(TextBox4.Text)

Dim tk As Double = Convert.ToDouble(TextBox5.Text)

Dim tp As Double = Convert.ToDouble(TextBox6.Text)

Dim c As Double = Convert.ToDouble(TextBox7.Text)

Dim r As Double = Convert.ToDouble(TextBox8.Text)

Dim h As Double = Convert.ToDouble(TextBox9.Text)

Dim x As Double

If t2 > tk And t1 < tp Then x = c * (t1 - tp) + h + c * (tk - tp) + r + c * (t2 - tk)

If t2 = tk And t1 < tp Then x = c * (t1 - tp) + h + c * (tk - tp) + r

If t2 < tk And t1 < tp Then x = c * (t1 - tp) + h + c * (tk - t2)

If t2 = tp And t1 < tp Then x = c * (t1 - tp) + h

If t2 < tp And t1 < tp Then x = c * (t1 - tp)

If t1 = tp And t2 > tk Then x = h + c * (tk - tp) + r + c * (t2 - tk)

If t1 > tp And t2 > tk Then x = c * (tk - t1) + r + c * (t2 - tk)

If t1 = tk And t2 > tk Then x = r + c * (t2 - tk)

If t1 > tk And t2 > tk Then x = c * (t2 - t1)

If t1 > tp Then If t2 < tk Then x = c * (t2 - t1)

If t2 > tk And t1 = tp Then x = h + c * (tk - tp) + r + c * (t2 - tk)

If t2 = tk And t1 = tp Then x = h + c * (tk - tp) + r

If t2 < tk And t1 = tp Then x = h + c * (t2 - tp)

If t1 < tp And t2 = tk Then x = c * (t1 - tp) + h + c * (tk - tp) + r

If t1 = tp And t2 = tk Then x = h + c * (tk - tp) + r

If t1 > tp And t2 = tk Then x = c * (tk - t1) + r

If t2 > tk And t1 > tp Then x = c * (tk - t1) + r + c * (t2 - tk)

If t2 = tk And t1 > tp Then x = c * (tk - t1) + r

If t2 < tk And t1 > tp Then x = c * (t2 - t1)

If t1 < tp And t2 < tk Then x = c * (t1 - tp) + h + c * (t2 - tp)

If t1 = tp And t2 < tk Then x = c * h + c * (t2 - tp)

If t1 > tp And t2 < tk Then x = c * (t2 - t1)

If t1 = tk And t2 > tk Then x = r + c * (t2 - tk)

If t1 > tk And t2 > tk Then x = c * (t2 - t1)

If t2 = tp And t1 < tp Then x = c * (t1 - tp) + h

If t2 < tp And t1 < tp Then x = c * (t2 - t1)

Dim vps As Double = (x * vt * gt) / 23200000000

Dim vpb As Double = (x * vt * gt) / 32200000000

TextBox10.Text = Convert.ToString(vps)

TextBox11.Text = Convert.ToString(vpb)

End Sub

End Class

from tkinter import *

def click ():

t1 = float (entry1.get())

t2 = float (entry2.get())

vt = float (entry3.get())

gt = float (entry4.get())

tk = float (entry5.get())

tp = float (entry6.get())

c = float (entry7.get())

r = float (entry8.get())

h = float (entry9.get())

if t2 > tk and t1<tp : x = c * (t1 - tp) + h + c * (tk - tp) + r + c * (t2 - tk)

if t2 == tk and t1<tp : x = c * (t1 - tp) + h + c * (tk - tp) + r

if t2 < tk and t1<tp : x = c * (t1 - tp) + h + c * (tk - t2)

if t2 == tp and t1<tp : x = c * (t1 - tp) + h

if t2 < tp and t1<tp : x = c * (t1 - tp)

if t1 == tp and t2 > tk : x = h + c * (tk - tp) + r + c * (t2 - tk)

if t1 > tp and t2 > tk : x = c * (tk - t1) + r + c * (t2 - tk)

if t1 == tk and t2 > tk : x = r + c * (t2 - tk)

if t1 > tk and t2 > tk : x = c * (t2 - t1)

if t1 > tp and t2 < tk : x = c * (t2 - t1)

if t2 > tk and t1 == tp : x = h + c * (tk - tp) + r + c * (t2 - tk)

if t2 == tk and t1 == tp : x = h + c * (tk - tp) + r

if t2 < tk and t1 == tp : x = h + c * (t2 - tp)

if t1 < tp and t2 == tk : x = c * (t1 - tp) + h + c * (tk - tp) + r

if t1 == tp and t2 == tk : x = h + c * (tk - tp) + r

if t1 > tp and t2 == tk : x = c * (tk - t1) + r

if t2 > tk and t1 > tp : x = c * (tk - t1) + r + c * (t2 - tk)

if t2 == tk and t1 > tp : x = c * (tk - t1) + r

if t2 < tk and t1 > tp : x = c * (t2 - t1)

if t1 < tp and t2 < tk : x = c * (t1 - tp) + h + c * (t2 - tp)

if t1 == tp and t2 < tk : x = c * h + c * (t2 - tp)

if t1 > tp and t2 < tk : x = c * (t2 - t1)

if t1 == tk and t2 > tk : x = r + c * (t2 - tk)

if t1 > tk and t2 > tk : x = c * (t2 - t1)

if t2 == tp and t1 < tp : x = c * (t1 - tp) + h

if t2 < tp and t1 < tp : x = c * (t2 - t1)

vps = (x*vt*gt)/23200000000

vpb = (x*vt*gt)/32200000000

entry10.insert(0, vps)

entry11.insert(0, vpb)

def click1 ():

entry1.delete(0, END)

entry2.delete(0, END)

entry3.delete(0, END)

entry4.delete(0, END)

entry5.delete(0, END)

entry6.delete(0, END)

entry7.delete(0, END)

entry8.delete(0, END)

entry9.delete(0, END)

entry10.delete(0, END)

entry11.delete(0, END)

root=Tk()

root.title('Речовини')

root.geometry('300x620')

labe1 = Label (text = 'Скiльки лiтрiв палива треба, \n щоб нагрiти речовину в iнтервалi певних температур, \n (Задача не дiйсна для води) ')

labe1.pack(pady = 10)

labe2 = Label (text = 'Початкова Температура (в Цельсiях)')

labe2.pack(pady = 1)

entry1 = Entry ()

entry1.pack (pady = 1)

labe3 = Label (text = 'Кiнцева Температура (в Цельсiях)')

labe3.pack(pady = 1)

entry2 = Entry ()

entry2.pack (pady = 1)

labe4 = Label (text = 'Об`єм речовини')

labe4.pack(pady = 1)

entry3 = Entry ()

entry3.pack (pady = 1)

labe5 = Label (text = 'Густина речовини (в СI)')

labe5.pack(pady = 1)

entry4 = Entry ()

entry4.pack (pady = 1)

labe6 = Label (text = 'Температура кипiння (в СI)')

labe6.pack(pady = 1)

entry5 = Entry ()

entry5.pack (pady = 1)

labe7 = Label (text = 'Температура плавлення (в СI)')

labe7.pack(pady = 1)

entry6 = Entry ()

entry6.pack (pady = 1)

labe8 = Label (text = 'Питома теплоємнiсь речовини (в СI)')

labe8.pack(pady = 1)

entry7 = Entry ()

entry7.pack (pady = 1)

labe9 = Label (text = 'Питома теплота пароутворення речовини (в СI)')

labe9.pack(pady = 1)

entry8 = Entry ()

entry8.pack (pady = 1)

labe10 = Label (text = 'Питома теплота плавлення речовини (в СI)')

labe10.pack(pady = 1)

entry9 = Entry ()

entry9.pack (pady = 1)

button = Button (text='Старт', command=click)

button.pack (pady = 1)

button = Button (text='Очистка', command=click1)

button.pack (pady = 1)

labe11 = Label (text = 'Об`єм спирту (л)')

labe11.pack(pady = 1)

entry10 = Entry ()

entry10.pack (pady = 1)

labe12 = Label (text = 'Об`єм бензину ')

labe12.pack(pady = 1)

entry11 = Entry ()

entry11.pack (pady = 1)