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нтервалi певних температур.');

TextColor (03);

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

  readln(t1);

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

  readln(t2);

   write ('Маса залiза (кг) = ');

  readln(m);

  if t1<1539 then

    begin

   if t2>2831 then x:=449*(1539-t1)+277000+449*(2831-1539)+6120000+449*(t2-2831);

   if t2=2831 then x:=449*(1539-t1)+277000+449*(2831-1539)+6120000;

   if t2<2831 then x:=449*(1539-t1)+277000+449*(2831-t2);

   if t2=1539 then x:=449*(1539-t1)+277000;

   if t2<1539 then x:=449*(t2-t1);

    end;

  if t2>2831 then

    begin

   if t1=1539 then x:=277000+449*(2831-1539)+6120000+449*(t2-2831);

   if t1>1539 then x:=449*(2831-t1)+6120000+449*(t2-2831);

   if t1=2831 then x:=6120000+449*(t2-2831);

   if t1>2831 then x:=449*(t2-t1);

    end;

  if t1>1539 then if t2<2831 then x:=449*(t2-t1);

  if t1=1539 then

    begin

   if t2>2831 then x:=277000+449*(2831-1539)+6120000+449*(t2-2831);

   if t2=2831 then x:=277000+449*(2831-1539)+6120000;

   if t2<2831 then x:=277000+449*(t2-1539);

    end;

  if t2=2831 then

    begin

   if t1<1539 then x:=449*(1539-t1)+277000+449*(100-1539)+6120000;

   if t1=1539 then x:=277000+449*(2831-1539)+6120000;

   if t1>1539 then x:=449*(2831-t1)+6120000;

    end;

  if t1>1539 then

    begin

   if t2>2831 then x:=449*(2831-t1)+6120000+449*(t2-2831);

   if t2=2831 then x:=449*(2831-t1)+6120000;

   if t2<2831 then x:=449*(t2-t1);

    end;

  if t2<2831 then

    begin

   if t1<1539 then x:=449*(1539-t1)+277000+449*(t2-1539);

   if t1=1539 then x:=277000+449*(t2-1539);

   if t1>1539 then x:=449*(t2-t1);

    end;

  if t2>2831 then

    begin

   if t1=2831 then x:=6120000+449*(t2-2831);

   if t1>2831 then x:=449*(t2-t1);

    end;

  if t1<1539 then

    begin

   if t2=1539 then x:=449*(1539-t1)+277000;

   if t2<1539 then x:=449*(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­вҐаў «i ЇҐў­Ёе ⥬ЇҐа вга.\n \n");

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

    scanf("%f", &t1);

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

    scanf("%f", &t2);

    printf ( "Њ б  § «i§  (ЄЈ) = ");

    scanf("%f", &m);

if (t2 > 2861 & t1 < 1539)

x = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000 + 449 * (t2 - 2861);

if (t2 == 2861 & t1 < 1539)

x = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000;

if (t2 < 2861 & t1 < 1539)

x = 449 * (1539 - t1) + 277000 + 449 * (2861 - t2);

if (t2 == 1539 & t1 < 1539)

x = 449 * (1539 - t1) + 277000;

if (t2 < 1539 & t1 < 1539)

x = 449 * (t2 - t1);

                if (t1 == 1539 & t2 > 2861)

x = 277000 + 449 * (855 - 1539) + 6120000 + 449 * (t2 - 2861);

if (t1 > 1539 & t2 > 2861)

x = 449 * (2861 - t1) + 6120000 + 449 * (t2 - 2861);

if (t1 == 2861 & t2 > 2861)

x = 6120000 + 449 * (t2 - 2861);

if (t1 > 2861 & t2 > 2861)

x = 449 * (t2 - t1);

if (t1 > 1539)

if (t2 < 2861)

x = 449 * (t2 - t1);

                 if (t2 > 2861 & t1 == 1539)

x = 277000 + 449 * (2861 - 1539) + 6120000 + 449 * (t2 - 2861);

if (t2 == 2861 & t1 == 1539)

x = 277000 + 449 * (2861 - 1539) + 6120000;

if (t2 < 2861 & t1 == 1539)

x = 277000 + 449 * (t2 - 1539);

if (t1 < 1539 & t2 == 2861)

x = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000;

if (t1 == 1539 & t2 == 2861)

x = 277000 + 449 * (2861 - 1539) + 6120000;

if (t1 > 1539 & t2 == 2861)

x = 449 * (2861 - t1) + 6120000;

if (t2 > 2861 & t1 > 1539)

x = 449 * (855 - t1) + 6120000 + 449 * (t2 - 2861);

if (t2 == 2861 & t1 > 1539)

x = 449 * (2861 - t1) + 6120000;

if (t2 < 2861 & t1 > 1539)

x = 449 * (t2 - t1);

if (t1 < 1539 & t2 < 2861)

x = 449 * (1539 - t1) + 277000 + 449 * (t2 - 1539);

if (t1 == 1539 & t2 < 2861)

x = 277000 + 449 * (t2 - 1539);

if (t1 > 1539 & t2 < 2861)

x = 449 * (t2 - t1);

if (t1 == 2861 & t2 > 2861)

x = 6120000 + 449 * (t2 - 2861);

if (t1 > 2861 & t2 > 2861)

x = 449 * (t2 - t1);

if (t2 == 1539 & t1 < 1539)

x = 449 * (1539 - t1) + 277000;

if (t2 < 1539 & t1 < 1539)

x = 449 * (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нтервалi певних температур.

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

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

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

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

INPUT "Њ б  § «i§  (ЄЈ) = ", m

      'Маса заліза (кг) ='

   IF t2 > 2567 AND t1 < 1539 THEN x = 449 * (1539 - t1) + 6990578 + 449 * (t2 - 2567)

   IF t2 = 2567 AND t1 < 1539 THEN x = 449 * (1539 - t1) + 6990578

   IF t2 < 2567 AND t1 < 1539 THEN x = 449 * (1539 - t1) + 277000 + 449 * (2567 - t2)

   IF t2 = 1539 AND t1 < 1539 THEN x = 449 * (1539 - t1) + 277000

   IF t2 < 1539 AND t1 < 1539 THEN x = 449 * (t2 - t1)

   IF t1 = 1539 AND t2 > 2567 THEN x = 6990578 + 449 * (t2 - 2567)

   IF t1 > 1539 AND t2 > 2567 THEN x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

   IF t1 = 2567 AND t2 > 2567 THEN x = 6120000 + 449 * (t2 - 2567)

   IF t1 > 2567 AND t2 > 2567 THEN x = 449 * (t2 - t1)

   IF t1 > 1539 THEN IF t2 < 2567 THEN x = 449 * (t2 - t1)

   IF t2 > 2567 AND t1 = 1539 THEN x = 6990578 + 449 * (t2 - 2567)

   IF t2 = 2567 AND t1 = 1539 THEN x = 6990578

   IF t2 < 2567 AND t1 = 1539 THEN x = 277000 + 449 * (t2 - 1539)

   IF t1 < 1539 AND t2 = 2567 THEN x = 449 * (1539 - t1) + 6990578

   IF t1 = 1539 AND t2 = 2567 THEN x = 6990578

   IF t1 > 1539 AND t2 = 2567 THEN x = 449 * (2567 - t1) + 6120000

   IF t2 > 2567 AND t1 > 1539 THEN x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

   IF t2 = 2567 AND t1 > 1539 THEN x = 449 * (2567 - t1) + 6120000

   IF t2 < 2567 AND t1 > 1539 THEN x = 449 * (t2 - t1)

   IF t1 < 1539 AND t2 < 2567 THEN x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

   IF t1 = 1539 AND t2 < 2567 THEN x = 277000 + 449 * (t2 - 1539)

   IF t1 > 1539 AND t2 < 2567 THEN x = 449 * (t2 - t1)

   IF t1 = 2567 AND t2 > 2567 THEN x = 6120000 + 449 * (t2 - 2567)

   IF t1 > 2567 AND t2 > 2567 THEN x = 449 * (t2 - t1)

   IF t2 = 1539 AND t1 < 1539 THEN x = 449 * (1539 - t1) + 277000

   IF t2 < 1539 AND t1 < 1539 THEN x = 449 * (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="mfz" action="javascript:mfz()" id="1419313176">

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

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

Маса залізо (кг) = <input name="mfz_m" type="text" value=" " size="4">

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

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

</form>

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

</div>

<script language="javascript">

function mfz() {

  var t1 = document.mfz.mfz_t1.value;

  var t2 = document.mfz.mfz_t2.value;

  var m = document.mfz.mfz_m.value;

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

  var x ;

                if (t2 > 2861 & t1 < 1539)

x = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000 + 449 * (t2 - 2861);

if (t2 == 2861 & t1 < 1539)

x = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000;

if (t2 < 2861 & t1 < 1539)

x = 449 * (1539 - t1) + 277000 + 449 * (2861 - t2);

if (t2 == 1539 & t1 < 1539)

x = 449 * (1539 - t1) + 277000;

if (t2 < 1539 & t1 < 1539)

x = 449 * (t2 - t1);

                if (t1 == 1539 & t2 > 2861)

x = 277000 + 449 * (855 - 1539) + 6120000 + 449 * (t2 - 2861);

if (t1 > 1539 & t2 > 2861)

x = 449 * (2861 - t1) + 6120000 + 449 * (t2 - 2861);

if (t1 == 2861 & t2 > 2861)

x = 6120000 + 449 * (t2 - 2861);

if (t1 > 2861 & t2 > 2861)

x = 449 * (t2 - t1);

if (t1 > 1539)

if (t2 < 2861)

x = 449 * (t2 - t1);

                 if (t2 > 2861 & t1 == 1539)

x = 277000 + 449 * (2861 - 1539) + 6120000 + 449 * (t2 - 2861);

if (t2 == 2861 & t1 == 1539)

x = 277000 + 449 * (2861 - 1539) + 6120000;

if (t2 < 2861 & t1 == 1539)

x = 277000 + 449 * (t2 - 1539);

if (t1 < 1539 & t2 == 2861)

x = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000;

if (t1 == 1539 & t2 == 2861)

x = 277000 + 449 * (2861 - 1539) + 6120000;

if (t1 > 1539 & t2 == 2861)

x = 449 * (2861 - t1) + 6120000;

if (t2 > 2861 & t1 > 1539)

x = 449 * (855 - t1) + 6120000 + 449 * (t2 - 2861);

if (t2 == 2861 & t1 > 1539)

x = 449 * (2861 - t1) + 6120000;

if (t2 < 2861 & t1 > 1539)

x = 449 * (t2 - t1);

if (t1 < 1539 & t2 < 2861)

x = 449 * (1539 - t1) + 277000 + 449 * (t2 - 1539);

if (t1 == 1539 & t2 < 2861)

x = 277000 + 449 * (t2 - 1539);

if (t1 > 1539 & t2 < 2861)

x = 449 * (t2 - t1);

if (t1 == 2861 & t2 > 2861)

x = 6120000 + 449 * (t2 - 2861);

if (t1 > 2861 & t2 > 2861)

x = 449 * (t2 - t1);

if (t2 == 1539 & t1 < 1539)

x = 449 * (1539 - t1) + 277000;

if (t2 < 1539 & t1 < 1539)

x = 449 * (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нтервал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 > 2567 AND t1 < 1539 THEN x = 449 * (1539 - t1) + 6990578 + 449 * (t2 - 2567)

   IF t2 = 2567 AND t1 < 1539 THEN x = 449 * (1539 - t1) + 6990578

   IF t2 < 2567 AND t1 < 1539 THEN x = 449 * (1539 - t1) + 277000 + 449 * (2567 - t2)

   IF t2 = 1539 AND t1 < 1539 THEN x = 449 * (1539 - t1) + 277000

   IF t2 < 1539 AND t1 < 1539 THEN x = 449 * (t2 - t1)

   IF t1 = 1539 AND t2 > 2567 THEN x = 6990578 + 449 * (t2 - 2567)

   IF t1 > 1539 AND t2 > 2567 THEN x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

   IF t1 = 2567 AND t2 > 2567 THEN x = 6120000 + 449 * (t2 - 2567)

   IF t1 > 2567 AND t2 > 2567 THEN x = 449 * (t2 - t1)

   IF t1 > 1539 THEN IF t2 < 2567 THEN x = 449 * (t2 - t1)

   IF t2 > 2567 AND t1 = 1539 THEN x = 6990578 + 449 * (t2 - 2567)

   IF t2 = 2567 AND t1 = 1539 THEN x = 6990578

   IF t2 < 2567 AND t1 = 1539 THEN x = 277000 + 449 * (t2 - 1539)

   IF t1 < 1539 AND t2 = 2567 THEN x = 449 * (1539 - t1) + 6990578

   IF t1 = 1539 AND t2 = 2567 THEN x = 6990578

   IF t1 > 1539 AND t2 = 2567 THEN x = 449 * (2567 - t1) + 6120000

   IF t2 > 2567 AND t1 > 1539 THEN x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

   IF t2 = 2567 AND t1 > 1539 THEN x = 449 * (2567 - t1) + 6120000

   IF t2 < 2567 AND t1 > 1539 THEN x = 449 * (t2 - t1)

   IF t1 < 1539 AND t2 < 2567 THEN x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

   IF t1 = 1539 AND t2 < 2567 THEN x = 277000 + 449 * (t2 - 1539)

   IF t1 > 1539 AND t2 < 2567 THEN x = 449 * (t2 - t1)

   IF t1 = 2567 AND t2 > 2567 THEN x = 6120000 + 449 * (t2 - 2567)

   IF t1 > 2567 AND t2 > 2567 THEN x = 449 * (t2 - t1)

   IF t2 = 1539 AND t1 < 1539 THEN x = 449 * (1539 - t1) + 277000

   IF t2 < 1539 AND t1 < 1539 THEN x = 449 * (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нтервалi певних температур. \n \n";

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

    std::cin >> t1;

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

    std::cin >> t2;

std::cout << "Маса залiза (кг) = ";

    std::cin >> m;

if (t2 > 2861 & t1 < 1539)

x = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000 + 449 * (t2 - 2861);

if (t2 == 2861 & t1 < 1539)

x = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000;

if (t2 < 2861 & t1 < 1539)

x = 449 * (1539 - t1) + 277000 + 449 * (2861 - t2);

if (t2 == 1539 & t1 < 1539)

x = 449 * (1539 - t1) + 277000;

if (t2 < 1539 & t1 < 1539)

x = 449 * (t2 - t1);

                if (t1 == 1539 & t2 > 2861)

x = 277000 + 449 * (855 - 1539) + 6120000 + 449 * (t2 - 2861);

if (t1 > 1539 & t2 > 2861)

x = 449 * (2861 - t1) + 6120000 + 449 * (t2 - 2861);

if (t1 == 2861 & t2 > 2861)

x = 6120000 + 449 * (t2 - 2861);

if (t1 > 2861 & t2 > 2861)

x = 449 * (t2 - t1);

if (t1 > 1539)

if (t2 < 2861)

x = 449 * (t2 - t1);

                 if (t2 > 2861 & t1 == 1539)

x = 277000 + 449 * (2861 - 1539) + 6120000 + 449 * (t2 - 2861);

if (t2 == 2861 & t1 == 1539)

x = 277000 + 449 * (2861 - 1539) + 6120000;

if (t2 < 2861 & t1 == 1539)

x = 277000 + 449 * (t2 - 1539);

if (t1 < 1539 & t2 == 2861)

x = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000;

if (t1 == 1539 & t2 == 2861)

x = 277000 + 449 * (2861 - 1539) + 6120000;

if (t1 > 1539 & t2 == 2861)

x = 449 * (2861 - t1) + 6120000;

if (t2 > 2861 & t1 > 1539)

x = 449 * (855 - t1) + 6120000 + 449 * (t2 - 2861);

if (t2 == 2861 & t1 > 1539)

x = 449 * (2861 - t1) + 6120000;

if (t2 < 2861 & t1 > 1539)

x = 449 * (t2 - t1);

if (t1 < 1539 & t2 < 2861)

x = 449 * (1539 - t1) + 277000 + 449 * (t2 - 1539);

if (t1 == 1539 & t2 < 2861)

x = 277000 + 449 * (t2 - 1539);

if (t1 > 1539 & t2 < 2861)

x = 449 * (t2 - t1);

if (t1 == 2861 & t2 > 2861)

x = 6120000 + 449 * (t2 - 2861);

if (t1 > 2861 & t2 > 2861)

x = 449 * (t2 - t1);

if (t2 == 1539 & t1 < 1539)

x = 449 * (1539 - t1) + 277000;

if (t2 < 1539 & t1 < 1539)

x = 449 * (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зo в iнтервалi певних температур.')

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

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

m =float(input('Маса залiза (кг) ='))

print ('')

if t2 > 2567 and t1 < 1539 : x = 449 * (1539 - t1) + 6990578 + 449 * (t2 - 2567)

if t2 == 2567 and t1 < 1539 : x = 449 * (1539 - t1) + 6990578

if t2 < 2567 and t1 < 1539 : x = 449 * (1539 - t1) + 277000 + 449 * (2567 - t2)

if t2 == 1539 and t1 < 1539 : x = 449 * (1539 - t1) + 277000

if t2 < 1539 and t1 < 1539 : x = 449 * (t2 - t1)

if t1 == 1539 and t2 > 2567 : x = 6990578 + 449 * (t2 - 2567)

if t1 > 1539 and t2 > 2567 : x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

if t1 == 2567 and t2 > 2567 : x = 6120000 + 449 * (t2 - 2567)

if t1 > 2567 and t2 > 2567 : x = 449 * (t2 - t1)

if t1 > 1539 and t2 < 2567 : x = 449 * (t2 - t1)

if t2 > 2567 and t1 == 1539 : x = 6990578 + 449 * (t2 - 2567)

if t2 == 2567 and t1 == 1539 : x = 6990578

if t2 < 2567 and t1 == 1539 : x = 277000 + 449 * (t2 - 1539)

if t1 < 1539 and t2 == 2567 : x = 449 * (1539 - t1) + 6990578

if t1 == 1539 and t2 == 2567 : x = 6990578

if t1 > 1539 and t2 == 2567 : x = 449 * (2567 - t1) + 6120000

if t2 > 2567 and t1 > 1539 : x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

if t2 == 2567 and t1 > 1539 : x = 449 * (2567 - t1) + 6120000

if t2 < 2567 and t1 > 1539 : x = 449 * (t2 - t1)

if t1 < 1539 and t2 < 2567 : x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

if t1 == 1539 and t2 < 2567 : x = 277000 + 449 * (t2 - 1539)

if t1 > 1539 and t2 < 2567 : x = 449 * (t2 - t1)

if t1 == 2567 and t2 > 2567 : x = 6120000 + 449 * (t2 - 2567)

if t1 > 2567 and t2 > 2567 : x = 449 * (t2 - t1)

if t2 == 1539 and t1 < 1539 : x = 449 * (1539 - t1) + 277000

if t2 < 1539 and t1 < 1539 : x = 449 * (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 > 2567 And t1 < 1539 Then x = 449 * (1539 - t1) + 6990578 + 449 * (t2 - 2567)

   If t2 = 2567 And t1 < 1539 Then x = 449 * (1539 - t1) + 6990578

   If t2 < 2567 And t1 < 1539 Then x = 449 * (1539 - t1) + 277000 + 449 * (2567 - t2)

   If t2 = 1539 And t1 < 1539 Then x = 449 * (1539 - t1) + 277000

   If t2 < 1539 And t1 < 1539 Then x = 449 * (t2 - t1)

   If t1 = 1539 And t2 > 2567 Then x = 6990578 + 449 * (t2 - 2567)

   If t1 > 1539 And t2 > 2567 Then x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

   If t1 = 2567 And t2 > 2567 Then x = 6120000 + 449 * (t2 - 2567)

   If t1 > 2567 And t2 > 2567 Then x = 449 * (t2 - t1)

   If t1 > 1539 Then If t2 < 2567 Then x = 449 * (t2 - t1)

   If t2 > 2567 And t1 = 1539 Then x = 6990578 + 449 * (t2 - 2567)

   If t2 = 2567 And t1 = 1539 Then x = 6990578

   If t2 < 2567 And t1 = 1539 Then x = 277000 + 449 * (t2 - 1539)

   If t1 < 1539 And t2 = 2567 Then x = 449 * (1539 - t1) + 6990578

   If t1 = 1539 And t2 = 2567 Then x = 6990578

   If t1 > 1539 And t2 = 2567 Then x = 449 * (2567 - t1) + 6120000

   If t2 > 2567 And t1 > 1539 Then x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

   If t2 = 2567 And t1 > 1539 Then x = 449 * (2567 - t1) + 6120000

   If t2 < 2567 And t1 > 1539 Then x = 449 * (t2 - t1)

   If t1 < 1539 And t2 < 2567 Then x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

   If t1 = 1539 And t2 < 2567 Then x = 277000 + 449 * (t2 - 1539)

   If t1 > 1539 And t2 < 2567 Then x = 449 * (t2 - t1)

   If t1 = 2567 And t2 > 2567 Then x = 6120000 + 449 * (t2 - 2567)

   If t1 > 2567 And t2 > 2567 Then x = 449 * (t2 - t1)

   If t2 = 1539 And t1 < 1539 Then x = 449 * (1539 - t1) + 277000

   If t2 < 1539 And t1 < 1539 Then x = 449 * (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,vr,t1,t2,m,vps,vpb:real;

begin

t1:=StrToFloat(TextBox1.Text);

t2:=StrToFloat(TextBox2.Text);

m:=StrToFloat(TextBox3.Text);

 if t1<1539 then

    begin

   if t2>2831 then x:=449*(1539-t1)+277000+449*(2831-1539)+6120000+449*(t2-2831);

   if t2=2831 then x:=449*(1539-t1)+277000+449*(2831-1539)+6120000;

   if t2<2831 then x:=449*(1539-t1)+277000+449*(2831-t2);

   if t2=1539 then x:=449*(1539-t1)+277000;

   if t2<1539 then x:=449*(t2-t1);

    end;

  if t2>2831 then

    begin

   if t1=1539 then x:=277000+449*(2831-1539)+6120000+449*(t2-2831);

   if t1>1539 then x:=449*(2831-t1)+6120000+449*(t2-2831);

   if t1=2831 then x:=6120000+449*(t2-2831);

   if t1>2831 then x:=449*(t2-t1);

    end;

  if t1>1539 then if t2<2831 then x:=449*(t2-t1);

  if t1=1539 then

    begin

   if t2>2831 then x:=277000+449*(2831-1539)+6120000+449*(t2-2831);

   if t2=2831 then x:=277000+449*(2831-1539)+6120000;

   if t2<2831 then x:=277000+449*(t2-1539);

    end;

  if t2=2831 then

    begin

   if t1<1539 then x:=449*(1539-t1)+277000+449*(100-1539)+6120000;

   if t1=1539 then x:=277000+449*(2831-1539)+6120000;

   if t1>1539 then x:=449*(2831-t1)+6120000;

    end;

  if t1>1539 then

    begin

   if t2>2831 then x:=449*(2831-t1)+6120000+449*(t2-2831);

   if t2=2831 then x:=449*(2831-t1)+6120000;

   if t2<2831 then x:=449*(t2-t1);

    end;

  if t2<2831 then

    begin

   if t1<1539 then x:=449*(1539-t1)+277000+449*(t2-1539);

   if t1=1539 then x:=277000+449*(t2-1539);

   if t1>1539 then x:=449*(t2-t1);

    end;

  if t2>2831 then

    begin

   if t1=2831 then x:=6120000+449*(t2-2831);

   if t1>2831 then x:=449*(t2-t1);

    end;

  if t1<1539 then

    begin

   if t2=1539 then x:=449*(1539-t1)+277000;

   if t2<1539 then x:=449*(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 > 2567 And t1 < 1539 Then x = 449 * (1539 - t1) + 6990578 + 449 * (t2 - 2567)

        If t2 = 2567 And t1 < 1539 Then x = 449 * (1539 - t1) + 6990578

        If t2 < 2567 And t1 < 1539 Then x = 449 * (1539 - t1) + 277000 + 449 * (2567 - t2)

        If t2 = 1539 And t1 < 1539 Then x = 449 * (1539 - t1) + 277000

        If t2 < 1539 And t1 < 1539 Then x = 449 * (t2 - t1)

        If t1 = 1539 And t2 > 2567 Then x = 6990578 + 449 * (t2 - 2567)

        If t1 > 1539 And t2 > 2567 Then x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

        If t1 = 2567 And t2 > 2567 Then x = 6120000 + 449 * (t2 - 2567)

        If t1 > 2567 And t2 > 2567 Then x = 449 * (t2 - t1)

        If t1 > 1539 Then If t2 < 2567 Then x = 449 * (t2 - t1)

        If t2 > 2567 And t1 = 1539 Then x = 6990578 + 449 * (t2 - 2567)

        If t2 = 2567 And t1 = 1539 Then x = 6990578

        If t2 < 2567 And t1 = 1539 Then x = 277000 + 449 * (t2 - 1539)

        If t1 < 1539 And t2 = 2567 Then x = 449 * (1539 - t1) + 6990578

        If t1 = 1539 And t2 = 2567 Then x = 6990578

        If t1 > 1539 And t2 = 2567 Then x = 449 * (2567 - t1) + 6120000

        If t2 > 2567 And t1 > 1539 Then x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

        If t2 = 2567 And t1 > 1539 Then x = 449 * (2567 - t1) + 6120000

        If t2 < 2567 And t1 > 1539 Then x = 449 * (t2 - t1)

        If t1 < 1539 And t2 < 2567 Then x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

        If t1 = 1539 And t2 < 2567 Then x = 277000 + 449 * (t2 - 1539)

        If t1 > 1539 And t2 < 2567 Then x = 449 * (t2 - t1)

        If t1 = 2567 And t2 > 2567 Then x = 6120000 + 449 * (t2 - 2567)

        If t1 > 2567 And t2 > 2567 Then x = 449 * (t2 - t1)

        If t2 = 1539 And t1 < 1539 Then x = 449 * (1539 - t1) + 277000

        If t2 < 1539 And t1 < 1539 Then x = 449 * (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 > 2567 and t1 < 1539 : x = 449 * (1539 - t1) + 6990578 + 449 * (t2 - 2567)

    if t2 == 2567 and t1 < 1539 : x = 449 * (1539 - t1) + 6990578

    if t2 < 2567 and t1 < 1539 : x = 449 * (1539 - t1) + 277000 + 449 * (2567 - t2)

    if t2 == 1539 and t1 < 1539 : x = 449 * (1539 - t1) + 277000

    if t2 < 1539 and t1 < 1539 : x = 449 * (t2 - t1)

    if t1 == 1539 and t2 > 2567 : x = 6990578 + 449 * (t2 - 2567)

    if t1 > 1539 and t2 > 2567 : x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

    if t1 == 2567 and t2 > 2567 : x = 6120000 + 449 * (t2 - 2567)

    if t1 > 2567 and t2 > 2567 : x = 449 * (t2 - t1)

    if t1 > 1539 and t2 < 2567 : x = 449 * (t2 - t1)

    if t2 > 2567 and t1 == 1539 : x = 6990578 + 449 * (t2 - 2567)

    if t2 == 2567 and t1 == 1539 : x = 6990578

    if t2 < 2567 and t1 == 1539 : x = 277000 + 449 * (t2 - 1539)

    if t1 < 1539 and t2 == 2567 : x = 449 * (1539 - t1) + 6990578

    if t1 == 1539 and t2 == 2567 : x = 6990578

    if t1 > 1539 and t2 == 2567 : x = 449 * (2567 - t1) + 6120000

    if t2 > 2567 and t1 > 1539 : x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

    if t2 == 2567 and t1 > 1539 : x = 449 * (2567 - t1) + 6120000

    if t2 < 2567 and t1 > 1539 : x = 449 * (t2 - t1)

    if t1 < 1539 and t2 < 2567 : x = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)

    if t1 == 1539 and t2 < 2567 : x = 277000 + 449 * (t2 - 1539)

    if t1 > 1539 and t2 < 2567 : x = 449 * (t2 - t1)

    if t1 == 2567 and t2 > 2567 : x = 6120000 + 449 * (t2 - 2567)

    if t1 > 2567 and t2 > 2567 : x = 449 * (t2 - t1)

    if t2 == 1539 and t1 < 1539 : x = 449 * (1539 - t1) + 277000

    if t2 < 1539 and t1 < 1539 : x = 449 * (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('Залiзo')

root.geometry('300x400')

label = Label (text = 'УМОВА \n Скiльки лiтрiв палива треба, щоб нагрiти \n залiзo в 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 = 'Маса залiза (кг)')

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)