program mf;

Uses CRT;

label y;

var x,vr,m,t1,t2,vps,vpb:real;

begin

TextColor (02);

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

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

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

TextColor (03);

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

  readln(t1);

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

  readln(t2);

   write ('Маса ртутi (кг) = ');

  readln(m);

  if t1<(-39) then

    begin

   if t2>357 then x:=140*((-39)-t1)+12000+140*(357-(-39))+282000+140*(t2-357);

   if t2=357 then x:=140*((-39)-t1)+12000+140*(357-(-39))+282000;

   if t2<357 then x:=140*((-39)-t1)+12000+140*(357-t2);

   if t2=(-39) then x:=140*((-39)-t1)+12000;

   if t2<(-39) then x:=140*(t2-t1);

    end;

  if t2>357 then

    begin

   if t1=(-39) then x:=12000+140*(357-(-39))+282000+140*(t2-357);

   if t1>(-39) then x:=140*(357-t1)+282000+140*(t2-357);

   if t1=357 then x:=282000+140*(t2-357);

   if t1>357 then x:=140*(t2-t1);

    end;

  if t1>(-39) then if t2<357 then x:=140*(t2-t1);

  if t1=(-39) then

    begin

   if t2>357 then x:=12000+140*(357-(-39))+282000+140*(t2-357);

   if t2=357 then x:=12000+140*(357-(-39))+282000;

   if t2<357 then x:=12000+140*(t2-(-39));

    end;

  if t2=357 then

    begin

   if t1<(-39) then x:=140*((-39)-t1)+12000+140*(100-(-39))+282000;

   if t1=(-39) then x:=12000+140*(357-(-39))+282000;

   if t1>(-39) then x:=140*(357-t1)+282000;

    end;

  if t1>(-39) then

    begin

   if t2>357 then x:=140*(357-t1)+282000+140*(t2-357);

   if t2=357 then x:=140*(357-t1)+282000;

   if t2<357 then x:=140*(t2-t1);

    end;

  if t2<357 then

    begin

   if t1<(-39) then x:=140*((-39)-t1)+12000+140*(t2-(-39));

   if t1=(-39) then x:=12000+140*(t2-(-39));

   if t1>(-39) then x:=140*(t2-t1);

    end;

  if t2>357 then

    begin

   if t1=357 then x:=282000+140*(t2-357);

   if t1>357 then x:=140*(t2-t1);

    end;

  if t1<(-39) then

    begin

   if t2=(-39) then x:=140*((-39)-t1)+12000;

   if t2<(-39) then x:=140*(t2-t1);

    end;

  vps:= (x*m)/23200000;

  vpb:= (x*m)/32200000;

TextColor (02);

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

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

readln;

clrscr;

goto y;

end.

#include <stdio.h>

int main(void)

{

     float t1,t2,m,vpb,vps,x;

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

    printf ( "Џ®з вЄ®ў  ⥬ЇҐа вга  (ў CI) = ");

    scanf("%f", &t1);

    printf ( "Љi­жҐў  ⥬ЇҐа вга  (ў CI) = ");

    scanf("%f", &t2);

    printf ( "Њ б  авгвi (ЄЈ) = ");

    scanf("%f", &m);

  if (t2 > 357 & t1 < -39)

x = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);

if (t2 == 357 & t1 < -39)

x = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000;

if (t2 < 357 & t1 < -39)

x = 140 * (-39 - t1) + 12000 + 140 * (357 - t2);

if (t2 == -39 & t1 < -39)

x = 140 * (-39 - t1) + 12000;

if (t2 < -39 & t1 < -39)

x = 140 * (t2 - t1);

if (t1 == -39 & t2 > 357)

x = 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);

if (t1 > -39 & t2 > 357)

x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357);

if (t1 == 357 & t2 > 357)

x = 282000 + 140 * (t2 - 357);

if (t1 > 357 & t2 > 357)

x = 140 * (t2 - t1);

if (t1 > -39)

if (t2 < 357)

x = 140 * (t2 - t1);

if (t2 > 357 & t1 == -39)

x = 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);

if (t2 == 357 & t1 == -39)

x = 12000 + 140 * (357 - (-39)) + 282000;

if (t2 < 357 & t1 == -39)

x = 12000 + 140 * (t2 - (-39));

if (t1 < -39 & t2 == 357)

x = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000;

if (t1 == -39 & t2 == 357)

x = 12000 + 140 * (357 - -39) + 282000;

if (t1 > -39 & t2 == 357)

x = 140 * (357 - t1) + 282000;

if (t2 > 357 & t1 > -39)

x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357);

if (t2 == 357 & t1 > -39)

x = 140 * (357 - t1) + 282000;

if (t2 < 357 & t1 > -39)

x = 140 * (t2 - t1);

if (t1 < -39 & t2 < 357)

x = 140 * (-39 - t1) + 12000 + 140 * (t2 - (-39));

if (t1 == -39 & t2 < 357)

x = 12000 + 140 * (t2 - (-39));

if (t1 > -39 & t2 < 357)

x = 140 * (t2 - t1);

if (t1 == 357 & t2 > 357)

x = 282000 + 140 * (t2 - 357);

if (t1 > 357 & t2 > 357)

x = 140 * (t2 - t1);

if (t2 == -39 & t1 < -39)

x = 140 * (-39 - t1) + 12000;

if (t2 < -39 & t1 < -39)

x = 140 * (t2 - t1);

vps = (x * m) / 23200000;

vpb = (x * m) / 32200000;

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

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

scanf("\n");

return 0;

}

l: CLS

PRINT "              “¬®ў "

      '              УМОВА

PRINT "‘Єi«мЄЁ «iваiў Ї «Ёў  вॡ , й®Ў ­ ЈаiвЁ"

PRINT "авгвм ў i­вҐаў «i ЇҐў­Ёе ⥬ЇҐа вга."

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

      'ртуть в iнтервалi певних температур.

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

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

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

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

INPUT "Њ б  авгвi (ЄЈ) = ", m

      'Маса ртуті (кг) ='

   IF t2 > 357 AND t1 < (-39) THEN x = 140 * ((-39) - t1) + 349440 + 140 * (t2 - 357)

   IF t2 = 357 AND t1 < (-39) THEN x = 140 * ((-39) - t1) + 349440

   IF t2 < 357 AND t1 < (-39) THEN x = 140 * ((-39) - t1) + 12000 + 140 * (357 - t2)

   IF t2 = (-39) AND t1 < (-39) THEN x = 140 * ((-39) - t1) + 12000

   IF t2 < (-39) AND t1 < (-39) THEN x = 140 * (t2 - t1)

   IF t1 = (-39) AND t2 > 357 THEN x = 349440 + 140 * (t2 - 357)

   IF t1 > (-39) AND t2 > 357 THEN x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

   IF t1 = 357 AND t2 > 357 THEN x = 282000 + 140 * (t2 - 357)

   IF t1 > 357 AND t2 > 357 THEN x = 140 * (t2 - t1)

   IF t1 > (-39) THEN IF t2 < 357 THEN x = 140 * (t2 - t1)

   IF t2 > 357 AND t1 = (-39) THEN x = 349440 + 140 * (t2 - 357)

   IF t2 = 357 AND t1 = (-39) THEN x = 349440

   IF t2 < 357 AND t1 = (-39) THEN x = 12000 + 140 * (t2 - (-39))

   IF t1 < (-39) AND t2 = 357 THEN x = 140 * ((-39) - t1) + 349440

   IF t1 = (-39) AND t2 = 357 THEN x = 349440

   IF t1 > (-39) AND t2 = 357 THEN x = 140 * (357 - t1) + 282000

   IF t2 > 357 AND t1 > (-39) THEN x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

   IF t2 = 357 AND t1 > (-39) THEN x = 140 * (357 - t1) + 282000

   IF t2 < 357 AND t1 > (-39) THEN x = 140 * (t2 - t1)

   IF t1 < (-39) AND t2 < 357 THEN x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

   IF t1 = (-39) AND t2 < 357 THEN x = 282000 + 140 * (t2 - 357)

   IF t1 > (-39) AND t2 < 357 THEN x = 140 * (t2 - t1)

   IF t1 = 357 AND t2 > 357 THEN x = 282000 + 140 * (t2 - 357)

   IF t1 > 357 AND t2 > 357 THEN x = 140 * (t2 - t1)

   IF t2 = (-39) AND t1 < (-39) THEN x = 140 * ((-39) - t1) + 12000

   IF t2 < (-39) AND t1 < (-39) THEN x = 140 * (t2 - t1)

  vps = (x * m) / 23200000

  vpb = (x * m) / 32200000

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

      'Обєм спирту (л)

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

      'Обєм бензину (л)

INPUT z

GOTO l

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

<body><div align="center">

<b>Скiльки лiтрiв палива треба, щоб нагрiти ртуть в iнтервалi певних температур.</b><br><br>

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

Початкова температура (в Цельсiях) = <input name="mfr_t1" type="text" value=" " size="4">

Кінцева температура (в Цельсiях) = <input name="mfr_t2" type="text" value=" " size="4">

Маса ртуті (кг) = <input name="mfr_m" type="text" value=" " size="4">

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

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

</form>

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

</div>

<script language="javascript">

function mfr() {

  var t1 = document.mfr.mfr_t1.value;

  var t2 = document.mfr.mfr_t2.value;

  var m = document.mfr.mfr_m.value;

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

  var x ;

                if (t2 > 357 & t1 < -39)

x = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);

if (t2 == 357 & t1 < -39)

x = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000;

if (t2 < 357 & t1 < -39)

x = 140 * (-39 - t1) + 12000 + 140 * (357 - t2);

if (t2 == -39 & t1 < -39)

x = 140 * (-39 - t1) + 12000;

if (t2 < -39 & t1 < -39)

x = 140 * (t2 - t1);

if (t1 == -39 & t2 > 357)

x = 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);

if (t1 > -39 & t2 > 357)

x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357);

if (t1 == 357 & t2 > 357)

x = 282000 + 140 * (t2 - 357);

if (t1 > 357 & t2 > 357)

x = 140 * (t2 - t1);

if (t1 > -39)

if (t2 < 357)

x = 140 * (t2 - t1);

if (t2 > 357 & t1 == -39)

x = 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);

if (t2 == 357 & t1 == -39)

x = 12000 + 140 * (357 - (-39)) + 282000;

if (t2 < 357 & t1 == -39)

x = 12000 + 140 * (t2 - (-39));

if (t1 < -39 & t2 == 357)

x = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000;

if (t1 == -39 & t2 == 357)

x = 12000 + 140 * (357 - -39) + 282000;

if (t1 > -39 & t2 == 357)

x = 140 * (357 - t1) + 282000;

if (t2 > 357 & t1 > -39)

x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357);

if (t2 == 357 & t1 > -39)

x = 140 * (357 - t1) + 282000;

if (t2 < 357 & t1 > -39)

x = 140 * (t2 - t1);

if (t1 < -39 & t2 < 357)

x = 140 * (-39 - t1) + 12000 + 140 * (t2 - (-39));

if (t1 == -39 & t2 < 357)

x = 12000 + 140 * (t2 - (-39));

if (t1 > -39 & t2 < 357)

x = 140 * (t2 - t1);

if (t1 == 357 & t2 > 357)

x = 282000 + 140 * (t2 - 357);

if (t1 > 357 & t2 > 357)

x = 140 * (t2 - t1);

if (t2 == -39 & t1 < -39)

x = 140 * (-39 - t1) + 12000;

if (t2 < -39 & t1 < -39)

x = 140 * (t2 - t1);

vps = (x * m) / 23200000;

vpb = (x * m) / 32200000;

                  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.Write("Початкова Температура (в CI) = ")

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

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

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

        Console.Write("Маса ртутi (кг) = ")

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

        Dim x As Double

   IF t2 > 357 AND t1 < (-39) THEN x = 140 * ((-39) - t1) + 349440 + 140 * (t2 - 357)

   IF t2 = 357 AND t1 < (-39) THEN x = 140 * ((-39) - t1) + 349440

   IF t2 < 357 AND t1 < (-39) THEN x = 140 * ((-39) - t1) + 12000 + 140 * (357 - t2)

   IF t2 = (-39) AND t1 < (-39) THEN x = 140 * ((-39) - t1) + 12000

   IF t2 < (-39) AND t1 < (-39) THEN x = 140 * (t2 - t1)

   IF t1 = (-39) AND t2 > 357 THEN x = 349440 + 140 * (t2 - 357)

   IF t1 > (-39) AND t2 > 357 THEN x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

   IF t1 = 357 AND t2 > 357 THEN x = 282000 + 140 * (t2 - 357)

   IF t1 > 357 AND t2 > 357 THEN x = 140 * (t2 - t1)

   IF t1 > (-39) THEN IF t2 < 357 THEN x = 140 * (t2 - t1)

   IF t2 > 357 AND t1 = (-39) THEN x = 349440 + 140 * (t2 - 357)

   IF t2 = 357 AND t1 = (-39) THEN x = 349440

   IF t2 < 357 AND t1 = (-39) THEN x = 12000 + 140 * (t2 - (-39))

   IF t1 < (-39) AND t2 = 357 THEN x = 140 * ((-39) - t1) + 349440

   IF t1 = (-39) AND t2 = 357 THEN x = 349440

   IF t1 > (-39) AND t2 = 357 THEN x = 140 * (357 - t1) + 282000

   IF t2 > 357 AND t1 > (-39) THEN x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

   IF t2 = 357 AND t1 > (-39) THEN x = 140 * (357 - t1) + 282000

   IF t2 < 357 AND t1 > (-39) THEN x = 140 * (t2 - t1)

   IF t1 < (-39) AND t2 < 357 THEN x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

   IF t1 = (-39) AND t2 < 357 THEN x = 282000 + 140 * (t2 - 357)

   IF t1 > (-39) AND t2 < 357 THEN x = 140 * (t2 - t1)

   IF t1 = 357 AND t2 > 357 THEN x = 282000 + 140 * (t2 - 357)

   IF t1 > 357 AND t2 > 357 THEN x = 140 * (t2 - t1)

   IF t2 = (-39) AND t1 < (-39) THEN x = 140 * ((-39) - t1) + 12000

   IF t2 < (-39) AND t1 < (-39) THEN x = 140 * (t2 - t1)

        Dim vps As Double = (x * m) / 23200000

        Dim vpb As Double = (x * m) / 32200000

        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,m,vpb,vps,x;

setlocale(LC_ALL, "");

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

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

    std::cin >> t1;

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

    std::cin >> t2;

std::cout << "Маса ртутi (кг) = ";

    std::cin >> m;

if (t2 > 357 & t1 < -39)

x = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);

if (t2 == 357 & t1 < -39)

x = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000;

if (t2 < 357 & t1 < -39)

x = 140 * (-39 - t1) + 12000 + 140 * (357 - t2);

if (t2 == -39 & t1 < -39)

x = 140 * (-39 - t1) + 12000;

if (t2 < -39 & t1 < -39)

x = 140 * (t2 - t1);

if (t1 == -39 & t2 > 357)

x = 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);

if (t1 > -39 & t2 > 357)

x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357);

if (t1 == 357 & t2 > 357)

x = 282000 + 140 * (t2 - 357);

if (t1 > 357 & t2 > 357)

x = 140 * (t2 - t1);

if (t1 > -39)

if (t2 < 357)

x = 140 * (t2 - t1);

if (t2 > 357 & t1 == -39)

x = 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);

if (t2 == 357 & t1 == -39)

x = 12000 + 140 * (357 - (-39)) + 282000;

if (t2 < 357 & t1 == -39)

x = 12000 + 140 * (t2 - (-39));

if (t1 < -39 & t2 == 357)

x = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000;

if (t1 == -39 & t2 == 357)

x = 12000 + 140 * (357 - -39) + 282000;

if (t1 > -39 & t2 == 357)

x = 140 * (357 - t1) + 282000;

if (t2 > 357 & t1 > -39)

x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357);

if (t2 == 357 & t1 > -39)

x = 140 * (357 - t1) + 282000;

if (t2 < 357 & t1 > -39)

x = 140 * (t2 - t1);

if (t1 < -39 & t2 < 357)

x = 140 * (-39 - t1) + 12000 + 140 * (t2 - (-39));

if (t1 == -39 & t2 < 357)

x = 12000 + 140 * (t2 - (-39));

if (t1 > -39 & t2 < 357)

x = 140 * (t2 - t1);

if (t1 == 357 & t2 > 357)

x = 282000 + 140 * (t2 - 357);

if (t1 > 357 & t2 > 357)

x = 140 * (t2 - t1);

if (t2 == -39 & t1 < -39)

x = 140 * (-39 - t1) + 12000;

if (t2 < -39 & t1 < -39)

x = 140 * (t2 - t1);

vps = (x * m) / 23200000;

vpb = (x * m) / 32200000;

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

getch();

return 0;

}

print ('             УМОВА')

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

print ('ртуть в iнтервалi певних температур.')

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

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

m =float(input('Маса ртутi (кг) ='))

print ('')

if t2 > 357 and t1 < (-39) : x = 140 * ((-39) - t1) + 349440 + 140 * (t2 - 357)

if t2 == 357 and t1 < (-39) : x = 140 * ((-39) - t1) + 349440

if t2 < 357 and t1 < (-39) : x = 140 * ((-39) - t1) + 12000 + 140 * (357 - t2)

if t2 == (-39) and t1 < (-39) : x = 140 * ((-39) - t1) + 12000

if t2 < (-39) and t1 < (-39) : x = 140 * (t2 - t1)

if t1 == (-39) and t2 > 357 : x = 349440 + 140 * (t2 - 357)

if t1 > (-39) and t2 > 357 : x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

if t1 == 357 and t2 > 357 : x = 282000 + 140 * (t2 - 357)

if t1 > 357 and t2 > 357 : x = 140 * (t2 - t1)

if t1 > (-39) and t2 < 357 : x = 140 * (t2 - t1)

if t2 > 357 and t1 == (-39) : x = 349440 + 140 * (t2 - 357)

if t2 == 357 and t1 == (-39) : x = 349440

if t2 < 357 and t1 == (-39) : x = 12000 + 140 * (t2 - (-39))

if t1 < (-39) and t2 == 357 : x = 140 * ((-39) - t1) + 349440

if t1 == (-39) and t2 == 357 : x = 349440

if t1 > (-39) and t2 == 357 : x = 140 * (357 - t1) + 282000

if t2 > 357 and t1 > (-39) : x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

if t2 == 357 and t1 > (-39) : x = 140 * (357 - t1) + 282000

if t2 < 357 and t1 > (-39) : x = 140 * (t2 - t1)

if t1 < (-39) and t2 < 357 : x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

if t1 == (-39) and t2 < 357 : x = 282000 + 140 * (t2 - 357)

if t1 > (-39) and t2 < 357 : x = 140 * (t2 - t1)

if t1 == 357 and t2 > 357 : x = 282000 + 140 * (t2 - 357)

if t1 > 357 and t2 > 357 : x = 140 * (t2 - t1)

if t2 == (-39) and t1 < (-39) : x = 140 * ((-39) - t1) + 12000

if t2 < (-39) and t1 < (-39) : x = 140 * (t2 - t1)

vps = (x * m) / 23200000

vpb = (x * m) / 32200000

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

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

input()

VERSION 5.00

Begin VB.Form Form1 

   BorderStyle     =   1  'Fixed Single

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

   ClientHeight    =   5055

   ClientLeft      =   45

   ClientTop       =   390

   ClientWidth     =   6495

   LinkTopic       =   "Form1"

   MaxButton       =   0   'False

   MinButton       =   0   'False

   ScaleHeight     =   5055

   ScaleWidth      =   6495

   StartUpPosition =   2  'CenterScreen

   Begin VB.CommandButton Command3 

      Caption         =   "СТАРТ"

      Height          =   495

      Left            =   3480

      TabIndex        =   13

      Top             =   3120

      Width           =   2415

   End

   Begin VB.TextBox Text5 

      Height          =   285

      Left            =   3480

      TabIndex        =   12

      Top             =   2400

      Width           =   2415

   End

   Begin VB.TextBox Text4 

      Height          =   285

      Left            =   3480

      TabIndex        =   10

      Top             =   1560

      Width           =   2415

   End

   Begin VB.TextBox Text3 

      Height          =   285

      Left            =   720

      TabIndex        =   8

      Top             =   3240

      Width           =   2415

   End

   Begin VB.TextBox Text2 

      Height          =   285

      Left            =   720

      TabIndex        =   6

      Top             =   2400

      Width           =   2415

   End

   Begin VB.TextBox Text1 

      Height          =   285

      Left            =   720

      TabIndex        =   4

      Top             =   1560

      Width           =   2415

   End

   Begin VB.CommandButton Command2 

      Caption         =   "ВИХІД"

      Height          =   375

      Left            =   480

      TabIndex        =   1

      Top             =   4440

      Width           =   5415

   End

   Begin VB.CommandButton Command1 

      Caption         =   "Очистка"

      Height          =   375

      Left            =   480

      TabIndex        =   0

      Top             =   3840

      Width           =   5415

   End

   Begin VB.Label Label7 

      Caption         =   "УМОВА"

      Height          =   255

      Left            =   2880

      TabIndex        =   14

      Top             =   240

      Width           =   855

   End

   Begin VB.Label Label6 

      Caption         =   "Об'єм бензинy (л) ="

      Height          =   255

      Left            =   3480

      TabIndex        =   11

      Top             =   2040

      Width           =   2535

   End

   Begin VB.Label Label5 

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

      Height          =   255

      Left            =   3480

      TabIndex        =   9

      Top             =   1200

      Width           =   2535

   End

   Begin VB.Label Label4 

      Caption         =   "Маса ртуті (кг) ="

      Height          =   255

      Left            =   720

      TabIndex        =   7

      Top             =   2880

      Width           =   2535

   End

   Begin VB.Label Label3 

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

      Height          =   255

      Left            =   720

      TabIndex        =   5

      Top             =   2040

      Width           =   2535

   End

   Begin VB.Label Label2 

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

      Height          =   255

      Left            =   720

      TabIndex        =   3

      Top             =   1200

      Width           =   2535

   End

   Begin VB.Label Label1 

      Caption         =   "Скiльки лiтрiв палива треба, щоб нагрiти ртуть в iнтервалi певних температур."

      Height          =   255

      Left            =   120

      TabIndex        =   2

      Top             =   480

      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()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

        t1 = Text1.Text

        t2 = Text2.Text

         m = Text3.Text

   If t2 > 357 And t1 < (-39) Then x = 140 * ((-39) - t1) + 349440 + 140 * (t2 - 357)

   If t2 = 357 And t1 < (-39) Then x = 140 * ((-39) - t1) + 349440

   If t2 < 357 And t1 < (-39) Then x = 140 * ((-39) - t1) + 12000 + 140 * (357 - t2)

   If t2 = (-39) And t1 < (-39) Then x = 140 * ((-39) - t1) + 12000

   If t2 < (-39) And t1 < (-39) Then x = 140 * (t2 - t1)

   If t1 = (-39) And t2 > 357 Then x = 349440 + 140 * (t2 - 357)

   If t1 > (-39) And t2 > 357 Then x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

   If t1 = 357 And t2 > 357 Then x = 282000 + 140 * (t2 - 357)

   If t1 > 357 And t2 > 357 Then x = 140 * (t2 - t1)

   If t1 > (-39) Then If t2 < 357 Then x = 140 * (t2 - t1)

   If t2 > 357 And t1 = (-39) Then x = 349440 + 140 * (t2 - 357)

   If t2 = 357 And t1 = (-39) Then x = 349440

   If t2 < 357 And t1 = (-39) Then x = 12000 + 140 * (t2 - (-39))

   If t1 < (-39) And t2 = 357 Then x = 140 * ((-39) - t1) + 349440

   If t1 = (-39) And t2 = 357 Then x = 349440

   If t1 > (-39) And t2 = 357 Then x = 140 * (357 - t1) + 282000

   If t2 > 357 And t1 > (-39) Then x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

   If t2 = 357 And t1 > (-39) Then x = 140 * (357 - t1) + 282000

   If t2 < 357 And t1 > (-39) Then x = 140 * (t2 - t1)

   If t1 < (-39) And t2 < 357 Then x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

   If t1 = (-39) And t2 < 357 Then x = 282000 + 140 * (t2 - 357)

   If t1 > (-39) And t2 < 357 Then x = 140 * (t2 - t1)

   If t1 = 357 And t2 > 357 Then x = 282000 + 140 * (t2 - 357)

   If t1 > 357 And t2 > 357 Then x = 140 * (t2 - t1)

   If t2 = (-39) And t1 < (-39) Then x = 140 * ((-39) - t1) + 12000

   If t2 < (-39) And t1 < (-39) Then x = 140 * (t2 - t1)

         vps = (m * x) / 23200000

         vpb = (m * x) / 32200000

        Text4.Text = vps

        Text5.Text = vpb

End Sub

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

begin

  Close;

end;

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

var x,t1,t2,m,vps,vpb:real;

begin

t1:=StrToFloat(TextBox1.Text);

t2:=StrToFloat(TextBox2.Text);

m:=StrToFloat(TextBox3.Text);

 if t1<(-39) then

    begin

   if t2>357 then x:=140*((-39)-t1)+12000+140*(357-(-39))+282000+140*(t2-357);

   if t2=357 then x:=140*((-39)-t1)+12000+140*(357-(-39))+282000;

   if t2<357 then x:=140*((-39)-t1)+12000+140*(357-t2);

   if t2=(-39) then x:=140*((-39)-t1)+12000;

   if t2<(-39) then x:=140*(t2-t1);

    end;

  if t2>357 then

    begin

   if t1=(-39) then x:=12000+140*(357-(-39))+282000+140*(t2-357);

   if t1>(-39) then x:=140*(357-t1)+282000+140*(t2-357);

   if t1=357 then x:=282000+140*(t2-357);

   if t1>357 then x:=140*(t2-t1);

    end;

  if t1>(-39) then if t2<357 then x:=140*(t2-t1);

  if t1=(-39) then

    begin

   if t2>357 then x:=12000+140*(357-(-39))+282000+140*(t2-357);

   if t2=357 then x:=12000+140*(357-(-39))+282000;

   if t2<357 then x:=12000+140*(t2-(-39));

    end;

  if t2=357 then

    begin

   if t1<(-39) then x:=140*((-39)-t1)+12000+140*(100-(-39))+282000;

   if t1=(-39) then x:=12000+140*(357-(-39))+282000;

   if t1>(-39) then x:=140*(357-t1)+282000;

    end;

  if t1>(-39) then

    begin

   if t2>357 then x:=140*(357-t1)+282000+140*(t2-357);

   if t2=357 then x:=140*(357-t1)+282000;

   if t2<357 then x:=140*(t2-t1);

    end;

  if t2<357 then

    begin

   if t1<(-39) then x:=140*((-39)-t1)+12000+140*(t2-(-39));

   if t1=(-39) then x:=12000+140*(t2-(-39));

   if t1>(-39) then x:=140*(t2-t1);

    end;

  if t2>357 then

    begin

   if t1=357 then x:=282000+140*(t2-357);

   if t1>357 then x:=140*(t2-t1);

    end;

  if t1<(-39) then

    begin

   if t2=(-39) then x:=140*((-39)-t1)+12000;

   if t2<(-39) then x:=140*(t2-t1);

    end; 

  vps:= (x*m)/23200000;

  vpb:= (x*m)/32200000;

TextBox5.Text:= FloatToStr(vps);

TextBox7.Text:= FloatToStr(vpb);

end;

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

begin

  TextBox1.Text:='';

  TextBox2.Text:='';

  TextBox3.Text:='';

  TextBox5.Text:='';

  TextBox7.Text:='';

end;

Public Class Form1

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

        End

    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 m As Double = Convert.ToDouble(TextBox3.Text)

        Dim x As Double

        If t2 > 357 And t1 < (-39) Then x = 140 * ((-39) - t1) + 349440 + 140 * (t2 - 357)

        If t2 = 357 And t1 < (-39) Then x = 140 * ((-39) - t1) + 349440

        If t2 < 357 And t1 < (-39) Then x = 140 * ((-39) - t1) + 12000 + 140 * (357 - t2)

        If t2 = (-39) And t1 < (-39) Then x = 140 * ((-39) - t1) + 12000

        If t2 < (-39) And t1 < (-39) Then x = 140 * (t2 - t1)

        If t1 = (-39) And t2 > 357 Then x = 349440 + 140 * (t2 - 357)

        If t1 > (-39) And t2 > 357 Then x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

        If t1 = 357 And t2 > 357 Then x = 282000 + 140 * (t2 - 357)

        If t1 > 357 And t2 > 357 Then x = 140 * (t2 - t1)

        If t1 > (-39) Then If t2 < 357 Then x = 140 * (t2 - t1)

        If t2 > 357 And t1 = (-39) Then x = 349440 + 140 * (t2 - 357)

        If t2 = 357 And t1 = (-39) Then x = 349440

        If t2 < 357 And t1 = (-39) Then x = 12000 + 140 * (t2 - (-39))

        If t1 < (-39) And t2 = 357 Then x = 140 * ((-39) - t1) + 349440

        If t1 = (-39) And t2 = 357 Then x = 349440

        If t1 > (-39) And t2 = 357 Then x = 140 * (357 - t1) + 282000

        If t2 > 357 And t1 > (-39) Then x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

        If t2 = 357 And t1 > (-39) Then x = 140 * (357 - t1) + 282000

        If t2 < 357 And t1 > (-39) Then x = 140 * (t2 - t1)

        If t1 < (-39) And t2 < 357 Then x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

        If t1 = (-39) And t2 < 357 Then x = 282000 + 140 * (t2 - 357)

        If t1 > (-39) And t2 < 357 Then x = 140 * (t2 - t1)

        If t1 = 357 And t2 > 357 Then x = 282000 + 140 * (t2 - 357)

        If t1 > 357 And t2 > 357 Then x = 140 * (t2 - t1)

        If t2 = (-39) And t1 < (-39) Then x = 140 * ((-39) - t1) + 12000

        If t2 < (-39) And t1 < (-39) Then x = 140 * (t2 - t1)

        Dim vps As Double = (m * x) / 23200000

        Dim vpb As Double = (m * x) / 32200000

        TextBox5.Text = Convert.ToString(vps)

        TextBox7.Text = Convert.ToString(vpb)

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox7.Text = ""

        TextBox5.Text = ""

    End Sub

End Class

from tkinter import *

def click ():

    t1 = float (entry1.get())

    t2 = float (entry2.get())

    m = float (entry3.get())

    if t2 > 357 and t1 < (-39) : x = 140 * ((-39) - t1) + 349440 + 140 * (t2 - 357)

    if t2 == 357 and t1 < (-39) : x = 140 * ((-39) - t1) + 349440

    if t2 < 357 and t1 < (-39) : x = 140 * ((-39) - t1) + 12000 + 140 * (357 - t2)

    if t2 == (-39) and t1 < (-39) : x = 140 * ((-39) - t1) + 12000

    if t2 < (-39) and t1 < (-39) : x = 140 * (t2 - t1)

    if t1 == (-39) and t2 > 357 : x = 349440 + 140 * (t2 - 357)

    if t1 > (-39) and t2 > 357 : x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

    if t1 == 357 and t2 > 357 : x = 282000 + 140 * (t2 - 357)

    if t1 > 357 and t2 > 357 : x = 140 * (t2 - t1)

    if t1 > (-39) and t2 < 357 : x = 140 * (t2 - t1)

    if t2 > 357 and t1 == (-39) : x = 349440 + 140 * (t2 - 357)

    if t2 == 357 and t1 == (-39) : x = 349440

    if t2 < 357 and t1 == (-39) : x = 12000 + 140 * (t2 - (-39))

    if t1 < (-39) and t2 == 357 : x = 140 * ((-39) - t1) + 349440

    if t1 == (-39) and t2 == 357 : x = 349440

    if t1 > (-39) and t2 == 357 : x = 140 * (357 - t1) + 282000

    if t2 > 357 and t1 > (-39) : x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

    if t2 == 357 and t1 > (-39) : x = 140 * (357 - t1) + 282000

    if t2 < 357 and t1 > (-39) : x = 140 * (t2 - t1)

    if t1 < (-39) and t2 < 357 : x = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)

    if t1 == (-39) and t2 < 357 : x = 282000 + 140 * (t2 - 357)

    if t1 > (-39) and t2 < 357 : x = 140 * (t2 - t1)

    if t1 == 357 and t2 > 357 : x = 282000 + 140 * (t2 - 357)

    if t1 > 357 and t2 > 357 : x = 140 * (t2 - t1)

    if t2 == (-39) and t1 < (-39) : x = 140 * ((-39) - t1) + 12000

    if t2 < (-39) and t1 < (-39) : x = 140 * (t2 - t1)     

    vps = (x * m) / 23200000

    vpb = (x * m) / 32200000

    entry4.insert (0,vps)  

    entry5.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)

root=Tk()

root.title('Ртуть')

root.geometry('300x400')

label = Label (text = 'УМОВА \n Скiльки лiтрiв палива треба, щоб нагрiти \n ртуть в iнтервалi певних температур. ')

label.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)

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

button.pack (pady = 10)

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

button.pack (pady = 1)

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

labe5.pack(pady = 1)

entry4 = Entry ()

entry4.pack (pady = 1)

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

labe6.pack(pady = 1)

entry5 = Entry ()

entry5.pack (pady = 1)