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

TextColor (03);

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

  readln(t1);

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

  readln(t2);

   write ('Маса алюмiнiю (кг) = ');

  readln(m);

  if t1<660 then

    begin

   if t2>2519 then x:=897*(660-t1)+390000+897*(2519-660)+10900000+897*(t2-2519);

   if t2=2519 then x:=897*(660-t1)+390000+897*(2519-660)+10900000;

   if t2<2519 then x:=897*(660-t1)+390000+897*(2519-t2);

   if t2=660 then x:=897*(660-t1)+390000;

   if t2<660 then x:=897*(t2-t1);

    end;

  if t2>2519 then

    begin

   if t1=660 then x:=390000+897*(2519-660)+10900000+897*(t2-2519);

   if t1>660 then x:=897*(2519-t1)+10900000+897*(t2-2519);

   if t1=2519 then x:=10900000+897*(t2-2519);

   if t1>2519 then x:=897*(t2-t1);

    end;

  if t1>660 then if t2<2519 then x:=897*(t2-t1);

  if t1=660 then

    begin

   if t2>2519 then x:=390000+897*(2519-660)+10900000+897*(t2-2519);

   if t2=2519 then x:=390000+897*(2519-660)+10900000;

   if t2<2519 then x:=390000+897*(t2-660);

    end;

  if t2=2519 then

    begin

   if t1<660 then x:=897*(660-t1)+390000+897*(100-660)+10900000;

   if t1=660 then x:=390000+897*(2519-660)+10900000;

   if t1>660 then x:=897*(2519-t1)+10900000;

    end;

  if t1>660 then

    begin

   if t2>2519 then x:=897*(2519-t1)+10900000+897*(t2-2519);

   if t2=2519 then x:=897*(2519-t1)+10900000;

   if t2<2519 then x:=897*(t2-t1);

    end;

  if t2<2519 then

    begin

   if t1<660 then x:=897*(660-t1)+390000+897*(t2-660);

   if t1=660 then x:=390000+897*(t2-660);

   if t1>660 then x:=897*(t2-t1);

    end;

  if t2>2519 then

    begin

   if t1=2519 then x:=10900000+897*(t2-2519);

   if t1>2519 then x:=897*(t2-t1);

    end;

  if t1<660 then

    begin

   if t2=660 then x:=897*(660-t1)+390000;

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

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

    scanf("%f", &t1);

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

    scanf("%f", &t2);

    printf ( "Њ б   «о¬i­iо (ЄЈ) = ");

    scanf("%f", &m);

  if (t2 > 2519 & t1 < 660)

x = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);

if (t2 == 2519 & t1 < 660)

x = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000;

if (t2 < 2519 & t1 < 660)

x = 897 * (660 - t1) + 390000 + 897 * (2519 - t2);

if (t2 == 660 & t1 < 660)

x = 897 * (660 - t1) + 390000;

if (t2 < 660 & t1 < 660)

x = 897 * (t2 - t1);

if (t1 == 660 & t2 > 2519)

x = 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);

if (t1 > 660 & t2 > 2519)

x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519);

if (t1 == 2519 & t2 > 2519)

x = 10900000 + 897 * (t2 - 2519);

if (t1 > 2519 & t2 > 2519)

x = 897 * (t2 - t1);

if (t1 > 660)

if (t2 < 2519)

x = 897 * (t2 - t1);

if (t2 > 2519 & t1 == 660)

x = 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);

if (t2 == 2519 & t1 == 660)

x = 390000 + 897 * (2519 - 660) + 10900000;

if (t2 < 2519 & t1 == 660)

x = 390000 + 897 * (t2 - 660);

if (t1 < 660 & t2 == 2519)

x = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000;

if (t1 == 660 & t2 == 2519)

x = 390000 + 897 * (2519 - 660) + 10900000;

if (t1 > 660 & t2 == 2519)

x = 897 * (2519 - t1) + 10900000;

if (t2 > 2519 & t1 > 660)

x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519);

if (t2 == 2519 & t1 > 660)

x = 897 * (2519 - t1) + 10900000;

if (t2 < 2519 & t1 > 660)

x = 897 * (t2 - t1);

if (t1 < 660 & t2 < 2519)

x = 897 * (660 - t1) + 390000 + 897 * (t2 - 660);

if (t1 == 660 & t2 < 2519)

x = 390000 + 897 * (t2 - 660);

if (t1 > 660 & t2 < 2519)

x = 897 * (t2 - t1);

if (t1 == 2519 & t2 > 2519)

x = 10900000 + 897 * (t2 - 2519);

if (t1 > 2519 & t2 > 2519)

x = 897 * (t2 - t1);

if (t2 == 660 & t1 < 660)

x = 897 * (660 - t1) + 390000;

if (t2 < 660 & t1 < 660)

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

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

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

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

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

INPUT "Њ б   «о¬i­iо (ЄЈ) = ", m

      'Маса алюмінію (кг) ='

   IF t2 > 2519 AND t1 < 660 THEN x = 897 * (660 - t1) + 12957523 + 897 * (t2 - 2519)

   IF t2 = 2519 AND t1 < 660 THEN x = 897 * (660 - t1) + 12957523

   IF t2 < 2519 AND t1 < 660 THEN x = 897 * (660 - t1) + 390000 + 897 * (2519 - t2)

   IF t2 = 660 AND t1 < 660 THEN x = 897 * (660 - t1) + 390000

   IF t2 < 660 AND t1 < 660 THEN x = 897 * (t2 - t1)

   IF t1 = 660 AND t2 > 2519 THEN x = 12957523 + 897 * (t2 - 2519)

   IF t1 > 660 AND t2 > 2519 THEN x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

   IF t1 = 2519 AND t2 > 2519 THEN x = 10900000 + 897 * (t2 - 2519)

   IF t1 > 2519 AND t2 > 2519 THEN x = 897 * (t2 - t1)

   IF t1 > 660 THEN IF t2 < 2519 THEN x = 897 * (t2 - t1)

   IF t2 > 2519 AND t1 = 660 THEN x = 12957523 + 897 * (t2 - 2519)

   IF t2 = 2519 AND t1 = 660 THEN x = 12957523

   IF t2 < 2519 AND t1 = 660 THEN x = 390000 + 897 * (t2 - 660)

   IF t1 < 660 AND t2 = 2519 THEN x = 897 * (660 - t1) + 12957523

   IF t1 = 660 AND t2 = 2519 THEN x = 12957523

   IF t1 > 660 AND t2 = 2519 THEN x = 897 * (2519 - t1) + 10900000

   IF t2 > 2519 AND t1 > 660 THEN x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

   IF t2 = 2519 AND t1 > 660 THEN x = 897 * (2519 - t1) + 10900000

   IF t2 < 2519 AND t1 > 660 THEN x = 897 * (t2 - t1)

   IF t1 < 660 AND t2 < 2519 THEN x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

   IF t1 = 660 AND t2 < 2519 THEN x = 10900000 + 897 * (t2 - 2519)

   IF t1 > 660 AND t2 < 2519 THEN x = 897 * (t2 - t1)

   IF t1 = 2519 AND t2 > 2519 THEN x = 10900000 + 897 * (t2 - 2519)

   IF t1 > 2519 AND t2 > 2519 THEN x = 897 * (t2 - t1)

   IF t2 = 660 AND t1 < 660 THEN x = 897 * (660 - t1) + 390000

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

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

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

Маса алюмінію (кг) = <input name="mfa_m" 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 m = document.mfa.mfa_m.value;

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

  var x ;

                if (t2 > 2519 & t1 < 660)

x = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);

if (t2 == 2519 & t1 < 660)

x = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000;

if (t2 < 2519 & t1 < 660)

x = 897 * (660 - t1) + 390000 + 897 * (2519 - t2);

if (t2 == 660 & t1 < 660)

x = 897 * (660 - t1) + 390000;

if (t2 < 660 & t1 < 660)

x = 897 * (t2 - t1);

if (t1 == 660 & t2 > 2519)

x = 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);

if (t1 > 660 & t2 > 2519)

x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519);

if (t1 == 2519 & t2 > 2519)

x = 10900000 + 897 * (t2 - 2519);

if (t1 > 2519 & t2 > 2519)

x = 897 * (t2 - t1);

if (t1 > 660)

if (t2 < 2519)

x = 897 * (t2 - t1);

if (t2 > 2519 & t1 == 660)

x = 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);

if (t2 == 2519 & t1 == 660)

x = 390000 + 897 * (2519 - 660) + 10900000;

if (t2 < 2519 & t1 == 660)

x = 390000 + 897 * (t2 - 660);

if (t1 < 660 & t2 == 2519)

x = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000;

if (t1 == 660 & t2 == 2519)

x = 390000 + 897 * (2519 - 660) + 10900000;

if (t1 > 660 & t2 == 2519)

x = 897 * (2519 - t1) + 10900000;

if (t2 > 2519 & t1 > 660)

x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519);

if (t2 == 2519 & t1 > 660)

x = 897 * (2519 - t1) + 10900000;

if (t2 < 2519 & t1 > 660)

x = 897 * (t2 - t1);

if (t1 < 660 & t2 < 2519)

x = 897 * (660 - t1) + 390000 + 897 * (t2 - 660);

if (t1 == 660 & t2 < 2519)

x = 390000 + 897 * (t2 - 660);

if (t1 > 660 & t2 < 2519)

x = 897 * (t2 - t1);

if (t1 == 2519 & t2 > 2519)

x = 10900000 + 897 * (t2 - 2519);

if (t1 > 2519 & t2 > 2519)

x = 897 * (t2 - t1);

if (t2 == 660 & t1 < 660)

x = 897 * (660 - t1) + 390000;

if (t2 < 660 & t1 < 660)

x = 897 * (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нтервал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нiю (кг) = ")

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

        Dim x As Double

   IF t2 > 2519 AND t1 < 660 THEN x = 897 * (660 - t1) + 12957523 + 897 * (t2 - 2519)

   IF t2 = 2519 AND t1 < 660 THEN x = 897 * (660 - t1) + 12957523

   IF t2 < 2519 AND t1 < 660 THEN x = 897 * (660 - t1) + 390000 + 897 * (2519 - t2)

   IF t2 = 660 AND t1 < 660 THEN x = 897 * (660 - t1) + 390000

   IF t2 < 660 AND t1 < 660 THEN x = 897 * (t2 - t1)

   IF t1 = 660 AND t2 > 2519 THEN x = 12957523 + 897 * (t2 - 2519)

   IF t1 > 660 AND t2 > 2519 THEN x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

   IF t1 = 2519 AND t2 > 2519 THEN x = 10900000 + 897 * (t2 - 2519)

   IF t1 > 2519 AND t2 > 2519 THEN x = 897 * (t2 - t1)

   IF t1 > 660 THEN IF t2 < 2519 THEN x = 897 * (t2 - t1)

   IF t2 > 2519 AND t1 = 660 THEN x = 12957523 + 897 * (t2 - 2519)

   IF t2 = 2519 AND t1 = 660 THEN x = 12957523

   IF t2 < 2519 AND t1 = 660 THEN x = 390000 + 897 * (t2 - 660)

   IF t1 < 660 AND t2 = 2519 THEN x = 897 * (660 - t1) + 12957523

   IF t1 = 660 AND t2 = 2519 THEN x = 12957523

   IF t1 > 660 AND t2 = 2519 THEN x = 897 * (2519 - t1) + 10900000

   IF t2 > 2519 AND t1 > 660 THEN x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

   IF t2 = 2519 AND t1 > 660 THEN x = 897 * (2519 - t1) + 10900000

   IF t2 < 2519 AND t1 > 660 THEN x = 897 * (t2 - t1)

   IF t1 < 660 AND t2 < 2519 THEN x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

   IF t1 = 660 AND t2 < 2519 THEN x = 10900000 + 897 * (t2 - 2519)

   IF t1 > 660 AND t2 < 2519 THEN x = 897 * (t2 - t1)

   IF t1 = 2519 AND t2 > 2519 THEN x = 10900000 + 897 * (t2 - 2519)

   IF t1 > 2519 AND t2 > 2519 THEN x = 897 * (t2 - t1)

   IF t2 = 660 AND t1 < 660 THEN x = 897 * (660 - t1) + 390000

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

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

    std::cin >> t1;

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

    std::cin >> t2;

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

    std::cin >> m;

if (t2 > 2519 & t1 < 660)

x = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);

if (t2 == 2519 & t1 < 660)

x = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000;

if (t2 < 2519 & t1 < 660)

x = 897 * (660 - t1) + 390000 + 897 * (2519 - t2);

if (t2 == 660 & t1 < 660)

x = 897 * (660 - t1) + 390000;

if (t2 < 660 & t1 < 660)

x = 897 * (t2 - t1);

if (t1 == 660 & t2 > 2519)

x = 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);

if (t1 > 660 & t2 > 2519)

x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519);

if (t1 == 2519 & t2 > 2519)

x = 10900000 + 897 * (t2 - 2519);

if (t1 > 2519 & t2 > 2519)

x = 897 * (t2 - t1);

if (t1 > 660)

if (t2 < 2519)

x = 897 * (t2 - t1);

if (t2 > 2519 & t1 == 660)

x = 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);

if (t2 == 2519 & t1 == 660)

x = 390000 + 897 * (2519 - 660) + 10900000;

if (t2 < 2519 & t1 == 660)

x = 390000 + 897 * (t2 - 660);

if (t1 < 660 & t2 == 2519)

x = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000;

if (t1 == 660 & t2 == 2519)

x = 390000 + 897 * (2519 - 660) + 10900000;

if (t1 > 660 & t2 == 2519)

x = 897 * (2519 - t1) + 10900000;

if (t2 > 2519 & t1 > 660)

x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519);

if (t2 == 2519 & t1 > 660)

x = 897 * (2519 - t1) + 10900000;

if (t2 < 2519 & t1 > 660)

x = 897 * (t2 - t1);

if (t1 < 660 & t2 < 2519)

x = 897 * (660 - t1) + 390000 + 897 * (t2 - 660);

if (t1 == 660 & t2 < 2519)

x = 390000 + 897 * (t2 - 660);

if (t1 > 660 & t2 < 2519)

x = 897 * (t2 - t1);

if (t1 == 2519 & t2 > 2519)

x = 10900000 + 897 * (t2 - 2519);

if (t1 > 2519 & t2 > 2519)

x = 897 * (t2 - t1);

if (t2 == 660 & t1 < 660)

x = 897 * (660 - t1) + 390000;

if (t2 < 660 & t1 < 660)

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

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

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

m =float(input('Маса алюмiнiю (кг) ='))

print ('')

if t2 > 2519 and t1 < 660 : x = 897 * (660 - t1) + 12957523 + 897 * (t2 - 2519)

if t2 == 2519 and t1 < 660 : x = 897 * (660 - t1) + 12957523

if t2 < 2519 and t1 < 660 : x = 897 * (660 - t1) + 390000 + 897 * (2519 - t2)

if t2 == 660 and t1 < 660 : x = 897 * (660 - t1) + 390000

if t2 < 660 and t1 < 660 : x = 897 * (t2 - t1)

if t1 == 660 and t2 > 2519 : x = 12957523 + 897 * (t2 - 2519)

if t1 > 660 and t2 > 2519 : x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

if t1 == 2519 and t2 > 2519 : x = 10900000 + 897 * (t2 - 2519)

if t1 > 2519 and t2 > 2519 : x = 897 * (t2 - t1)

if t1 > 660 and t2 < 2519 : x = 897 * (t2 - t1)

if t2 > 2519 and t1 == 660 : x = 12957523 + 897 * (t2 - 2519)

if t2 == 2519 and t1 == 660 : x = 12957523

if t2 < 2519 and t1 == 660 : x = 390000 + 897 * (t2 - 660)

if t1 < 660 and t2 == 2519 : x = 897 * (660 - t1) + 12957523

if t1 == 660 and t2 == 2519 : x = 12957523

if t1 > 660 and t2 == 2519 : x = 897 * (2519 - t1) + 10900000

if t2 > 2519 and t1 > 660 : x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

if t2 == 2519 and t1 > 660 : x = 897 * (2519 - t1) + 10900000

if t2 < 2519 and t1 > 660 : x = 897 * (t2 - t1)

if t1 < 660 and t2 < 2519 : x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

if t1 == 660 and t2 < 2519 : x = 10900000 + 897 * (t2 - 2519)

if t1 > 660 and t2 < 2519 : x = 897 * (t2 - t1)

if t1 == 2519 and t2 > 2519 : x = 10900000 + 897 * (t2 - 2519)

if t1 > 2519 and t2 > 2519 : x = 897 * (t2 - t1)

if t2 == 660 and t1 < 660 : x = 897 * (660 - t1) + 390000

if t2 < 660 and t1 < 660 : x = 897 * (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 > 2519 And t1 < 660 Then x = 897 * (660 - t1) + 12957523 + 897 * (t2 - 2519)

   If t2 = 2519 And t1 < 660 Then x = 897 * (660 - t1) + 12957523

   If t2 < 2519 And t1 < 660 Then x = 897 * (660 - t1) + 390000 + 897 * (2519 - t2)

   If t2 = 660 And t1 < 660 Then x = 897 * (660 - t1) + 390000

   If t2 < 660 And t1 < 660 Then x = 897 * (t2 - t1)

   If t1 = 660 And t2 > 2519 Then x = 12957523 + 897 * (t2 - 2519)

   If t1 > 660 And t2 > 2519 Then x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

   If t1 = 2519 And t2 > 2519 Then x = 10900000 + 897 * (t2 - 2519)

   If t1 > 2519 And t2 > 2519 Then x = 897 * (t2 - t1)

   If t1 > 660 Then If t2 < 2519 Then x = 897 * (t2 - t1)

   If t2 > 2519 And t1 = 660 Then x = 12957523 + 897 * (t2 - 2519)

   If t2 = 2519 And t1 = 660 Then x = 12957523

   If t2 < 2519 And t1 = 660 Then x = 390000 + 897 * (t2 - 660)

   If t1 < 660 And t2 = 2519 Then x = 897 * (660 - t1) + 12957523

   If t1 = 660 And t2 = 2519 Then x = 12957523

   If t1 > 660 And t2 = 2519 Then x = 897 * (2519 - t1) + 10900000

   If t2 > 2519 And t1 > 660 Then x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

   If t2 = 2519 And t1 > 660 Then x = 897 * (2519 - t1) + 10900000

   If t2 < 2519 And t1 > 660 Then x = 897 * (t2 - t1)

   If t1 < 660 And t2 < 2519 Then x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

   If t1 = 660 And t2 < 2519 Then x = 10900000 + 897 * (t2 - 2519)

   If t1 > 660 And t2 < 2519 Then x = 897 * (t2 - t1)

   If t1 = 2519 And t2 > 2519 Then x = 10900000 + 897 * (t2 - 2519)

   If t1 > 2519 And t2 > 2519 Then x = 897 * (t2 - t1)

   If t2 = 660 And t1 < 660 Then x = 897 * (660 - t1) + 390000

   If t2 < 660 And t1 < 660 Then x = 897 * (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<660 then

    begin

   if t2>2519 then x:=897*(660-t1)+390000+897*(2519-660)+10900000+897*(t2-2519);

   if t2=2519 then x:=897*(660-t1)+390000+897*(2519-660)+10900000;

   if t2<2519 then x:=897*(660-t1)+390000+897*(2519-t2);

   if t2=660 then x:=897*(660-t1)+390000;

   if t2<660 then x:=897*(t2-t1);

    end;

  if t2>2519 then

    begin

   if t1=660 then x:=390000+897*(2519-660)+10900000+897*(t2-2519);

   if t1>660 then x:=897*(2519-t1)+10900000+897*(t2-2519);

   if t1=2519 then x:=10900000+897*(t2-2519);

   if t1>2519 then x:=897*(t2-t1);

    end;

  if t1>660 then if t2<2519 then x:=897*(t2-t1);

  if t1=660 then

    begin

   if t2>2519 then x:=390000+897*(2519-660)+10900000+897*(t2-2519);

   if t2=2519 then x:=390000+897*(2519-660)+10900000;

   if t2<2519 then x:=390000+897*(t2-660);

    end;

  if t2=2519 then

    begin

   if t1<660 then x:=897*(660-t1)+390000+897*(100-660)+10900000;

   if t1=660 then x:=390000+897*(2519-660)+10900000;

   if t1>660 then x:=897*(2519-t1)+10900000;

    end;

  if t1>660 then

    begin

   if t2>2519 then x:=897*(2519-t1)+10900000+897*(t2-2519);

   if t2=2519 then x:=897*(2519-t1)+10900000;

   if t2<2519 then x:=897*(t2-t1);

    end;

  if t2<2519 then

    begin

   if t1<660 then x:=897*(660-t1)+390000+897*(t2-660);

   if t1=660 then x:=390000+897*(t2-660);

   if t1>660 then x:=897*(t2-t1);

    end;

  if t2>2519 then

    begin

   if t1=2519 then x:=10900000+897*(t2-2519);

   if t1>2519 then x:=897*(t2-t1);

    end;

  if t1<660 then

    begin

   if t2=660 then x:=897*(660-t1)+390000;

   if t2<660 then x:=897*(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 > 2519 And t1 < 660 Then x = 897 * (660 - t1) + 12957523 + 897 * (t2 - 2519)

        If t2 = 2519 And t1 < 660 Then x = 897 * (660 - t1) + 12957523

        If t2 < 2519 And t1 < 660 Then x = 897 * (660 - t1) + 390000 + 897 * (2519 - t2)

        If t2 = 660 And t1 < 660 Then x = 897 * (660 - t1) + 390000

        If t2 < 660 And t1 < 660 Then x = 897 * (t2 - t1)

        If t1 = 660 And t2 > 2519 Then x = 12957523 + 897 * (t2 - 2519)

        If t1 > 660 And t2 > 2519 Then x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

        If t1 = 2519 And t2 > 2519 Then x = 10900000 + 897 * (t2 - 2519)

        If t1 > 2519 And t2 > 2519 Then x = 897 * (t2 - t1)

        If t1 > 660 Then If t2 < 2519 Then x = 897 * (t2 - t1)

        If t2 > 2519 And t1 = 660 Then x = 12957523 + 897 * (t2 - 2519)

        If t2 = 2519 And t1 = 660 Then x = 12957523

        If t2 < 2519 And t1 = 660 Then x = 390000 + 897 * (t2 - 660)

        If t1 < 660 And t2 = 2519 Then x = 897 * (660 - t1) + 12957523

        If t1 = 660 And t2 = 2519 Then x = 12957523

        If t1 > 660 And t2 = 2519 Then x = 897 * (2519 - t1) + 10900000

        If t2 > 2519 And t1 > 660 Then x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

        If t2 = 2519 And t1 > 660 Then x = 897 * (2519 - t1) + 10900000

        If t2 < 2519 And t1 > 660 Then x = 897 * (t2 - t1)

        If t1 < 660 And t2 < 2519 Then x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

        If t1 = 660 And t2 < 2519 Then x = 10900000 + 897 * (t2 - 2519)

        If t1 > 660 And t2 < 2519 Then x = 897 * (t2 - t1)

        If t1 = 2519 And t2 > 2519 Then x = 10900000 + 897 * (t2 - 2519)

        If t1 > 2519 And t2 > 2519 Then x = 897 * (t2 - t1)

        If t2 = 660 And t1 < 660 Then x = 897 * (660 - t1) + 390000

        If t2 < 660 And t1 < 660 Then x = 897 * (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 > 2519 and t1 < 660 : x = 897 * (660 - t1) + 12957523 + 897 * (t2 - 2519)

    if t2 == 2519 and t1 < 660 : x = 897 * (660 - t1) + 12957523

    if t2 < 2519 and t1 < 660 : x = 897 * (660 - t1) + 390000 + 897 * (2519 - t2)

    if t2 == 660 and t1 < 660 : x = 897 * (660 - t1) + 390000

    if t2 < 660 and t1 < 660 : x = 897 * (t2 - t1)

    if t1 == 660 and t2 > 2519 : x = 12957523 + 897 * (t2 - 2519)

    if t1 > 660 and t2 > 2519 : x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

    if t1 == 2519 and t2 > 2519 : x = 10900000 + 897 * (t2 - 2519)

    if t1 > 2519 and t2 > 2519 : x = 897 * (t2 - t1)

    if t1 > 660 and t2 < 2519 : x = 897 * (t2 - t1)

    if t2 > 2519 and t1 == 660 : x = 12957523 + 897 * (t2 - 2519)

    if t2 == 2519 and t1 == 660 : x = 12957523

    if t2 < 2519 and t1 == 660 : x = 390000 + 897 * (t2 - 660)

    if t1 < 660 and t2 == 2519 : x = 897 * (660 - t1) + 12957523

    if t1 == 660 and t2 == 2519 : x = 12957523

    if t1 > 660 and t2 == 2519 : x = 897 * (2519 - t1) + 10900000

    if t2 > 2519 and t1 > 660 : x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

    if t2 == 2519 and t1 > 660 : x = 897 * (2519 - t1) + 10900000

    if t2 < 2519 and t1 > 660 : x = 897 * (t2 - t1)

    if t1 < 660 and t2 < 2519 : x = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)

    if t1 == 660 and t2 < 2519 : x = 10900000 + 897 * (t2 - 2519)

    if t1 > 660 and t2 < 2519 : x = 897 * (t2 - t1)

    if t1 == 2519 and t2 > 2519 : x = 10900000 + 897 * (t2 - 2519)

    if t1 > 2519 and t2 > 2519 : x = 897 * (t2 - t1)

    if t2 == 660 and t1 < 660 : x = 897 * (660 - t1) + 390000

    if t2 < 660 and t1 < 660 : x = 897 * (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нiй')

root.geometry('300x400')

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