Речовина - свинець

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

TextColor (03);

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

readln(t1);

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

readln(t2);

write ('Маса свинцю (кг) = ');

readln(m);

if t1<328 then

begin

if t2>1749 then x:=130*(328-t1)+25000+130*(1749-328)+855000+130*(t2-1749);

if t2=1749 then x:=130*(328-t1)+25000+130*(1749-328)+855000;

if t2<1749 then x:=130*(328-t1)+25000+130*(1749-t2);

if t2=328 then x:=130*(328-t1)+25000;

if t2<328 then x:=130*(t2-t1);

end;

if t2>1749 then

begin

if t1=328 then x:=25000+130*(1749-328)+855000+130*(t2-1749);

if t1>328 then x:=130*(1749-t1)+855000+130*(t2-1749);

if t1=1749 then x:=855000+130*(t2-1749);

if t1>1749 then x:=130*(t2-t1);

end;

if t1>328 then if t2<1749 then x:=130*(t2-t1);

if t1=328 then

begin

if t2>1749 then x:=25000+130*(1749-328)+855000+130*(t2-1749);

if t2=1749 then x:=25000+130*(1749-328)+855000;

if t2<1749 then x:=25000+130*(t2-328);

end;

if t2=1749 then

begin

if t1<328 then x:=130*(328-t1)+25000+130*(100-328)+855000;

if t1=328 then x:=25000+130*(1749-328)+855000;

if t1>328 then x:=130*(1749-t1)+855000;

end;

if t1>328 then

begin

if t2>1749 then x:=130*(1749-t1)+855000+130*(t2-1749);

if t2=1749 then x:=130*(1749-t1)+855000;

if t2<1749 then x:=130*(t2-t1);

end;

if t2<1749 then

begin

if t1<328 then x:=130*(328-t1)+25000+130*(t2-328);

if t1=328 then x:=25000+130*(t2-328);

if t1>328 then x:=130*(t2-t1);

end;

if t2>1749 then

begin

if t1=1749 then x:=855000+130*(t2-1749);

if t1>1749 then x:=130*(t2-t1);

end;

if t1<328 then

begin

if t2=328 then x:=130*(328-t1)+25000;

if t2<328 then x:=130*(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 ЇҐўЁе вҐ¬ЇҐа вга.\n \n");

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

scanf("%f", &t1);

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

scanf("%f", &t2);

printf ( "Њ б бўЁжо (ЄЈ) = ");

scanf("%f", &m);

if (t2 > 1749 & t1 < 328)

x = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000 + 130 * (t2 - 1749);

if (t2 == 1749 & t1 < 328)

x = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000;

if (t2 < 1749 & t1 < 328)

x = 130 * (328 - t1) + 25000 + 130 * (1749 - t2);

if (t2 == 328 & t1 < 328)

x = 130 * (328 - t1) + 25000;

if (t2 < 328 & t1 < 328)

x = 130 * (t2 - t1);

if (t1 == 328 & t2 > 1749)

x = 25000 + 130 * (855 - 328) + 855000 + 130 * (t2 - 1749);

if (t1 > 328 & t2 > 1749)

x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749);

if (t1 == 1749 & t2 > 1749)

x = 855000 + 130 * (t2 - 1749);

if (t1 > 1749 & t2 > 1749)

x = 130 * (t2 - t1);

if (t1 > 328)

if (t2 < 1749)

x = 130 * (t2 - t1);

if (t2 > 1749 & t1 == 328)

x = 25000 + 130 * (1749 - 328) + 855000 + 130 * (t2 - 1749);

if (t2 == 1749 & t1 == 328)

x = 25000 + 130 * (1749 - 328) + 855000;

if (t2 < 1749 & t1 == 328)

x = 25000 + 130 * (t2 - 328);

if (t1 < 328 & t2 == 1749)

x = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000;

if (t1 == 328 & t2 == 1749)

x = 25000 + 130 * (1749 - 328) + 855000;

if (t1 > 328 & t2 == 1749)

x = 130 * (1749 - t1) + 855000;

if (t2 > 1749 & t1 > 328)

x = 130 * (855 - t1) + 855000 + 130 * (t2 - 1749);

if (t2 == 1749 & t1 > 328)

x = 130 * (1749 - t1) + 855000;

if (t2 < 1749 & t1 > 328)

x = 130 * (t2 - t1);

if (t1 < 328 & t2 < 1749)

x = 130 * (328 - t1) + 25000 + 130 * (t2 - 328);

if (t1 == 328 & t2 < 1749)

x = 25000 + 130 * (t2 - 328);

if (t1 > 328 & t2 < 1749)

x = 130 * (t2 - t1);

if (t1 == 1749 & t2 > 1749)

x = 855000 + 130 * (t2 - 1749);

if (t1 > 1749 & t2 > 1749)

x = 130 * (t2 - t1);

if (t2 == 328 & t1 < 328)

x = 130 * (328 - t1) + 25000;

if (t2 < 328 & t1 < 328)

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

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

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

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

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

INPUT "Њ б бўЁжо (ЄЈ) = ", m

'Маса свинцю (кг) ='

IF t2 > 1749 AND t1 < 328 THEN x = 130 * (328 - t1) + 1064730 + 130 * (t2 - 1749)

IF t2 = 1749 AND t1 < 328 THEN x = 130 * (328 - t1) + 1064730

IF t2 < 1749 AND t1 < 328 THEN x = 130 * (328 - t1) + 25000 + 130 * (1749 - t2)

IF t2 = 328 AND t1 < 328 THEN x = 130 * (328 - t1) + 25000

IF t2 < 328 AND t1 < 328 THEN x = 130 * (t2 - t1)

IF t1 = 328 AND t2 > 1749 THEN x = 1064730 + 130 * (t2 - 1749)

IF t1 > 328 AND t2 > 1749 THEN x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

IF t1 = 1749 AND t2 > 1749 THEN x = 855000 + 130 * (t2 - 1749)

IF t1 > 1749 AND t2 > 1749 THEN x = 130 * (t2 - t1)

IF t1 > 328 THEN IF t2 < 1749 THEN x = 130 * (t2 - t1)

IF t2 > 1749 AND t1 = 328 THEN x = 1064730 + 130 * (t2 - 1749)

IF t2 = 1749 AND t1 = 328 THEN x = 1064730

IF t2 < 1749 AND t1 = 328 THEN x = 25000 + 130 * (t2 - 328)

IF t1 < 328 AND t2 = 1749 THEN x = 130 * (328 - t1) + 1064730

IF t1 = 328 AND t2 = 1749 THEN x = 1064730

IF t1 > 328 AND t2 = 1749 THEN x = 130 * (1749 - t1) + 855000

IF t2 > 1749 AND t1 > 328 THEN x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

IF t2 = 1749 AND t1 > 328 THEN x = 130 * (1749 - t1) + 855000

IF t2 < 1749 AND t1 > 328 THEN x = 130 * (t2 - t1)

IF t1 < 328 AND t2 < 1749 THEN x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

IF t1 = 328 AND t2 < 1749 THEN x = 25000 + 130 * (t2 - 328)

IF t1 > 328 AND t2 < 1749 THEN x = 130 * (t2 - t1)

IF t1 = 1749 AND t2 > 1749 THEN x = 855000 + 130 * (t2 - 1749)

IF t1 > 1749 AND t2 > 1749 THEN x = 130 * (t2 - t1)

IF t2 = 328 AND t1 < 328 THEN x = 130 * (328 - t1) + 25000

IF t2 < 328 AND t1 < 328 THEN x = 130 * (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="mfs_t1" type="text" value=" " size="4">

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

Маса свинцю (кг) = <input name="mfs_m" type="text" value=" " size="4">

</form>

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

</div>

function mfs() {

var t1 = document.mfs.mfs_t1.value;

var t2 = document.mfs.mfs_t2.value;

var m = document.mfs.mfs_m.value;

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

var x ;

if (t2 > 1749 & t1 < 328)

x = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000 + 130 * (t2 - 1749);

if (t2 == 1749 & t1 < 328)

x = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000;

if (t2 < 1749 & t1 < 328)

x = 130 * (328 - t1) + 25000 + 130 * (1749 - t2);

if (t2 == 328 & t1 < 328)

x = 130 * (328 - t1) + 25000;

if (t2 < 328 & t1 < 328)

x = 130 * (t2 - t1);

if (t1 == 328 & t2 > 1749)

x = 25000 + 130 * (855 - 328) + 855000 + 130 * (t2 - 1749);

if (t1 > 328 & t2 > 1749)

x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749);

if (t1 == 1749 & t2 > 1749)

x = 855000 + 130 * (t2 - 1749);

if (t1 > 1749 & t2 > 1749)

x = 130 * (t2 - t1);

if (t1 > 328)

if (t2 < 1749)

x = 130 * (t2 - t1);

if (t2 > 1749 & t1 == 328)

x = 25000 + 130 * (1749 - 328) + 855000 + 130 * (t2 - 1749);

if (t2 == 1749 & t1 == 328)

x = 25000 + 130 * (1749 - 328) + 855000;

if (t2 < 1749 & t1 == 328)

x = 25000 + 130 * (t2 - 328);

if (t1 < 328 & t2 == 1749)

x = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000;

if (t1 == 328 & t2 == 1749)

x = 25000 + 130 * (1749 - 328) + 855000;

if (t1 > 328 & t2 == 1749)

x = 130 * (1749 - t1) + 855000;

if (t2 > 1749 & t1 > 328)

x = 130 * (855 - t1) + 855000 + 130 * (t2 - 1749);

if (t2 == 1749 & t1 > 328)

x = 130 * (1749 - t1) + 855000;

if (t2 < 1749 & t1 > 328)

x = 130 * (t2 - t1);

if (t1 < 328 & t2 < 1749)

x = 130 * (328 - t1) + 25000 + 130 * (t2 - 328);

if (t1 == 328 & t2 < 1749)

x = 25000 + 130 * (t2 - 328);

if (t1 > 328 & t2 < 1749)

x = 130 * (t2 - t1);

if (t1 == 1749 & t2 > 1749)

x = 855000 + 130 * (t2 - 1749);

if (t1 > 1749 & t2 > 1749)

x = 130 * (t2 - t1);

if (t2 == 328 & t1 < 328)

x = 130 * (328 - t1) + 25000;

if (t2 < 328 & t1 < 328)

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

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("Маса свинцю (кг) = ")

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

Dim x As Double

IF t2 > 1749 AND t1 < 328 THEN x = 130 * (328 - t1) + 1064730 + 130 * (t2 - 1749)

IF t2 = 1749 AND t1 < 328 THEN x = 130 * (328 - t1) + 1064730

IF t2 < 1749 AND t1 < 328 THEN x = 130 * (328 - t1) + 25000 + 130 * (1749 - t2)

IF t2 = 328 AND t1 < 328 THEN x = 130 * (328 - t1) + 25000

IF t2 < 328 AND t1 < 328 THEN x = 130 * (t2 - t1)

IF t1 = 328 AND t2 > 1749 THEN x = 1064730 + 130 * (t2 - 1749)

IF t1 > 328 AND t2 > 1749 THEN x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

IF t1 = 1749 AND t2 > 1749 THEN x = 855000 + 130 * (t2 - 1749)

IF t1 > 1749 AND t2 > 1749 THEN x = 130 * (t2 - t1)

IF t1 > 328 THEN IF t2 < 1749 THEN x = 130 * (t2 - t1)

IF t2 > 1749 AND t1 = 328 THEN x = 1064730 + 130 * (t2 - 1749)

IF t2 = 1749 AND t1 = 328 THEN x = 1064730

IF t2 < 1749 AND t1 = 328 THEN x = 25000 + 130 * (t2 - 328)

IF t1 < 328 AND t2 = 1749 THEN x = 130 * (328 - t1) + 1064730

IF t1 = 328 AND t2 = 1749 THEN x = 1064730

IF t1 > 328 AND t2 = 1749 THEN x = 130 * (1749 - t1) + 855000

IF t2 > 1749 AND t1 > 328 THEN x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

IF t2 = 1749 AND t1 > 328 THEN x = 130 * (1749 - t1) + 855000

IF t2 < 1749 AND t1 > 328 THEN x = 130 * (t2 - t1)

IF t1 < 328 AND t2 < 1749 THEN x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

IF t1 = 328 AND t2 < 1749 THEN x = 25000 + 130 * (t2 - 328)

IF t1 > 328 AND t2 < 1749 THEN x = 130 * (t2 - t1)

IF t1 = 1749 AND t2 > 1749 THEN x = 855000 + 130 * (t2 - 1749)

IF t1 > 1749 AND t2 > 1749 THEN x = 130 * (t2 - t1)

IF t2 = 328 AND t1 < 328 THEN x = 130 * (328 - t1) + 25000

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

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

std::cin >> t1;

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

std::cin >> t2;

std::cout << "Маса свинцю (кг) = ";

std::cin >> m;

if (t2 > 1749 & t1 < 328)

x = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000 + 130 * (t2 - 1749);

if (t2 == 1749 & t1 < 328)

x = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000;

if (t2 < 1749 & t1 < 328)

x = 130 * (328 - t1) + 25000 + 130 * (1749 - t2);

if (t2 == 328 & t1 < 328)

x = 130 * (328 - t1) + 25000;

if (t2 < 328 & t1 < 328)

x = 130 * (t2 - t1);

if (t1 == 328 & t2 > 1749)

x = 25000 + 130 * (855 - 328) + 855000 + 130 * (t2 - 1749);

if (t1 > 328 & t2 > 1749)

x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749);

if (t1 == 1749 & t2 > 1749)

x = 855000 + 130 * (t2 - 1749);

if (t1 > 1749 & t2 > 1749)

x = 130 * (t2 - t1);

if (t1 > 328)

if (t2 < 1749)

x = 130 * (t2 - t1);

if (t2 > 1749 & t1 == 328)

x = 25000 + 130 * (1749 - 328) + 855000 + 130 * (t2 - 1749);

if (t2 == 1749 & t1 == 328)

x = 25000 + 130 * (1749 - 328) + 855000;

if (t2 < 1749 & t1 == 328)

x = 25000 + 130 * (t2 - 328);

if (t1 < 328 & t2 == 1749)

x = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000;

if (t1 == 328 & t2 == 1749)

x = 25000 + 130 * (1749 - 328) + 855000;

if (t1 > 328 & t2 == 1749)

x = 130 * (1749 - t1) + 855000;

if (t2 > 1749 & t1 > 328)

x = 130 * (855 - t1) + 855000 + 130 * (t2 - 1749);

if (t2 == 1749 & t1 > 328)

x = 130 * (1749 - t1) + 855000;

if (t2 < 1749 & t1 > 328)

x = 130 * (t2 - t1);

if (t1 < 328 & t2 < 1749)

x = 130 * (328 - t1) + 25000 + 130 * (t2 - 328);

if (t1 == 328 & t2 < 1749)

x = 25000 + 130 * (t2 - 328);

if (t1 > 328 & t2 < 1749)

x = 130 * (t2 - t1);

if (t1 == 1749 & t2 > 1749)

x = 855000 + 130 * (t2 - 1749);

if (t1 > 1749 & t2 > 1749)

x = 130 * (t2 - t1);

if (t2 == 328 & t1 < 328)

x = 130 * (328 - t1) + 25000;

if (t2 < 328 & t1 < 328)

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

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

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

m =float(input('Маса свинцю (кг) ='))

print ('')

if t2 > 1749 and t1 < 328 : x = 130 * (328 - t1) + 1064730 + 130 * (t2 - 1749)

if t2 == 1749 and t1 < 328 : x = 130 * (328 - t1) + 1064730

if t2 < 1749 and t1 < 328 : x = 130 * (328 - t1) + 25000 + 130 * (1749 - t2)

if t2 == 328 and t1 < 328 : x = 130 * (328 - t1) + 25000

if t2 < 328 and t1 < 328 : x = 130 * (t2 - t1)

if t1 == 328 and t2 > 1749 : x = 1064730 + 130 * (t2 - 1749)

if t1 > 328 and t2 > 1749 : x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

if t1 == 1749 and t2 > 1749 : x = 855000 + 130 * (t2 - 1749)

if t1 > 1749 and t2 > 1749 : x = 130 * (t2 - t1)

if t1 > 328 and t2 < 1749 : x = 130 * (t2 - t1)

if t2 > 1749 and t1 == 328 : x = 1064730 + 130 * (t2 - 1749)

if t2 == 1749 and t1 == 328 : x = 1064730

if t2 < 1749 and t1 == 328 : x = 25000 + 130 * (t2 - 328)

if t1 < 328 and t2 == 1749 : x = 130 * (328 - t1) + 1064730

if t1 == 328 and t2 == 1749 : x = 1064730

if t1 > 328 and t2 == 1749 : x = 130 * (1749 - t1) + 855000

if t2 > 1749 and t1 > 328 : x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

if t2 == 1749 and t1 > 328 : x = 130 * (1749 - t1) + 855000

if t2 < 1749 and t1 > 328 : x = 130 * (t2 - t1)

if t1 < 328 and t2 < 1749 : x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

if t1 == 328 and t2 < 1749 : x = 25000 + 130 * (t2 - 328)

if t1 > 328 and t2 < 1749 : x = 130 * (t2 - t1)

if t1 == 1749 and t2 > 1749 : x = 855000 + 130 * (t2 - 1749)

if t1 > 1749 and t2 > 1749 : x = 130 * (t2 - t1)

if t2 == 328 and t1 < 328 : x = 130 * (328 - t1) + 25000

if t2 < 328 and t1 < 328 : x = 130 * (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 > 1749 And t1 < 328 Then x = 130 * (328 - t1) + 1064730 + 130 * (t2 - 1749)

If t2 = 1749 And t1 < 328 Then x = 130 * (328 - t1) + 1064730

If t2 < 1749 And t1 < 328 Then x = 130 * (328 - t1) + 25000 + 130 * (1749 - t2)

If t2 = 328 And t1 < 328 Then x = 130 * (328 - t1) + 25000

If t2 < 328 And t1 < 328 Then x = 130 * (t2 - t1)

If t1 = 328 And t2 > 1749 Then x = 1064730 + 130 * (t2 - 1749)

If t1 > 328 And t2 > 1749 Then x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

If t1 = 1749 And t2 > 1749 Then x = 855000 + 130 * (t2 - 1749)

If t1 > 1749 And t2 > 1749 Then x = 130 * (t2 - t1)

If t1 > 328 Then If t2 < 1749 Then x = 130 * (t2 - t1)

If t2 > 1749 And t1 = 328 Then x = 1064730 + 130 * (t2 - 1749)

If t2 = 1749 And t1 = 328 Then x = 1064730

If t2 < 1749 And t1 = 328 Then x = 25000 + 130 * (t2 - 328)

If t1 < 328 And t2 = 1749 Then x = 130 * (328 - t1) + 1064730

If t1 = 328 And t2 = 1749 Then x = 1064730

If t1 > 328 And t2 = 1749 Then x = 130 * (1749 - t1) + 855000

If t2 > 1749 And t1 > 328 Then x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

If t2 = 1749 And t1 > 328 Then x = 130 * (1749 - t1) + 855000

If t2 < 1749 And t1 > 328 Then x = 130 * (t2 - t1)

If t1 < 328 And t2 < 1749 Then x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

If t1 = 328 And t2 < 1749 Then x = 25000 + 130 * (t2 - 328)

If t1 > 328 And t2 < 1749 Then x = 130 * (t2 - t1)

If t1 = 1749 And t2 > 1749 Then x = 855000 + 130 * (t2 - 1749)

If t1 > 1749 And t2 > 1749 Then x = 130 * (t2 - t1)

If t2 = 328 And t1 < 328 Then x = 130 * (328 - t1) + 25000

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

begin

t1:=StrToFloat(TextBox1.Text);

t2:=StrToFloat(TextBox2.Text);

m:=StrToFloat(TextBox3.Text);

if t1<328 then

begin

if t2>1749 then x:=130*(328-t1)+25000+130*(1749-328)+855000+130*(t2-1749);

if t2=1749 then x:=130*(328-t1)+25000+130*(1749-328)+855000;

if t2<1749 then x:=130*(328-t1)+25000+130*(1749-t2);

if t2=328 then x:=130*(328-t1)+25000;

if t2<328 then x:=130*(t2-t1);

end;

if t2>1749 then

begin

if t1=328 then x:=25000+130*(1749-328)+855000+130*(t2-1749);

if t1>328 then x:=130*(1749-t1)+855000+130*(t2-1749);

if t1=1749 then x:=855000+130*(t2-1749);

if t1>1749 then x:=130*(t2-t1);

end;

if t1>328 then if t2<1749 then x:=130*(t2-t1);

if t1=328 then

begin

if t2>1749 then x:=25000+130*(1749-328)+855000+130*(t2-1749);

if t2=1749 then x:=25000+130*(1749-328)+855000;

if t2<1749 then x:=25000+130*(t2-328);

end;

if t2=1749 then

begin

if t1<328 then x:=130*(328-t1)+25000+130*(100-328)+855000;

if t1=328 then x:=25000+130*(1749-328)+855000;

if t1>328 then x:=130*(1749-t1)+855000;

end;

if t1>328 then

begin

if t2>1749 then x:=130*(1749-t1)+855000+130*(t2-1749);

if t2=1749 then x:=130*(1749-t1)+855000;

if t2<1749 then x:=130*(t2-t1);

end;

if t2<1749 then

begin

if t1<328 then x:=130*(328-t1)+25000+130*(t2-328);

if t1=328 then x:=25000+130*(t2-328);

if t1>328 then x:=130*(t2-t1);

end;

if t2>1749 then

begin

if t1=1749 then x:=855000+130*(t2-1749);

if t1>1749 then x:=130*(t2-t1);

end;

if t1<328 then

begin

if t2=328 then x:=130*(328-t1)+25000;

if t2<328 then x:=130*(t2-t1);

end;

vps:= (x*m)/23200000;

vpb:= (x*m)/32200000;

TextBox5.Text:= FloatToStr(vps);

TextBox7.Text:= FloatToStr(vpb);

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 > 1749 And t1 < 328 Then x = 130 * (328 - t1) + 1064730 + 130 * (t2 - 1749)

If t2 = 1749 And t1 < 328 Then x = 130 * (328 - t1) + 1064730

If t2 < 1749 And t1 < 328 Then x = 130 * (328 - t1) + 25000 + 130 * (1749 - t2)

If t2 = 328 And t1 < 328 Then x = 130 * (328 - t1) + 25000

If t2 < 328 And t1 < 328 Then x = 130 * (t2 - t1)

If t1 = 328 And t2 > 1749 Then x = 1064730 + 130 * (t2 - 1749)

If t1 > 328 And t2 > 1749 Then x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

If t1 = 1749 And t2 > 1749 Then x = 855000 + 130 * (t2 - 1749)

If t1 > 1749 And t2 > 1749 Then x = 130 * (t2 - t1)

If t1 > 328 Then If t2 < 1749 Then x = 130 * (t2 - t1)

If t2 > 1749 And t1 = 328 Then x = 1064730 + 130 * (t2 - 1749)

If t2 = 1749 And t1 = 328 Then x = 1064730

If t2 < 1749 And t1 = 328 Then x = 25000 + 130 * (t2 - 328)

If t1 < 328 And t2 = 1749 Then x = 130 * (328 - t1) + 1064730

If t1 = 328 And t2 = 1749 Then x = 1064730

If t1 > 328 And t2 = 1749 Then x = 130 * (1749 - t1) + 855000

If t2 > 1749 And t1 > 328 Then x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

If t2 = 1749 And t1 > 328 Then x = 130 * (1749 - t1) + 855000

If t2 < 1749 And t1 > 328 Then x = 130 * (t2 - t1)

If t1 < 328 And t2 < 1749 Then x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

If t1 = 328 And t2 < 1749 Then x = 25000 + 130 * (t2 - 328)

If t1 > 328 And t2 < 1749 Then x = 130 * (t2 - t1)

If t1 = 1749 And t2 > 1749 Then x = 855000 + 130 * (t2 - 1749)

If t1 > 1749 And t2 > 1749 Then x = 130 * (t2 - t1)

If t2 = 328 And t1 < 328 Then x = 130 * (328 - t1) + 25000

If t2 < 328 And t1 < 328 Then x = 130 * (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 > 1749 and t1 < 328 : x = 130 * (328 - t1) + 1064730 + 130 * (t2 - 1749)

if t2 == 1749 and t1 < 328 : x = 130 * (328 - t1) + 1064730

if t2 < 1749 and t1 < 328 : x = 130 * (328 - t1) + 25000 + 130 * (1749 - t2)

if t2 == 328 and t1 < 328 : x = 130 * (328 - t1) + 25000

if t2 < 328 and t1 < 328 : x = 130 * (t2 - t1)

if t1 == 328 and t2 > 1749 : x = 1064730 + 130 * (t2 - 1749)

if t1 > 328 and t2 > 1749 : x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

if t1 == 1749 and t2 > 1749 : x = 855000 + 130 * (t2 - 1749)

if t1 > 1749 and t2 > 1749 : x = 130 * (t2 - t1)

if t1 > 328 and t2 < 1749 : x = 130 * (t2 - t1)

if t2 > 1749 and t1 == 328 : x = 1064730 + 130 * (t2 - 1749)

if t2 == 1749 and t1 == 328 : x = 1064730

if t2 < 1749 and t1 == 328 : x = 25000 + 130 * (t2 - 328)

if t1 < 328 and t2 == 1749 : x = 130 * (328 - t1) + 1064730

if t1 == 328 and t2 == 1749 : x = 1064730

if t1 > 328 and t2 == 1749 : x = 130 * (1749 - t1) + 855000

if t2 > 1749 and t1 > 328 : x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

if t2 == 1749 and t1 > 328 : x = 130 * (1749 - t1) + 855000

if t2 < 1749 and t1 > 328 : x = 130 * (t2 - t1)

if t1 < 328 and t2 < 1749 : x = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)

if t1 == 328 and t2 < 1749 : x = 25000 + 130 * (t2 - 328)

if t1 > 328 and t2 < 1749 : x = 130 * (t2 - t1)

if t1 == 1749 and t2 > 1749 : x = 855000 + 130 * (t2 - 1749)

if t1 > 1749 and t2 > 1749 : x = 130 * (t2 - t1)

if t2 == 328 and t1 < 328 : x = 130 * (328 - t1) + 25000

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