Речовина - мідь

Реалізація в Pascal ABC.NET

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дi (кг) = ');

readln(m);

if t1<1083 then

begin

if t2>2567 then x:=385*(1083-t1)+213000+385*(2567-1083)+4820000+385*(t2-2567);

if t2=2567 then x:=385*(1083-t1)+213000+385*(2567-1083)+4820000;

if t2<2567 then x:=385*(1083-t1)+213000+385*(2567-t2);

if t2=1083 then x:=385*(1083-t1)+213000;

if t2<1083 then x:=385*(t2-t1);

end;

if t2>2567 then

begin

if t1=1083 then x:=213000+385*(2567-1083)+4820000+385*(t2-2567);

if t1>1083 then x:=385*(2567-t1)+4820000+385*(t2-2567);

if t1=2567 then x:=4820000+385*(t2-2567);

if t1>2567 then x:=385*(t2-t1);

end;

if t1>1083 then if t2<2567 then x:=385*(t2-t1);

if t1=1083 then

begin

if t2>2567 then x:=213000+385*(2567-1083)+4820000+385*(t2-2567);

if t2=2567 then x:=213000+385*(2567-1083)+4820000;

if t2<2567 then x:=213000+385*(t2-1083);

end;

if t2=2567 then

begin

if t1<1083 then x:=385*(1083-t1)+213000+385*(100-1083)+4820000;

if t1=1083 then x:=213000+385*(2567-1083)+4820000;

if t1>1083 then x:=385*(2567-t1)+4820000;

end;

if t1>1083 then

begin

if t2>2567 then x:=385*(2567-t1)+4820000+385*(t2-2567);

if t2=2567 then x:=385*(2567-t1)+4820000;

if t2<2567 then x:=385*(t2-t1);

end;

if t2<2567 then

begin

if t1<1083 then x:=385*(1083-t1)+213000+385*(t2-1083);

if t1=1083 then x:=213000+385*(t2-1083);

if t1>1083 then x:=385*(t2-t1);

end;

if t2>2567 then

begin

if t1=2567 then x:=4820000+385*(t2-2567);

if t1>2567 then x:=385*(t2-t1);

end;

if t1<1083 then

begin

if t2=1083 then x:=385*(1083-t1)+213000;

if t2<1083 then x:=385*(t2-t1);

end;

vps:= (x*m)/23200000;

vpb:= (x*m)/32200000;

TextColor (02);

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

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

readln;

clrscr;

goto y;

end.

Реалізація в C

#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¤i (ЄЈ) = ");

scanf("%f", &m);

if (t2 > 2567 & t1 < 1083)

x = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);

if (t2 == 2567 & t1 < 1083)

x = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000;

if (t2 < 2567 & t1 < 1083)

x = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2);

if (t2 == 1083 & t1 < 1083)

x = 385 * (1083 - t1) + 213000;

if (t2 < 1083 & t1 < 1083)

x = 385 * (t2 - t1);

if (t1 == 1083 & t2 > 2567)

x = 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);

if (t1 > 1083 & t2 > 2567)

x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567);

if (t1 == 2567 & t2 > 2567)

x = 4820000 + 385 * (t2 - 2567);

if (t1 > 2567 & t2 > 2567)

x = 385 * (t2 - t1);

if (t1 > 1083)

if (t2 < 2567)

x = 385 * (t2 - t1);

if (t2 > 2567 & t1 == 1083)

x = 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);

if (t2 == 2567 & t1 == 1083)

x = 213000 + 385 * (2567 - 1083) + 4820000;

if (t2 < 2567 & t1 == 1083)

x = 213000 + 385 * (t2 - 1083);

if (t1 < 1083 & t2 == 2567)

x = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000;

if (t1 == 1083 & t2 == 2567)

x = 213000 + 385 * (2567 - 1083) + 4820000;

if (t1 > 1083 & t2 == 2567)

x = 385 * (2567 - t1) + 4820000;

if (t2 > 2567 & t1 > 1083)

x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567);

if (t2 == 2567 & t1 > 1083)

x = 385 * (2567 - t1) + 4820000;

if (t2 < 2567 & t1 > 1083)

x = 385 * (t2 - t1);

if (t1 < 1083 & t2 < 2567)

x = 385 * (1083 - t1) + 213000 + 385 * (t2 - 1083);

if (t1 == 1083 & t2 < 2567)

x = 213000 + 385 * (t2 - 1083);

if (t1 > 1083 & t2 < 2567)

x = 385 * (t2 - t1);

if (t1 == 2567 & t2 > 2567)

x = 4820000 + 385 * (t2 - 2567);

if (t1 > 2567 & t2 > 2567)

x = 385 * (t2 - t1);

if (t2 == 1083 & t1 < 1083)

x = 385 * (1083 - t1) + 213000;

if (t2 < 1083 & t1 < 1083)

x = 385 * (t2 - t1);

vps = (x * m) / 23200000;

vpb = (x * m) / 32200000;

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

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

scanf("\n");

return 0;

}

Реалізація в Qbasic

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¤i (ЄЈ) = ", m

'Маса міді (кг) ='

IF t2 > 2567 AND t1 < 1083 THEN x = 385 * (1083 - t1) + 5604340 + 385 * (t2 - 2567)

IF t2 = 2567 AND t1 < 1083 THEN x = 385 * (1083 - t1) + 5604340

IF t2 < 2567 AND t1 < 1083 THEN x = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2)

IF t2 = 1083 AND t1 < 1083 THEN x = 385 * (1083 - t1) + 213000

IF t2 < 1083 AND t1 < 1083 THEN x = 385 * (t2 - t1)

IF t1 = 1083 AND t2 > 2567 THEN x = 5604340 + 385 * (t2 - 2567)

IF t1 > 1083 AND t2 > 2567 THEN x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

IF t1 = 2567 AND t2 > 2567 THEN x = 4820000 + 385 * (t2 - 2567)

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

IF t1 > 1083 THEN IF t2 < 2567 THEN x = 385 * (t2 - t1)

IF t2 > 2567 AND t1 = 1083 THEN x = 5604340 + 385 * (t2 - 2567)

IF t2 = 2567 AND t1 = 1083 THEN x = 5604340

IF t2 < 2567 AND t1 = 1083 THEN x = 213000 + 385 * (t2 - 1083)

IF t1 < 1083 AND t2 = 2567 THEN x = 385 * (1083 - t1) + 5604340

IF t1 = 1083 AND t2 = 2567 THEN x = 5604340

IF t1 > 1083 AND t2 = 2567 THEN x = 385 * (2567 - t1) + 4820000

IF t2 > 2567 AND t1 > 1083 THEN x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

IF t2 = 2567 AND t1 > 1083 THEN x = 385 * (2567 - t1) + 4820000

IF t2 < 2567 AND t1 > 1083 THEN x = 385 * (t2 - t1)

IF t1 < 1083 AND t2 < 2567 THEN x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

IF t1 = 1083 AND t2 < 2567 THEN x = 213000 + 385 * (t2 - 1083)

IF t1 > 1083 AND t2 < 2567 THEN x = 385 * (t2 - t1)

IF t1 = 2567 AND t2 > 2567 THEN x = 4820000 + 385 * (t2 - 2567)

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

IF t2 = 1083 AND t1 < 1083 THEN x = 385 * (1083 - t1) + 213000

IF t2 < 1083 AND t1 < 1083 THEN x = 385 * (t2 - t1)

vps = (x * m) / 23200000

vpb = (x * m) / 32200000

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

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

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

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

INPUT z

GOTO l

Реалізація в Java

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

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

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

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

Маса міді (кг) = <input name="mfm_m" type="text" value=" " size="4">

</form>

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

</div>

function mfm() {

var t1 = document.mfm.mfm_t1.value;

var t2 = document.mfm.mfm_t2.value;

var m = document.mfm.mfm_m.value;

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

var x ;

if (t2 > 2567 & t1 < 1083)

x = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);

if (t2 == 2567 & t1 < 1083)

x = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000;

if (t2 < 2567 & t1 < 1083)

x = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2);

if (t2 == 1083 & t1 < 1083)

x = 385 * (1083 - t1) + 213000;

if (t2 < 1083 & t1 < 1083)

x = 385 * (t2 - t1);

if (t1 == 1083 & t2 > 2567)

x = 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);

if (t1 > 1083 & t2 > 2567)

x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567);

if (t1 == 2567 & t2 > 2567)

x = 4820000 + 385 * (t2 - 2567);

if (t1 > 2567 & t2 > 2567)

x = 385 * (t2 - t1);

if (t1 > 1083)

if (t2 < 2567)

x = 385 * (t2 - t1);

if (t2 > 2567 & t1 == 1083)

x = 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);

if (t2 == 2567 & t1 == 1083)

x = 213000 + 385 * (2567 - 1083) + 4820000;

if (t2 < 2567 & t1 == 1083)

x = 213000 + 385 * (t2 - 1083);

if (t1 < 1083 & t2 == 2567)

x = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000;

if (t1 == 1083 & t2 == 2567)

x = 213000 + 385 * (2567 - 1083) + 4820000;

if (t1 > 1083 & t2 == 2567)

x = 385 * (2567 - t1) + 4820000;

if (t2 > 2567 & t1 > 1083)

x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567);

if (t2 == 2567 & t1 > 1083)

x = 385 * (2567 - t1) + 4820000;

if (t2 < 2567 & t1 > 1083)

x = 385 * (t2 - t1);

if (t1 < 1083 & t2 < 2567)

x = 385 * (1083 - t1) + 213000 + 385 * (t2 - 1083);

if (t1 == 1083 & t2 < 2567)

x = 213000 + 385 * (t2 - 1083);

if (t1 > 1083 & t2 < 2567)

x = 385 * (t2 - t1);

if (t1 == 2567 & t2 > 2567)

x = 4820000 + 385 * (t2 - 2567);

if (t1 > 2567 & t2 > 2567)

x = 385 * (t2 - t1);

if (t2 == 1083 & t1 < 1083)

x = 385 * (1083 - t1) + 213000;

if (t2 < 1083 & t1 < 1083)

x = 385 * (t2 - t1);

vps = (x * m) / 23200000;

vpb = (x * m) / 32200000;

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

sol.innerHTML = string;

}

</script>

</body>

Реалізація в VB.NET

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дi (кг) = ")

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

Dim x As Double

IF t2 > 2567 AND t1 < 1083 THEN x = 385 * (1083 - t1) + 5604340 + 385 * (t2 - 2567)

IF t2 = 2567 AND t1 < 1083 THEN x = 385 * (1083 - t1) + 5604340

IF t2 < 2567 AND t1 < 1083 THEN x = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2)

IF t2 = 1083 AND t1 < 1083 THEN x = 385 * (1083 - t1) + 213000

IF t2 < 1083 AND t1 < 1083 THEN x = 385 * (t2 - t1)

IF t1 = 1083 AND t2 > 2567 THEN x = 5604340 + 385 * (t2 - 2567)

IF t1 > 1083 AND t2 > 2567 THEN x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

IF t1 = 2567 AND t2 > 2567 THEN x = 4820000 + 385 * (t2 - 2567)

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

IF t1 > 1083 THEN IF t2 < 2567 THEN x = 385 * (t2 - t1)

IF t2 > 2567 AND t1 = 1083 THEN x = 5604340 + 385 * (t2 - 2567)

IF t2 = 2567 AND t1 = 1083 THEN x = 5604340

IF t2 < 2567 AND t1 = 1083 THEN x = 213000 + 385 * (t2 - 1083)

IF t1 < 1083 AND t2 = 2567 THEN x = 385 * (1083 - t1) + 5604340

IF t1 = 1083 AND t2 = 2567 THEN x = 5604340

IF t1 > 1083 AND t2 = 2567 THEN x = 385 * (2567 - t1) + 4820000

IF t2 > 2567 AND t1 > 1083 THEN x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

IF t2 = 2567 AND t1 > 1083 THEN x = 385 * (2567 - t1) + 4820000

IF t2 < 2567 AND t1 > 1083 THEN x = 385 * (t2 - t1)

IF t1 < 1083 AND t2 < 2567 THEN x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

IF t1 = 1083 AND t2 < 2567 THEN x = 213000 + 385 * (t2 - 1083)

IF t1 > 1083 AND t2 < 2567 THEN x = 385 * (t2 - t1)

IF t1 = 2567 AND t2 > 2567 THEN x = 4820000 + 385 * (t2 - 2567)

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

IF t2 = 1083 AND t1 < 1083 THEN x = 385 * (1083 - t1) + 213000

IF t2 < 1083 AND t1 < 1083 THEN x = 385 * (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

Реалізація в Dev-c++

#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дi (кг) = ";

std::cin >> m;

if (t2 > 2567 & t1 < 1083)

x = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);

if (t2 == 2567 & t1 < 1083)

x = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000;

if (t2 < 2567 & t1 < 1083)

x = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2);

if (t2 == 1083 & t1 < 1083)

x = 385 * (1083 - t1) + 213000;

if (t2 < 1083 & t1 < 1083)

x = 385 * (t2 - t1);

if (t1 == 1083 & t2 > 2567)

x = 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);

if (t1 > 1083 & t2 > 2567)

x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567);

if (t1 == 2567 & t2 > 2567)

x = 4820000 + 385 * (t2 - 2567);

if (t1 > 2567 & t2 > 2567)

x = 385 * (t2 - t1);

if (t1 > 1083)

if (t2 < 2567)

x = 385 * (t2 - t1);

if (t2 > 2567 & t1 == 1083)

x = 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);

if (t2 == 2567 & t1 == 1083)

x = 213000 + 385 * (2567 - 1083) + 4820000;

if (t2 < 2567 & t1 == 1083)

x = 213000 + 385 * (t2 - 1083);

if (t1 < 1083 & t2 == 2567)

x = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000;

if (t1 == 1083 & t2 == 2567)

x = 213000 + 385 * (2567 - 1083) + 4820000;

if (t1 > 1083 & t2 == 2567)

x = 385 * (2567 - t1) + 4820000;

if (t2 > 2567 & t1 > 1083)

x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567);

if (t2 == 2567 & t1 > 1083)

x = 385 * (2567 - t1) + 4820000;

if (t2 < 2567 & t1 > 1083)

x = 385 * (t2 - t1);

if (t1 < 1083 & t2 < 2567)

x = 385 * (1083 - t1) + 213000 + 385 * (t2 - 1083);

if (t1 == 1083 & t2 < 2567)

x = 213000 + 385 * (t2 - 1083);

if (t1 > 1083 & t2 < 2567)

x = 385 * (t2 - t1);

if (t1 == 2567 & t2 > 2567)

x = 4820000 + 385 * (t2 - 2567);

if (t1 > 2567 & t2 > 2567)

x = 385 * (t2 - t1);

if (t2 == 1083 & t1 < 1083)

x = 385 * (1083 - t1) + 213000;

if (t2 < 1083 & t1 < 1083)

x = 385 * (t2 - t1);

vps = (x * m) / 23200000;

vpb = (x * m) / 32200000;

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

getch();

return 0;

}

Реалізація в Python

print (' УМОВА')

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

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

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

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

m =float(input('Маса мiдi (кг) ='))

print ('')

if t2 > 2567 and t1 < 1083 : x = 385 * (1083 - t1) + 5604340 + 385 * (t2 - 2567)

if t2 == 2567 and t1 < 1083 : x = 385 * (1083 - t1) + 5604340

if t2 < 2567 and t1 < 1083 : x = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2)

if t2 == 1083 and t1 < 1083 : x = 385 * (1083 - t1) + 213000

if t2 < 1083 and t1 < 1083 : x = 385 * (t2 - t1)

if t1 == 1083 and t2 > 2567 : x = 5604340 + 385 * (t2 - 2567)

if t1 > 1083 and t2 > 2567 : x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

if t1 == 2567 and t2 > 2567 : x = 4820000 + 385 * (t2 - 2567)

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

if t1 > 1083 and t2 < 2567 : x = 385 * (t2 - t1)

if t2 > 2567 and t1 == 1083 : x = 5604340 + 385 * (t2 - 2567)

if t2 == 2567 and t1 == 1083 : x = 5604340

if t2 < 2567 and t1 == 1083 : x = 213000 + 385 * (t2 - 1083)

if t1 < 1083 and t2 == 2567 : x = 385 * (1083 - t1) + 5604340

if t1 == 1083 and t2 == 2567 : x = 5604340

if t1 > 1083 and t2 == 2567 : x = 385 * (2567 - t1) + 4820000

if t2 > 2567 and t1 > 1083 : x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

if t2 == 2567 and t1 > 1083 : x = 385 * (2567 - t1) + 4820000

if t2 < 2567 and t1 > 1083 : x = 385 * (t2 - t1)

if t1 < 1083 and t2 < 2567 : x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

if t1 == 1083 and t2 < 2567 : x = 213000 + 385 * (t2 - 1083)

if t1 > 1083 and t2 < 2567 : x = 385 * (t2 - t1)

if t1 == 2567 and t2 > 2567 : x = 4820000 + 385 * (t2 - 2567)

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

if t2 == 1083 and t1 < 1083 : x = 385 * (1083 - t1) + 213000

if t2 < 1083 and t1 < 1083 : x = 385 * (t2 - t1)

vps = (x * m) / 23200000

vpb = (x * m) / 32200000

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

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

input()

Графічні програми

Реалізація в VB6

Код

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

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 < 1083 Then x = 385 * (1083 - t1) + 5604340 + 385 * (t2 - 2567)

If t2 = 2567 And t1 < 1083 Then x = 385 * (1083 - t1) + 5604340

If t2 < 2567 And t1 < 1083 Then x = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2)

If t2 = 1083 And t1 < 1083 Then x = 385 * (1083 - t1) + 213000

If t2 < 1083 And t1 < 1083 Then x = 385 * (t2 - t1)

If t1 = 1083 And t2 > 2567 Then x = 5604340 + 385 * (t2 - 2567)

If t1 > 1083 And t2 > 2567 Then x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

If t1 = 2567 And t2 > 2567 Then x = 4820000 + 385 * (t2 - 2567)

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

If t1 > 1083 Then If t2 < 2567 Then x = 385 * (t2 - t1)

If t2 > 2567 And t1 = 1083 Then x = 5604340 + 385 * (t2 - 2567)

If t2 = 2567 And t1 = 1083 Then x = 5604340

If t2 < 2567 And t1 = 1083 Then x = 213000 + 385 * (t2 - 1083)

If t1 < 1083 And t2 = 2567 Then x = 385 * (1083 - t1) + 5604340

If t1 = 1083 And t2 = 2567 Then x = 5604340

If t1 > 1083 And t2 = 2567 Then x = 385 * (2567 - t1) + 4820000

If t2 > 2567 And t1 > 1083 Then x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

If t2 = 2567 And t1 > 1083 Then x = 385 * (2567 - t1) + 4820000

If t2 < 2567 And t1 > 1083 Then x = 385 * (t2 - t1)

If t1 < 1083 And t2 < 2567 Then x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

If t1 = 1083 And t2 < 2567 Then x = 213000 + 385 * (t2 - 1083)

If t1 > 1083 And t2 < 2567 Then x = 385 * (t2 - t1)

If t1 = 2567 And t2 > 2567 Then x = 4820000 + 385 * (t2 - 2567)

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

If t2 = 1083 And t1 < 1083 Then x = 385 * (1083 - t1) + 213000

If t2 < 1083 And t1 < 1083 Then x = 385 * (t2 - t1)

vps = (m * x) / 23200000

vpb = (m * x) / 32200000

Text4.Text = vps

Text5.Text = vpb

End Sub

Реалізація в Pascal ABC.NET

Частина коду

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<1083 then

begin

if t2>2567 then x:=385*(1083-t1)+213000+385*(2567-1083)+4820000+385*(t2-2567);

if t2=2567 then x:=385*(1083-t1)+213000+385*(2567-1083)+4820000;

if t2<2567 then x:=385*(1083-t1)+213000+385*(2567-t2);

if t2=1083 then x:=385*(1083-t1)+213000;

if t2<1083 then x:=385*(t2-t1);

end;

if t2>2567 then

begin

if t1=1083 then x:=213000+385*(2567-1083)+4820000+385*(t2-2567);

if t1>1083 then x:=385*(2567-t1)+4820000+385*(t2-2567);

if t1=2567 then x:=4820000+385*(t2-2567);

if t1>2567 then x:=385*(t2-t1);

end;

if t1>1083 then if t2<2567 then x:=385*(t2-t1);

if t1=1083 then

begin

if t2>2567 then x:=213000+385*(2567-1083)+4820000+385*(t2-2567);

if t2=2567 then x:=213000+385*(2567-1083)+4820000;

if t2<2567 then x:=213000+385*(t2-1083);

end;

if t2=2567 then

begin

if t1<1083 then x:=385*(1083-t1)+213000+385*(100-1083)+4820000;

if t1=1083 then x:=213000+385*(2567-1083)+4820000;

if t1>1083 then x:=385*(2567-t1)+4820000;

end;

if t1>1083 then

begin

if t2>2567 then x:=385*(2567-t1)+4820000+385*(t2-2567);

if t2=2567 then x:=385*(2567-t1)+4820000;

if t2<2567 then x:=385*(t2-t1);

end;

if t2<2567 then

begin

if t1<1083 then x:=385*(1083-t1)+213000+385*(t2-1083);

if t1=1083 then x:=213000+385*(t2-1083);

if t1>1083 then x:=385*(t2-t1);

end;

if t2>2567 then

begin

if t1=2567 then x:=4820000+385*(t2-2567);

if t1>2567 then x:=385*(t2-t1);

end;

if t1<1083 then

begin

if t2=1083 then x:=385*(1083-t1)+213000;

if t2<1083 then x:=385*(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;

Реалізація в VB.NET

Код

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 < 1083 Then x = 385 * (1083 - t1) + 5604340 + 385 * (t2 - 2567)

If t2 = 2567 And t1 < 1083 Then x = 385 * (1083 - t1) + 5604340

If t2 < 2567 And t1 < 1083 Then x = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2)

If t2 = 1083 And t1 < 1083 Then x = 385 * (1083 - t1) + 213000

If t2 < 1083 And t1 < 1083 Then x = 385 * (t2 - t1)

If t1 = 1083 And t2 > 2567 Then x = 5604340 + 385 * (t2 - 2567)

If t1 > 1083 And t2 > 2567 Then x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

If t1 = 2567 And t2 > 2567 Then x = 4820000 + 385 * (t2 - 2567)

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

If t1 > 1083 Then If t2 < 2567 Then x = 385 * (t2 - t1)

If t2 > 2567 And t1 = 1083 Then x = 5604340 + 385 * (t2 - 2567)

If t2 = 2567 And t1 = 1083 Then x = 5604340

If t2 < 2567 And t1 = 1083 Then x = 213000 + 385 * (t2 - 1083)

If t1 < 1083 And t2 = 2567 Then x = 385 * (1083 - t1) + 5604340

If t1 = 1083 And t2 = 2567 Then x = 5604340

If t1 > 1083 And t2 = 2567 Then x = 385 * (2567 - t1) + 4820000

If t2 > 2567 And t1 > 1083 Then x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

If t2 = 2567 And t1 > 1083 Then x = 385 * (2567 - t1) + 4820000

If t2 < 2567 And t1 > 1083 Then x = 385 * (t2 - t1)

If t1 < 1083 And t2 < 2567 Then x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

If t1 = 1083 And t2 < 2567 Then x = 213000 + 385 * (t2 - 1083)

If t1 > 1083 And t2 < 2567 Then x = 385 * (t2 - t1)

If t1 = 2567 And t2 > 2567 Then x = 4820000 + 385 * (t2 - 2567)

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

If t2 = 1083 And t1 < 1083 Then x = 385 * (1083 - t1) + 213000

If t2 < 1083 And t1 < 1083 Then x = 385 * (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

Реалізація в Python

Код

from tkinter import *

def click ():

t1 = float (entry1.get())

t2 = float (entry2.get())

m = float (entry3.get())

if t2 > 2567 and t1 < 1083 : x = 385 * (1083 - t1) + 5604340 + 385 * (t2 - 2567)

if t2 == 2567 and t1 < 1083 : x = 385 * (1083 - t1) + 5604340

if t2 < 2567 and t1 < 1083 : x = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2)

if t2 == 1083 and t1 < 1083 : x = 385 * (1083 - t1) + 213000

if t2 < 1083 and t1 < 1083 : x = 385 * (t2 - t1)

if t1 == 1083 and t2 > 2567 : x = 5604340 + 385 * (t2 - 2567)

if t1 > 1083 and t2 > 2567 : x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

if t1 == 2567 and t2 > 2567 : x = 4820000 + 385 * (t2 - 2567)

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

if t1 > 1083 and t2 < 2567 : x = 385 * (t2 - t1)

if t2 > 2567 and t1 == 1083 : x = 5604340 + 385 * (t2 - 2567)

if t2 == 2567 and t1 == 1083 : x = 5604340

if t2 < 2567 and t1 == 1083 : x = 213000 + 385 * (t2 - 1083)

if t1 < 1083 and t2 == 2567 : x = 385 * (1083 - t1) + 5604340

if t1 == 1083 and t2 == 2567 : x = 5604340

if t1 > 1083 and t2 == 2567 : x = 385 * (2567 - t1) + 4820000

if t2 > 2567 and t1 > 1083 : x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

if t2 == 2567 and t1 > 1083 : x = 385 * (2567 - t1) + 4820000

if t2 < 2567 and t1 > 1083 : x = 385 * (t2 - t1)

if t1 < 1083 and t2 < 2567 : x = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)

if t1 == 1083 and t2 < 2567 : x = 213000 + 385 * (t2 - 1083)

if t1 > 1083 and t2 < 2567 : x = 385 * (t2 - t1)

if t1 == 2567 and t2 > 2567 : x = 4820000 + 385 * (t2 - 2567)

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

if t2 == 1083 and t1 < 1083 : x = 385 * (1083 - t1) + 213000

if t2 < 1083 and t1 < 1083 : x = 385 * (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)