Для всіх даних речовин (вода (лід), алюміній, свинець, мідь, ртуть, залізо)
Для всіх даних речовин (вода (лід), алюміній, свинець, мідь, ртуть, залізо)
Embedded Files
Реалізація в Pascal ABC.NET
Реалізація в Pascal ABC.NET
program mf;
Uses CRT;
label y;
var t1,t2,m,vpbv,vpba,vpbr,vpbs,vpbm,vpbz,vpsv,vpsa,vpsr,vpss,vpsm,vpsz,xv,xa,xr,xs,xm,xz:real;
begin
TextColor (02);
y: writeln (' УМОВА');
writeln ('Скiльки лiтрiв палива треба, щоб нагрiти ');
writeln ('воду (лiд), алюмiнiй, свинець, мiдь, ртуть');
writeln ('i залiзо в iнтервалi певних температур.');
TextColor (03);
write ('Початкова Температура (в CI) = ');
readln(t1);
write ('Кiнцева Температура (в CI) = ');
readln(t2);
write ('Маса речовини (кг) = ');
readln(m);
if t1<0 then
begin
if t2>100 then xv:=2100*(0-t1)+330000+4200*(100-0)+2260000+4200*(t2-100);
if t2=100 then xv:=2100*(0-t1)+330000+4200*(100-0)+2260000;
if t2<100 then xv:=2100*(0-t1)+330000+4200*(100-t2);
if t2=0 then xv:=2100*(0-t1)+330000;
if t2<0 then xv:=2100*(t2-t1);
end;
if t2>100 then
begin
if t1=0 then xv:=330000+4200*(100-0)+2260000+4200*(t2-100);
if t1>0 then xv:=4200*(100-t1)+2260000+4200*(t2-100);
if t1=100 then xv:=2260000+4200*(t2-100);
if t1>100 then xv:=4200*(t2-t1);
end;
if t1>0 then if t2<100 then xv:=4200*(t2-t1);
if t1=0 then
begin
if t2>100 then xv:=330000+4200*(100-0)+2260000+4200*(t2-100);
if t2=100 then xv:=330000+4200*(100-0)+2260000;
if t2<100 then xv:=330000+4200*(t2-0);
end;
if t2=100 then
begin
if t1<0 then xv:=2100*(0-t1)+330000+4200*(100-0)+2260000;
if t1=0 then xv:=330000+4200*(100-0)+2260000;
if t1>0 then xv:=4200*(100-t1)+2260000;
end;
if t1>0 then
begin
if t2>100 then xv:=4200*(100-t1)+2260000+4200*(t2-100);
if t2=100 then xv:=4200*(100-t1)+2260000;
if t2<100 then xv:=4200*(t2-t1);
end;
if t2<100 then
begin
if t1<0 then xv:=2100*(0-t1)+330000+4200*(t2-0);
if t1=0 then xv:=330000+4200*(t2-0);
if t1>0 then xv:=4200*(t2-t1);
end;
if t2>100 then
begin
if t1=100 then xv:=2260000+4200*(t2-100);
if t1>100 then xv:=4200*(t2-t1);
end;
if t1<0 then
begin
if t2=0 then xv:=2100*(0-t1)+330000;
if t2<0 then xv:=2100*(t2-t1);
end;
vpsv:= (xv*m)/23200000;
vpbv:= (xv*m)/32200000;
if t1<660 then
begin
if t2>2519 then xa:=897*(660-t1)+390000+897*(2519-660)+10900000+897*(t2-2519);
if t2=2519 then xa:=897*(660-t1)+390000+897*(2519-660)+10900000;
if t2<2519 then xa:=897*(660-t1)+390000+897*(2519-t2);
if t2=660 then xa:=897*(660-t1)+390000;
if t2<660 then xa:=897*(t2-t1);
end;
if t2>2519 then
begin
if t1=660 then xa:=390000+897*(2519-660)+10900000+897*(t2-2519);
if t1>660 then xa:=897*(2519-t1)+10900000+897*(t2-2519);
if t1=2519 then xa:=10900000+897*(t2-2519);
if t1>2519 then xa:=897*(t2-t1);
end;
if t1>660 then if t2<2519 then xa:=897*(t2-t1);
if t1=660 then
begin
if t2>2519 then xa:=390000+897*(2519-660)+10900000+897*(t2-2519);
if t2=2519 then xa:=390000+897*(2519-660)+10900000;
if t2<2519 then xa:=390000+897*(t2-660);
end;
if t2=2519 then
begin
if t1<660 then xa:=897*(660-t1)+390000+897*(100-660)+10900000;
if t1=660 then xa:=390000+897*(2519-660)+10900000;
if t1>660 then xa:=897*(2519-t1)+10900000;
end;
if t1>660 then
begin
if t2>2519 then xa:=897*(2519-t1)+10900000+897*(t2-2519);
if t2=2519 then xa:=897*(2519-t1)+10900000;
if t2<2519 then xa:=897*(t2-t1);
end;
if t2<2519 then
begin
if t1<660 then xa:=897*(660-t1)+390000+897*(t2-660);
if t1=660 then xa:=390000+897*(t2-660);
if t1>660 then xa:=897*(t2-t1);
end;
if t2>2519 then
begin
if t1=2519 then xa:=10900000+897*(t2-2519);
if t1>2519 then xa:=897*(t2-t1);
end;
if t1<660 then
begin
if t2=660 then xa:=897*(660-t1)+390000;
if t2<660 then xa:=897*(t2-t1);
end;
vpsa:= (xa*m)/23200000;
vpba:= (xa*m)/32200000;
if t1<(-39) then
begin
if t2>357 then xr:=140*((-39)-t1)+12000+140*(357-(-39))+282000+140*(t2-357);
if t2=357 then xr:=140*((-39)-t1)+12000+140*(357-(-39))+282000;
if t2<357 then xr:=140*((-39)-t1)+12000+140*(357-t2);
if t2=(-39) then xr:=140*((-39)-t1)+12000;
if t2<(-39) then xr:=140*(t2-t1);
end;
if t2>357 then
begin
if t1=(-39) then xr:=12000+140*(357-(-39))+282000+140*(t2-357);
if t1>(-39) then xr:=140*(357-t1)+282000+140*(t2-357);
if t1=357 then xr:=282000+140*(t2-357);
if t1>357 then xr:=140*(t2-t1);
end;
if t1>(-39) then if t2<357 then xr:=140*(t2-t1);
if t1=(-39) then
begin
if t2>357 then xr:=12000+140*(357-(-39))+282000+140*(t2-357);
if t2=357 then xr:=12000+140*(357-(-39))+282000;
if t2<357 then xr:=12000+140*(t2-(-39));
end;
if t2=357 then
begin
if t1<(-39) then xr:=140*((-39)-t1)+12000+140*(100-(-39))+282000;
if t1=(-39) then xr:=12000+140*(357-(-39))+282000;
if t1>(-39) then xr:=140*(357-t1)+282000;
end;
if t1>(-39) then
begin
if t2>357 then xr:=140*(357-t1)+282000+140*(t2-357);
if t2=357 then xr:=140*(357-t1)+282000;
if t2<357 then xr:=140*(t2-t1);
end;
if t2<357 then
begin
if t1<(-39) then xr:=140*((-39)-t1)+12000+140*(t2-(-39));
if t1=(-39) then xr:=12000+140*(t2-(-39));
if t1>(-39) then xr:=140*(t2-t1);
end;
if t2>357 then
begin
if t1=357 then xr:=282000+140*(t2-357);
if t1>357 then xr:=140*(t2-t1);
end;
if t1<(-39) then
begin
if t2=(-39) then xr:=140*((-39)-t1)+12000;
if t2<(-39) then xr:=140*(t2-t1);
end;
vpsr:= (xr*m)/23200000;
vpbr:= (xr*m)/32200000;
if t1<328 then
begin
if t2>1749 then xs:=130*(328-t1)+25000+130*(1749-328)+855000+130*(t2-1749);
if t2=1749 then xs:=130*(328-t1)+25000+130*(1749-328)+855000;
if t2<1749 then xs:=130*(328-t1)+25000+130*(1749-t2);
if t2=328 then xs:=130*(328-t1)+25000;
if t2<328 then xs:=130*(t2-t1);
end;
if t2>1749 then
begin
if t1=328 then xs:=25000+130*(1749-328)+855000+130*(t2-1749);
if t1>328 then xs:=130*(1749-t1)+855000+130*(t2-1749);
if t1=1749 then xs:=855000+130*(t2-1749);
if t1>1749 then xs:=130*(t2-t1);
end;
if t1>328 then if t2<1749 then xs:=130*(t2-t1);
if t1=328 then
begin
if t2>1749 then xs:=25000+130*(1749-328)+855000+130*(t2-1749);
if t2=1749 then xs:=25000+130*(1749-328)+855000;
if t2<1749 then xs:=25000+130*(t2-328);
end;
if t2=1749 then
begin
if t1<328 then xs:=130*(328-t1)+25000+130*(100-328)+855000;
if t1=328 then xs:=25000+130*(1749-328)+855000;
if t1>328 then xs:=130*(1749-t1)+855000;
end;
if t1>328 then
begin
if t2>1749 then xs:=130*(1749-t1)+855000+130*(t2-1749);
if t2=1749 then xs:=130*(1749-t1)+855000;
if t2<1749 then xs:=130*(t2-t1);
end;
if t2<1749 then
begin
if t1<328 then xs:=130*(328-t1)+25000+130*(t2-328);
if t1=328 then xs:=25000+130*(t2-328);
if t1>328 then xs:=130*(t2-t1);
end;
if t2>1749 then
begin
if t1=1749 then xs:=855000+130*(t2-1749);
if t1>1749 then xs:=130*(t2-t1);
end;
if t1<328 then
begin
if t2=328 then xs:=130*(328-t1)+25000;
if t2<328 then xs:=130*(t2-t1);
end;
vpss:= (xs*m)/23200000;
vpbs:= (xs*m)/32200000;
if t1<1083 then
begin
if t2>2567 then xm:=385*(1083-t1)+213000+385*(2567-1083)+4820000+385*(t2-2567);
if t2=2567 then xm:=385*(1083-t1)+213000+385*(2567-1083)+4820000;
if t2<2567 then xm:=385*(1083-t1)+213000+385*(2567-t2);
if t2=1083 then xm:=385*(1083-t1)+213000;
if t2<1083 then xm:=385*(t2-t1);
end;
if t2>2567 then
begin
if t1=1083 then xm:=213000+385*(2567-1083)+4820000+385*(t2-2567);
if t1>1083 then xm:=385*(2567-t1)+4820000+385*(t2-2567);
if t1=2567 then xm:=4820000+385*(t2-2567);
if t1>2567 then xm:=385*(t2-t1);
end;
if t1>1083 then if t2<2567 then xm:=385*(t2-t1);
if t1=1083 then
begin
if t2>2567 then xm:=213000+385*(2567-1083)+4820000+385*(t2-2567);
if t2=2567 then xm:=213000+385*(2567-1083)+4820000;
if t2<2567 then xm:=213000+385*(t2-1083);
end;
if t2=2567 then
begin
if t1<1083 then xm:=385*(1083-t1)+213000+385*(100-1083)+4820000;
if t1=1083 then xm:=213000+385*(2567-1083)+4820000;
if t1>1083 then xm:=385*(2567-t1)+4820000;
end;
if t1>1083 then
begin
if t2>2567 then xm:=385*(2567-t1)+4820000+385*(t2-2567);
if t2=2567 then xm:=385*(2567-t1)+4820000;
if t2<2567 then xm:=385*(t2-t1);
end;
if t2<2567 then
begin
if t1<1083 then xm:=385*(1083-t1)+213000+385*(t2-1083);
if t1=1083 then xm:=213000+385*(t2-1083);
if t1>1083 then xm:=385*(t2-t1);
end;
if t2>2567 then
begin
if t1=2567 then xm:=4820000+385*(t2-2567);
if t1>2567 then xm:=385*(t2-t1);
end;
if t1<1083 then
begin
if t2=1083 then xm:=385*(1083-t1)+213000;
if t2<1083 then xm:=385*(t2-t1);
end;
vpsm:= (xm*m)/23200000;
vpbm:= (xm*m)/32200000;
if t1<1539 then
begin
if t2>2831 then xz:=449*(1539-t1)+277000+449*(2831-1539)+6120000+449*(t2-2831);
if t2=2831 then xz:=449*(1539-t1)+277000+449*(2831-1539)+6120000;
if t2<2831 then xz:=449*(1539-t1)+277000+449*(2831-t2);
if t2=1539 then xz:=449*(1539-t1)+277000;
if t2<1539 then xz:=449*(t2-t1);
end;
if t2>2831 then
begin
if t1=1539 then xz:=277000+449*(2831-1539)+6120000+449*(t2-2831);
if t1>1539 then xz:=449*(2831-t1)+6120000+449*(t2-2831);
if t1=2831 then xz:=6120000+449*(t2-2831);
if t1>2831 then xz:=449*(t2-t1);
end;
if t1>1539 then if t2<2831 then xz:=449*(t2-t1);
if t1=1539 then
begin
if t2>2831 then xz:=277000+449*(2831-1539)+6120000+449*(t2-2831);
if t2=2831 then xz:=277000+449*(2831-1539)+6120000;
if t2<2831 then xz:=277000+449*(t2-1539);
end;
if t2=2831 then
begin
if t1<1539 then xz:=449*(1539-t1)+277000+449*(100-1539)+6120000;
if t1=1539 then xz:=277000+449*(2831-1539)+6120000;
if t1>1539 then xz:=449*(2831-t1)+6120000;
end;
if t1>1539 then
begin
if t2>2831 then xz:=449*(2831-t1)+6120000+449*(t2-2831);
if t2=2831 then xz:=449*(2831-t1)+6120000;
if t2<2831 then xz:=449*(t2-t1);
end;
if t2<2831 then
begin
if t1<1539 then xz:=449*(1539-t1)+277000+449*(t2-1539);
if t1=1539 then xz:=277000+449*(t2-1539);
if t1>1539 then xz:=449*(t2-t1);
end;
if t2>2831 then
begin
if t1=2831 then xz:=6120000+449*(t2-2831);
if t1>2831 then xz:=449*(t2-t1);
end;
if t1<1539 then
begin
if t2=1539 then xz:=449*(1539-t1)+277000;
if t2<1539 then xz:=449*(t2-t1);
end;
vpsz:= (xz*m)/23200000;
vpbz:= (xz*m)/32200000;
TextColor (02);
writeln (' ');
writeln ('Об`єм спирту для води (л) = ',vpsv);
writeln ('Об`єм бензину для води (л) = ',vpbv);
writeln (' ');
writeln ('Об`єм спирту для алюмiнiю (л) = ',vpsa);
writeln ('Об`єм бензину для алюмiнiю (л) = ',vpba);
writeln (' ');
writeln ('Об`єм спирту для ртутi (л) = ',vpsr);
writeln ('Об`єм бензину для ртутi(л) = ',vpbr);
writeln (' ');
writeln ('Об`єм спирту для свинцю (л) = ',vpss);
writeln ('Об`єм бензину для свинцю (л) = ',vpbs);
writeln (' ');
writeln ('Об`єм спирту для мiдi (л) = ',vpsm);
writeln ('Об`єм бензину для мiдi (л) = ',vpbm);
writeln (' ');
writeln ('Об`єм спирту для залiза (л) = ',vpsz);
writeln ('Об`єм бензину для залiза (л) = ',vpbz);
readln;
clrscr;
goto y;
end.
Реалізація в C
Реалізація в C
#include <stdio.h>
int main(void)
{
float t1,t2,m,vpbv,vpba,vpbr,vpbs,vpbm,vpbz,vpsv,vpsa,vpsr,vpss,vpsm,vpsz,xv,xa,xr,xs,xm,xz;
printf (" “¬®ў \n‘Єi«мЄЁ «iваiў Ї «Ёў вॡ , й®Ў ЈаiвЁ \nў®¤г(«i¤), «о¬ii©, авгвм,бўЁҐжм,¬i¤м \ni § «i§® ў iвҐаў «i ЇҐўЁе ⥬ЇҐа вга.\n \n");
printf ( "Џ®з вЄ®ў ⥬ЇҐа вга (ў CI) = ");
scanf("%f", &t1);
printf ( "Љi楢 ⥬ЇҐа вга (ў CI) = ");
scanf("%f", &t2);
printf ( "Њ б аҐз®ўЁЁ (ЄЈ) = ");
scanf("%f", &m);
if (t2 > 100 & t1 < 0)
xv = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 < 0)
xv = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000;
if (t2 < 100 & t1 < 0)
xv = 2100 * (0 - t1) + 330000 + 4200 * (100 - t2);
if (t2 == 0 & t1 < 0)
xv = 2100 * (0 - t1) + 330000;
if (t2 < 0 & t1 < 0)
xv = 2100 * (t2 - t1);
if (t1 == 0 & t2 > 100)
xv = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t1 > 0 & t2 > 100)
xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100);
if (t1 == 100 & t2 > 100)
xv = 2260000 + 4200 * (t2 - 100);
if (t1 > 100 & t2 > 100)
xv = 4200 * (t2 - t1);
if (t1 > 0)
if (t2 < 100)
xv = 4200 * (t2 - t1);
if (t2 > 100 & t1 == 0)
xv = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 == 0)
xv = 330000 + 4200 * (100 - 0) + 2260000;
if (t2 < 100 & t1 == 0)
xv = 330000 + 4200 * (t2 - 0);
if (t1 < 0 & t2 == 100)
xv = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000;
if (t1 == 0 & t2 == 100)
xv = 330000 + 4200 * (100 - 0) + 2260000;
if (t1 > 0 & t2 == 100)
xv = 4200 * (100 - t1) + 2260000;
if (t2 > 100 & t1 > 0)
xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 > 0)
xv = 4200 * (100 - t1) + 2260000;
if (t2 < 100 & t1 > 0)
xv = 4200 * (t2 - t1);
if (t1 < 0 & t2 < 100)
xv = 2100 * (0 - t1) + 330000 + 4200 * (t2 - 0);
if (t1 == 0 & t2 < 100)
xv = 330000 + 4200 * (t2 - 0);
if (t1 > 0 & t2 < 100)
xv = 4200 * (t2 - t1);
if (t1 == 100 & t2 > 100)
xv = 2260000 + 4200 * (t2 - 100);
if (t1 > 100 & t2 > 100)
xv = 4200 * (t2 - t1);
if (t2 == 0 & t1 < 0)
xv = 2100 * (0 - t1) + 330000;
if (t2 < 0 & t1 < 0)
xv = 2100 * (t2 - t1);
vpsv = (xv * m) / 23200000;
vpbv = (xv * m) / 32200000;
if (t2 > 2519 & t1 < 660)
xa = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);
if (t2 == 2519 & t1 < 660)
xa = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000;
if (t2 < 2519 & t1 < 660)
xa = 897 * (660 - t1) + 390000 + 897 * (2519 - t2);
if (t2 == 660 & t1 < 660)
xa = 897 * (660 - t1) + 390000;
if (t2 < 660 & t1 < 660)
xa = 897 * (t2 - t1);
if (t1 == 660 & t2 > 2519)
xa = 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);
if (t1 > 660 & t2 > 2519)
xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519);
if (t1 == 2519 & t2 > 2519)
xa = 10900000 + 897 * (t2 - 2519);
if (t1 > 2519 & t2 > 2519)
xa = 897 * (t2 - t1);
if (t1 > 660)
if (t2 < 2519)
xa = 897 * (t2 - t1);
if (t2 > 2519 & t1 == 660)
xa = 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);
if (t2 == 2519 & t1 == 660)
xa = 390000 + 897 * (2519 - 660) + 10900000;
if (t2 < 2519 & t1 == 660)
xa = 390000 + 897 * (t2 - 660);
if (t1 < 660 & t2 == 2519)
xa = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000;
if (t1 == 660 & t2 == 2519)
xa = 390000 + 897 * (2519 - 660) + 10900000;
if (t1 > 660 & t2 == 2519)
xa = 897 * (2519 - t1) + 10900000;
if (t2 > 2519 & t1 > 660)
xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519);
if (t2 == 2519 & t1 > 660)
xa = 897 * (2519 - t1) + 10900000;
if (t2 < 2519 & t1 > 660)
xa = 897 * (t2 - t1);
if (t1 < 660 & t2 < 2519)
xa = 897 * (660 - t1) + 390000 + 897 * (t2 - 660);
if (t1 == 660 & t2 < 2519)
xa = 390000 + 897 * (t2 - 660);
if (t1 > 660 & t2 < 2519)
xa = 897 * (t2 - t1);
if (t1 == 2519 & t2 > 2519)
xa = 10900000 + 897 * (t2 - 2519);
if (t1 > 2519 & t2 > 2519)
xa = 897 * (t2 - t1);
if (t2 == 660 & t1 < 660)
xa = 897 * (660 - t1) + 390000;
if (t2 < 660 & t1 < 660)
xa = 897 * (t2 - t1);
vpsa = (xa * m) / 23200000;
vpba = (xa * m) / 32200000;
if (t2 > 357 & t1 < -39)
xr = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);
if (t2 == 357 & t1 < -39)
xr = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000;
if (t2 < 357 & t1 < -39)
xr = 140 * (-39 - t1) + 12000 + 140 * (357 - t2);
if (t2 == -39 & t1 < -39)
xr = 140 * (-39 - t1) + 12000;
if (t2 < -39 & t1 < -39)
xr = 140 * (t2 - t1);
if (t1 == -39 & t2 > 357)
xr = 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);
if (t1 > -39 & t2 > 357)
xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357);
if (t1 == 357 & t2 > 357)
xr = 282000 + 140 * (t2 - 357);
if (t1 > 357 & t2 > 357)
xr = 140 * (t2 - t1);
if (t1 > -39)
if (t2 < 357)
xr = 140 * (t2 - t1);
if (t2 > 357 & t1 == -39)
xr = 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);
if (t2 == 357 & t1 == -39)
xr = 12000 + 140 * (357 - (-39)) + 282000;
if (t2 < 357 & t1 == -39)
xr = 12000 + 140 * (t2 - (-39));
if (t1 < -39 & t2 == 357)
xr = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000;
if (t1 == -39 & t2 == 357)
xr = 12000 + 140 * (357 - -39) + 282000;
if (t1 > -39 & t2 == 357)
xr = 140 * (357 - t1) + 282000;
if (t2 > 357 & t1 > -39)
xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357);
if (t2 == 357 & t1 > -39)
xr = 140 * (357 - t1) + 282000;
if (t2 < 357 & t1 > -39)
xr = 140 * (t2 - t1);
if (t1 < -39 & t2 < 357)
xr = 140 * (-39 - t1) + 12000 + 140 * (t2 - (-39));
if (t1 == -39 & t2 < 357)
xr = 12000 + 140 * (t2 - (-39));
if (t1 > -39 & t2 < 357)
xr = 140 * (t2 - t1);
if (t1 == 357 & t2 > 357)
xr = 282000 + 140 * (t2 - 357);
if (t1 > 357 & t2 > 357)
xr = 140 * (t2 - t1);
if (t2 == -39 & t1 < -39)
xr = 140 * (-39 - t1) + 12000;
if (t2 < -39 & t1 < -39)
xr = 140 * (t2 - t1);
vpsr = (xr * m) / 23200000;
vpbr = (xr * m) / 32200000;
if (t2 > 1749 & t1 < 328)
xs = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000 + 130 * (t2 - 1749);
if (t2 == 1749 & t1 < 328)
xs = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000;
if (t2 < 1749 & t1 < 328)
xs = 130 * (328 - t1) + 25000 + 130 * (1749 - t2);
if (t2 == 328 & t1 < 328)
xs = 130 * (328 - t1) + 25000;
if (t2 < 328 & t1 < 328)
xs = 130 * (t2 - t1);
if (t1 == 328 & t2 > 1749)
xs = 25000 + 130 * (855 - 328) + 855000 + 130 * (t2 - 1749);
if (t1 > 328 & t2 > 1749)
xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749);
if (t1 == 1749 & t2 > 1749)
xs = 855000 + 130 * (t2 - 1749);
if (t1 > 1749 & t2 > 1749)
xs = 130 * (t2 - t1);
if (t1 > 328)
if (t2 < 1749)
xs = 130 * (t2 - t1);
if (t2 > 1749 & t1 == 328)
xs = 25000 + 130 * (1749 - 328) + 855000 + 130 * (t2 - 1749);
if (t2 == 1749 & t1 == 328)
xs = 25000 + 130 * (1749 - 328) + 855000;
if (t2 < 1749 & t1 == 328)
xs = 25000 + 130 * (t2 - 328);
if (t1 < 328 & t2 == 1749)
xs = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000;
if (t1 == 328 & t2 == 1749)
xs = 25000 + 130 * (1749 - 328) + 855000;
if (t1 > 328 & t2 == 1749)
xs = 130 * (1749 - t1) + 855000;
if (t2 > 1749 & t1 > 328)
xs = 130 * (855 - t1) + 855000 + 130 * (t2 - 1749);
if (t2 == 1749 & t1 > 328)
xs = 130 * (1749 - t1) + 855000;
if (t2 < 1749 & t1 > 328)
xs = 130 * (t2 - t1);
if (t1 < 328 & t2 < 1749)
xs = 130 * (328 - t1) + 25000 + 130 * (t2 - 328);
if (t1 == 328 & t2 < 1749)
xs = 25000 + 130 * (t2 - 328);
if (t1 > 328 & t2 < 1749)
xs = 130 * (t2 - t1);
if (t1 == 1749 & t2 > 1749)
xs = 855000 + 130 * (t2 - 1749);
if (t1 > 1749 & t2 > 1749)
xs = 130 * (t2 - t1);
if (t2 == 328 & t1 < 328)
xs = 130 * (328 - t1) + 25000;
if (t2 < 328 & t1 < 328)
xs = 130 * (t2 - t1);
vpss = (xs * m) / 23200000;
vpbs = (xs * m) / 32200000;
if (t2 > 2567 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);
if (t2 == 2567 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000;
if (t2 < 2567 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2);
if (t2 == 1083 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000;
if (t2 < 1083 & t1 < 1083)
xm = 385 * (t2 - t1);
if (t1 == 1083 & t2 > 2567)
xm = 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);
if (t1 > 1083 & t2 > 2567)
xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567);
if (t1 == 2567 & t2 > 2567)
xm = 4820000 + 385 * (t2 - 2567);
if (t1 > 2567 & t2 > 2567)
xm = 385 * (t2 - t1);
if (t1 > 1083)
if (t2 < 2567)
xm = 385 * (t2 - t1);
if (t2 > 2567 & t1 == 1083)
xm = 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);
if (t2 == 2567 & t1 == 1083)
xm = 213000 + 385 * (2567 - 1083) + 4820000;
if (t2 < 2567 & t1 == 1083)
xm = 213000 + 385 * (t2 - 1083);
if (t1 < 1083 & t2 == 2567)
xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000;
if (t1 == 1083 & t2 == 2567)
xm = 213000 + 385 * (2567 - 1083) + 4820000;
if (t1 > 1083 & t2 == 2567)
xm = 385 * (2567 - t1) + 4820000;
if (t2 > 2567 & t1 > 1083)
xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567);
if (t2 == 2567 & t1 > 1083)
xm = 385 * (2567 - t1) + 4820000;
if (t2 < 2567 & t1 > 1083)
xm = 385 * (t2 - t1);
if (t1 < 1083 & t2 < 2567)
xm = 385 * (1083 - t1) + 213000 + 385 * (t2 - 1083);
if (t1 == 1083 & t2 < 2567)
xm = 213000 + 385 * (t2 - 1083);
if (t1 > 1083 & t2 < 2567)
xm = 385 * (t2 - t1);
if (t1 == 2567 & t2 > 2567)
xm = 4820000 + 385 * (t2 - 2567);
if (t1 > 2567 & t2 > 2567)
xm = 385 * (t2 - t1);
if (t2 == 1083 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000;
if (t2 < 1083 & t1 < 1083)
xm = 385 * (t2 - t1);
vpsm = (xm * m) / 23200000;
vpbm = (xm * m) / 32200000;
if (t2 > 2861 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000 + 449 * (t2 - 2861);
if (t2 == 2861 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000;
if (t2 < 2861 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000 + 449 * (2861 - t2);
if (t2 == 1539 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000;
if (t2 < 1539 & t1 < 1539)
xz = 449 * (t2 - t1);
if (t1 == 1539 & t2 > 2861)
xz = 277000 + 449 * (855 - 1539) + 6120000 + 449 * (t2 - 2861);
if (t1 > 1539 & t2 > 2861)
xz = 449 * (2861 - t1) + 6120000 + 449 * (t2 - 2861);
if (t1 == 2861 & t2 > 2861)
xz = 6120000 + 449 * (t2 - 2861);
if (t1 > 2861 & t2 > 2861)
xz = 449 * (t2 - t1);
if (t1 > 1539)
if (t2 < 2861)
xz = 449 * (t2 - t1);
if (t2 > 2861 & t1 == 1539)
xz = 277000 + 449 * (2861 - 1539) + 6120000 + 449 * (t2 - 2861);
if (t2 == 2861 & t1 == 1539)
xz = 277000 + 449 * (2861 - 1539) + 6120000;
if (t2 < 2861 & t1 == 1539)
xz = 277000 + 449 * (t2 - 1539);
if (t1 < 1539 & t2 == 2861)
xz = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000;
if (t1 == 1539 & t2 == 2861)
xz = 277000 + 449 * (2861 - 1539) + 6120000;
if (t1 > 1539 & t2 == 2861)
xz = 449 * (2861 - t1) + 6120000;
if (t2 > 2861 & t1 > 1539)
xz = 449 * (855 - t1) + 6120000 + 449 * (t2 - 2861);
if (t2 == 2861 & t1 > 1539)
xz = 449 * (2861 - t1) + 6120000;
if (t2 < 2861 & t1 > 1539)
xz = 449 * (t2 - t1);
if (t1 < 1539 & t2 < 2861)
xz = 449 * (1539 - t1) + 277000 + 449 * (t2 - 1539);
if (t1 == 1539 & t2 < 2861)
xz = 277000 + 449 * (t2 - 1539);
if (t1 > 1539 & t2 < 2861)
xz = 449 * (t2 - t1);
if (t1 == 2861 & t2 > 2861)
xz = 6120000 + 449 * (t2 - 2861);
if (t1 > 2861 & t2 > 2861)
xz = 449 * (t2 - t1);
if (t2 == 1539 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000;
if (t2 < 1539 & t1 < 1539)
xz = 449 * (t2 - t1);
vpsz = (xz * m) / 23200000;
vpbz = (xz * m) / 32200000;
printf ("\nЋЎ©Ґ¬ бЇЁавг ¤«п ў®¤Ё («) = %f", vpsv);
printf ("\nЋЎ©Ґ¬ ЎҐ§Ёг ¤«п ў®¤Ё («) = %f", vpbv);
printf ("\n");
printf ("\nЋЎ©Ґ¬ бЇЁавг ¤«п «о¬iiо («) = %f", vpsa);
printf ("\nЋЎ©Ґ¬ ЎҐ§Ёг ¤«п «о¬iiо («) = %f", vpba);
printf ("\n");
printf ("\nЋЎ©Ґ¬ бЇЁавг ¤«п авгвi («) = %f", vpsr);
printf ("\nЋЎ©Ґ¬ ЎҐ§Ёг ¤«п авгвi («) = %f", vpbr);
printf ("\n");
printf ("\nЋЎ©Ґ¬ бЇЁавг ¤«п бўЁжо («) = %f", vpss);
printf ("\nЋЎ©Ґ¬ ЎҐ§Ёг ¤«п бўЁжо («) = %f", vpbs);
printf ("\n");
printf ("\nЋЎ©Ґ¬ бЇЁавг ¤«п ¬i¤i («) = %f", vpsm);
printf ("\nЋЎ©Ґ¬ ЎҐ§Ёг ¤«п ¬i¤i («) = %f", vpbm);
printf ("\n");
printf ("\nЋЎ©Ґ¬ бЇЁавг ¤«п § «i§ («) = %f", vpsz);
printf ("\nЋЎ©Ґ¬ ЎҐ§Ёг ¤«п § «i§ («) = %f", vpbz);
scanf("\n");
return 0;
}
Реалізація в Qbasic
Реалізація в Qbasic
l: CLS
PRINT " “¬®ў "
' УМОВА
PRINT "‘Єi«мЄЁ «iваiў Ї «Ёў вॡ , й®Ў ЈаiвЁ"
PRINT "ў®¤г(«i¤), «о¬ii©, авгвм,бўЁҐжм,¬i¤м"
PRINT "i § «i§® ў iвҐаў «i ЇҐўЁе ⥬ЇҐа вга."
'Скiльки лiтрiв палива треба, щоб нагрiти
'воду (лід), алюміній, свинець, мідь, ртуть
'і залізо в iнтервалi певних температур.
INPUT "Џ®з вЄ®ў ⥬ЇҐа вга (ў CI) = ", t1
'Початкова Температура (в Цельсiях)
INPUT "Љi楢 ⥬ЇҐа вга (ў CI) = ", t2
'Кiнцева Температура (в СІ)
INPUT "Њ б аҐз®ўЁЁ (ЄЈ) = ", m
'Маса речовини (кг) ='
IF t2 > 100 AND t1 < 0 THEN xv = 2100 * (-t1) + 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
IF t2 = 100 AND t1 < 0 THEN xv = 2100 * (-t1) + 330000 + 420000 + 2260000
IF t2 < 100 AND t1 < 0 THEN xv = 2100 * (-t1) + 330000 + 4200 * (100 - t2)
IF t2 = 0 AND t1 < 0 THEN xv = 2100 * (-t1) + 330000
IF t2 < 0 AND t1 < 0 THEN xv = 2100 * (t2 - t1)
IF t1 = 0 AND t2 > 100 THEN xv = 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
IF t1 > 0 AND t2 > 100 THEN xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
IF t1 = 100 AND t2 > 100 THEN xv = 2260000 + 4200 * (t2 - 100)
IF t1 > 100 AND t2 > 100 THEN xv = 4200 * (t2 - t1)
IF t1 > 0 THEN IF t2 < 100 THEN xv = 4200 * (t2 - t1)
IF t2 > 100 AND t1 = 0 THEN xv = 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
IF t2 = 100 AND t1 = 0 THEN xv = 330000 + 420000 + 2260000
IF t2 < 100 AND t1 = 0 THEN xv = 330000 + 4200 * t2
IF t1 < 0 AND t2 = 100 THEN xv = 2100 * (-t1) + 330000 + 420000 + 2260000
IF t1 = 0 AND t2 = 100 THEN xv = 330000 + 420000 + 2260000
IF t1 > 0 AND t2 = 100 THEN xv = 4200 * (100 - t1) + 2260000
IF t2 > 100 AND t1 > 0 THEN xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
IF t2 = 100 AND t1 > 0 THEN xv = 4200 * (100 - t1) + 2260000
IF t2 < 100 AND t1 > 0 THEN xv = 4200 * (t2 - t1)
IF t1 < 0 AND t2 < 100 THEN xv = 2100 * (-t1) + 330000 + 4200 * t2
IF t1 = 0 AND t2 < 100 THEN xv = 330000 + 4200 * t2
IF t1 > 0 AND t2 < 100 THEN xv = 4200 * (t2 - t1)
IF t1 = 100 AND t2 > 100 THEN xv = 2260000 + 4200 * (t2 - 100)
IF t1 > 100 AND t2 > 100 THEN xv = 4200 * (t2 - t1)
IF t2 = 0 AND t1 < 0 THEN xv = 2100 * t1 + 330000
IF t2 < 0 AND t1 < 0 THEN xv = 2100 * (t2 - t1)
vpsv = (xv * m) / 23200000
vpbv = (xv * m) / 32200000
IF t2 > 2519 AND t1 < 660 THEN xa = 897 * (660 - t1) + 12957523 + 897 * (t2 - 2519)
IF t2 = 2519 AND t1 < 660 THEN xa = 897 * (660 - t1) + 12957523
IF t2 < 2519 AND t1 < 660 THEN xa = 897 * (660 - t1) + 390000 + 897 * (2519 - t2)
IF t2 = 660 AND t1 < 660 THEN xa = 897 * (660 - t1) + 390000
IF t2 < 660 AND t1 < 660 THEN xa = 897 * (t2 - t1)
IF t1 = 660 AND t2 > 2519 THEN xa = 12957523 + 897 * (t2 - 2519)
IF t1 > 660 AND t2 > 2519 THEN xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
IF t1 = 2519 AND t2 > 2519 THEN xa = 10900000 + 897 * (t2 - 2519)
IF t1 > 2519 AND t2 > 2519 THEN xa = 897 * (t2 - t1)
IF t1 > 660 THEN IF t2 < 2519 THEN xa = 897 * (t2 - t1)
IF t2 > 2519 AND t1 = 660 THEN xa = 12957523 + 897 * (t2 - 2519)
IF t2 = 2519 AND t1 = 660 THEN xa = 12957523
IF t2 < 2519 AND t1 = 660 THEN xa = 390000 + 897 * (t2 - 660)
IF t1 < 660 AND t2 = 2519 THEN xa = 897 * (660 - t1) + 12957523
IF t1 = 660 AND t2 = 2519 THEN xa = 12957523
IF t1 > 660 AND t2 = 2519 THEN xa = 897 * (2519 - t1) + 10900000
IF t2 > 2519 AND t1 > 660 THEN xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
IF t2 = 2519 AND t1 > 660 THEN xa = 897 * (2519 - t1) + 10900000
IF t2 < 2519 AND t1 > 660 THEN xa = 897 * (t2 - t1)
IF t1 < 660 AND t2 < 2519 THEN xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
IF t1 = 660 AND t2 < 2519 THEN xa = 10900000 + 897 * (t2 - 2519)
IF t1 > 660 AND t2 < 2519 THEN xa = 897 * (t2 - t1)
IF t1 = 2519 AND t2 > 2519 THEN xa = 10900000 + 897 * (t2 - 2519)
IF t1 > 2519 AND t2 > 2519 THEN xa = 897 * (t2 - t1)
IF t2 = 660 AND t1 < 660 THEN xa = 897 * (660 - t1) + 390000
IF t2 < 660 AND t1 < 660 THEN xa = 897 * (t2 - t1)
vpsa = (xa * m) / 23200000
vpba = (xa * m) / 32200000
IF t2 > 357 AND t1 < (-39) THEN xr = 140 * ((-39) - t1) + 349440 + 140 * (t2 - 357)
IF t2 = 357 AND t1 < (-39) THEN xr = 140 * ((-39) - t1) + 349440
IF t2 < 357 AND t1 < (-39) THEN xr = 140 * ((-39) - t1) + 12000 + 140 * (357 - t2)
IF t2 = (-39) AND t1 < (-39) THEN xr = 140 * ((-39) - t1) + 12000
IF t2 < (-39) AND t1 < (-39) THEN xr = 140 * (t2 - t1)
IF t1 = (-39) AND t2 > 357 THEN xr = 349440 + 140 * (t2 - 357)
IF t1 > (-39) AND t2 > 357 THEN xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
IF t1 = 357 AND t2 > 357 THEN xr = 282000 + 140 * (t2 - 357)
IF t1 > 357 AND t2 > 357 THEN xr = 140 * (t2 - t1)
IF t1 > (-39) THEN IF t2 < 357 THEN xr = 140 * (t2 - t1)
IF t2 > 357 AND t1 = (-39) THEN xr = 349440 + 140 * (t2 - 357)
IF t2 = 357 AND t1 = (-39) THEN xr = 349440
IF t2 < 357 AND t1 = (-39) THEN xr = 12000 + 140 * (t2 - (-39))
IF t1 < (-39) AND t2 = 357 THEN xr = 140 * ((-39) - t1) + 349440
IF t1 = (-39) AND t2 = 357 THEN xr = 349440
IF t1 > (-39) AND t2 = 357 THEN xr = 140 * (357 - t1) + 282000
IF t2 > 357 AND t1 > (-39) THEN xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
IF t2 = 357 AND t1 > (-39) THEN xr = 140 * (357 - t1) + 282000
IF t2 < 357 AND t1 > (-39) THEN xr = 140 * (t2 - t1)
IF t1 < (-39) AND t2 < 357 THEN xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
IF t1 = (-39) AND t2 < 357 THEN xr = 282000 + 140 * (t2 - 357)
IF t1 > (-39) AND t2 < 357 THEN xr = 140 * (t2 - t1)
IF t1 = 357 AND t2 > 357 THEN xr = 282000 + 140 * (t2 - 357)
IF t1 > 357 AND t2 > 357 THEN xr = 140 * (t2 - t1)
IF t2 = (-39) AND t1 < (-39) THEN xr = 140 * ((-39) - t1) + 12000
IF t2 < (-39) AND t1 < (-39) THEN xr = 140 * (t2 - t1)
vpsr = (xr * m) / 23200000
vpbr = (xr * m) / 32200000
IF t2 > 1749 AND t1 < 328 THEN xs = 130 * (328 - t1) + 1064730 + 130 * (t2 - 1749)
IF t2 = 1749 AND t1 < 328 THEN xs = 130 * (328 - t1) + 1064730
IF t2 < 1749 AND t1 < 328 THEN xs = 130 * (328 - t1) + 25000 + 130 * (1749 - t2)
IF t2 = 328 AND t1 < 328 THEN xs = 130 * (328 - t1) + 25000
IF t2 < 328 AND t1 < 328 THEN xs = 130 * (t2 - t1)
IF t1 = 328 AND t2 > 1749 THEN xs = 1064730 + 130 * (t2 - 1749)
IF t1 > 328 AND t2 > 1749 THEN xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
IF t1 = 1749 AND t2 > 1749 THEN xs = 855000 + 130 * (t2 - 1749)
IF t1 > 1749 AND t2 > 1749 THEN xs = 130 * (t2 - t1)
IF t1 > 328 THEN IF t2 < 1749 THEN xs = 130 * (t2 - t1)
IF t2 > 1749 AND t1 = 328 THEN xs = 1064730 + 130 * (t2 - 1749)
IF t2 = 1749 AND t1 = 328 THEN xs = 1064730
IF t2 < 1749 AND t1 = 328 THEN xs = 25000 + 130 * (t2 - 328)
IF t1 < 328 AND t2 = 1749 THEN xs = 130 * (328 - t1) + 1064730
IF t1 = 328 AND t2 = 1749 THEN xs = 1064730
IF t1 > 328 AND t2 = 1749 THEN xs = 130 * (1749 - t1) + 855000
IF t2 > 1749 AND t1 > 328 THEN xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
IF t2 = 1749 AND t1 > 328 THEN xs = 130 * (1749 - t1) + 855000
IF t2 < 1749 AND t1 > 328 THEN xs = 130 * (t2 - t1)
IF t1 < 328 AND t2 < 1749 THEN xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
IF t1 = 328 AND t2 < 1749 THEN xs = 25000 + 130 * (t2 - 328)
IF t1 > 328 AND t2 < 1749 THEN xs = 130 * (t2 - t1)
IF t1 = 1749 AND t2 > 1749 THEN xs = 855000 + 130 * (t2 - 1749)
IF t1 > 1749 AND t2 > 1749 THEN xs = 130 * (t2 - t1)
IF t2 = 328 AND t1 < 328 THEN xs = 130 * (328 - t1) + 25000
IF t2 < 328 AND t1 < 328 THEN xs = 130 * (t2 - t1)
vpss = (xs * m) / 23200000
vpbs = (xs * m) / 32200000
IF t2 > 2567 AND t1 < 1083 THEN xm = 385 * (1083 - t1) + 5604340 + 385 * (t2 - 2567)
IF t2 = 2567 AND t1 < 1083 THEN xm = 385 * (1083 - t1) + 5604340
IF t2 < 2567 AND t1 < 1083 THEN xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2)
IF t2 = 1083 AND t1 < 1083 THEN xm = 385 * (1083 - t1) + 213000
IF t2 < 1083 AND t1 < 1083 THEN xm = 385 * (t2 - t1)
IF t1 = 1083 AND t2 > 2567 THEN xm = 5604340 + 385 * (t2 - 2567)
IF t1 > 1083 AND t2 > 2567 THEN xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
IF t1 = 2567 AND t2 > 2567 THEN xm = 4820000 + 385 * (t2 - 2567)
IF t1 > 2567 AND t2 > 2567 THEN xm = 385 * (t2 - t1)
IF t1 > 1083 THEN IF t2 < 2567 THEN xm = 385 * (t2 - t1)
IF t2 > 2567 AND t1 = 1083 THEN xm = 5604340 + 385 * (t2 - 2567)
IF t2 = 2567 AND t1 = 1083 THEN xm = 5604340
IF t2 < 2567 AND t1 = 1083 THEN xm = 213000 + 385 * (t2 - 1083)
IF t1 < 1083 AND t2 = 2567 THEN xm = 385 * (1083 - t1) + 5604340
IF t1 = 1083 AND t2 = 2567 THEN xm = 5604340
IF t1 > 1083 AND t2 = 2567 THEN xm = 385 * (2567 - t1) + 4820000
IF t2 > 2567 AND t1 > 1083 THEN xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
IF t2 = 2567 AND t1 > 1083 THEN xm = 385 * (2567 - t1) + 4820000
IF t2 < 2567 AND t1 > 1083 THEN xm = 385 * (t2 - t1)
IF t1 < 1083 AND t2 < 2567 THEN xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
IF t1 = 1083 AND t2 < 2567 THEN xm = 213000 + 385 * (t2 - 1083)
IF t1 > 1083 AND t2 < 2567 THEN xm = 385 * (t2 - t1)
IF t1 = 2567 AND t2 > 2567 THEN xm = 4820000 + 385 * (t2 - 2567)
IF t1 > 2567 AND t2 > 2567 THEN xm = 385 * (t2 - t1)
IF t2 = 1083 AND t1 < 1083 THEN xm = 385 * (1083 - t1) + 213000
IF t2 < 1083 AND t1 < 1083 THEN xm = 385 * (t2 - t1)
vpsm = (xm * m) / 23200000
vpbm = (xm * m) / 32200000
IF t2 > 2567 AND t1 < 1539 THEN xz = 449 * (1539 - t1) + 6990578 + 449 * (t2 - 2567)
IF t2 = 2567 AND t1 < 1539 THEN xz = 449 * (1539 - t1) + 6990578
IF t2 < 2567 AND t1 < 1539 THEN xz = 449 * (1539 - t1) + 277000 + 449 * (2567 - t2)
IF t2 = 1539 AND t1 < 1539 THEN xz = 449 * (1539 - t1) + 277000
IF t2 < 1539 AND t1 < 1539 THEN xz = 449 * (t2 - t1)
IF t1 = 1539 AND t2 > 2567 THEN xz = 6990578 + 449 * (t2 - 2567)
IF t1 > 1539 AND t2 > 2567 THEN xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
IF t1 = 2567 AND t2 > 2567 THEN xz = 6120000 + 449 * (t2 - 2567)
IF t1 > 2567 AND t2 > 2567 THEN xz = 449 * (t2 - t1)
IF t1 > 1539 THEN IF t2 < 2567 THEN xz = 449 * (t2 - t1)
IF t2 > 2567 AND t1 = 1539 THEN xz = 6990578 + 449 * (t2 - 2567)
IF t2 = 2567 AND t1 = 1539 THEN xz = 6990578
IF t2 < 2567 AND t1 = 1539 THEN xz = 277000 + 449 * (t2 - 1539)
IF t1 < 1539 AND t2 = 2567 THEN xz = 449 * (1539 - t1) + 6990578
IF t1 = 1539 AND t2 = 2567 THEN xz = 6990578
IF t1 > 1539 AND t2 = 2567 THEN xz = 449 * (2567 - t1) + 6120000
IF t2 > 2567 AND t1 > 1539 THEN xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
IF t2 = 2567 AND t1 > 1539 THEN xz = 449 * (2567 - t1) + 6120000
IF t2 < 2567 AND t1 > 1539 THEN xz = 449 * (t2 - t1)
IF t1 < 1539 AND t2 < 2567 THEN xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
IF t1 = 1539 AND t2 < 2567 THEN xz = 277000 + 449 * (t2 - 1539)
IF t1 > 1539 AND t2 < 2567 THEN xz = 449 * (t2 - t1)
IF t1 = 2567 AND t2 > 2567 THEN xz = 6120000 + 449 * (t2 - 2567)
IF t1 > 2567 AND t2 > 2567 THEN xz = 449 * (t2 - t1)
IF t2 = 1539 AND t1 < 1539 THEN xz = 449 * (1539 - t1) + 277000
IF t2 < 1539 AND t1 < 1539 THEN xz = 449 * (t2 - t1)
vpsz = (xz * m) / 23200000
vpbz = (xz * m) / 32200000
PRINT " "
PRINT "ЋЎ©Ґ¬ бЇЁавг ¤«п ў®¤Ё («) = "; vpsv
'Обєм спирту для води (л)
PRINT "ЋЎ©Ґ¬ ЎҐ§Ёг ¤«п ў®¤Ё («) = "; vpbv
'Обєм бензину для води (л)
PRINT " "
PRINT "ЋЎ©Ґ¬ бЇЁавг ¤«п «о¬iiо («) = "; vpsa
'Обєм спирту для алюмінію (л)
PRINT "ЋЎ©Ґ¬ ЎҐ§Ёг ¤«п «о¬iiо («) = "; vpba
'Обєм бензину для алюмінію(л)
PRINT " "
PRINT "ЋЎ©Ґ¬ бЇЁавг ¤«п авгвi («) = "; vpsr
'Обєм спирту для ртуті (л)
PRINT "ЋЎ©Ґ¬ ЎҐ§Ёг ¤«п авгвi («) = "; vpbr
'Обєм бензину для ртуті (л)
PRINT " "
PRINT "ЋЎ©Ґ¬ бЇЁавг ¤«п бўЁжо («) = "; vpss
'Обєм спирту для свинцю (л)
PRINT "ЋЎ©Ґ¬ ЎҐ§Ёг ¤«п бўЁжо («) = "; vpbs
'Обєм бензину для свинцю (л)
PRINT " "
PRINT "ЋЎ©Ґ¬ бЇЁавг ¤«п ¬i¤i («) = "; vpsm
'Обєм спирту для міді(л)
PRINT "ЋЎ©Ґ¬ ЎҐ§Ёг ¤«п ¬i¤i («) = "; vpbm
'Обєм бензину для міді(л)
PRINT " "
PRINT "ЋЎ©Ґ¬ бЇЁавг ¤«п § «i§ («) = "; vpsz
'Обєм спирту для заліза(л)
PRINT "ЋЎ©Ґ¬ ЎҐ§Ёг ¤«п § «i§ («) = "; vpbz
'Обєм бензину для заліза(л)
INPUT z
GOTO l
Реалізація в Java
Реалізація в Java
<title>Молекулярна фізика</title>
<body><div align="center">
<b>Скiльки лiтрiв палива треба, щоб нагрiти воду (лід), алюміній, свинець, мідь, ртуть і залізо в iнтервалi певних температур.</b><br><br>
<form name="mfw" action="javascript:mfw()" id="1419313176">
Початкова температура (в Цельсiях) = <input name="mfw_t1" type="texvt" value=" " size="4">
Кінцева температура (в Цельсiях ) = <input name="mfw_t2" type="texvt" value=" " size="4">
Маса речовини (кг) = <input name="mfw_m" type="texvt" value=" " size="4">
<input type="submit" value="Порахувати">
<input type="reset" value="Reset">
</form>
Опрацювання: <br> <span id="mfw_sol">Введіть коефіцієнти і нажміть "Порахувати"</span>
</div>
<script language="javascript">
function mfw() {
var t1 = document.mfw.mfw_t1.value;
var t2 = document.mfw.mfw_t2.value;
var m = document.mfw.mfw_m.value;
var sol = document.getElementById("mfw_sol");
var xv ;
if (t2 > 100 & t1 < 0)
xv = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 < 0)
xv = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000;
if (t2 < 100 & t1 < 0)
xv = 2100 * (0 - t1) + 330000 + 4200 * (100 - t2);
if (t2 == 0 & t1 < 0)
xv = 2100 * (0 - t1) + 330000;
if (t2 < 0 & t1 < 0)
xv = 2100 * (t2 - t1);
if (t1 == 0 & t2 > 100)
xv = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t1 > 0 & t2 > 100)
xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100);
if (t1 == 100 & t2 > 100)
xv = 2260000 + 4200 * (t2 - 100);
if (t1 > 100 & t2 > 100)
xv = 4200 * (t2 - t1);
if (t1 > 0)
if (t2 < 100)
xv = 4200 * (t2 - t1);
if (t2 > 100 & t1 == 0)
xv = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 == 0)
xv = 330000 + 4200 * (100 - 0) + 2260000;
if (t2 < 100 & t1 == 0)
xv = 330000 + 4200 * (t2 - 0);
if (t1 < 0 & t2 == 100)
xv = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000;
if (t1 == 0 & t2 == 100)
xv = 330000 + 4200 * (100 - 0) + 2260000;
if (t1 > 0 & t2 == 100)
xv = 4200 * (100 - t1) + 2260000;
if (t2 > 100 & t1 > 0)
xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 > 0)
xv = 4200 * (100 - t1) + 2260000;
if (t2 < 100 & t1 > 0)
xv = 4200 * (t2 - t1);
if (t1 < 0 & t2 < 100)
xv = 2100 * (0 - t1) + 330000 + 4200 * (t2 - 0);
if (t1 == 0 & t2 < 100)
xv = 330000 + 4200 * (t2 - 0);
if (t1 > 0 & t2 < 100)
xv = 4200 * (t2 - t1);
if (t1 == 100 & t2 > 100)
xv = 2260000 + 4200 * (t2 - 100);
if (t1 > 100 & t2 > 100)
xv = 4200 * (t2 - t1);
if (t2 == 0 & t1 < 0)
xv = 2100 * (0 - t1) + 330000;
if (t2 < 0 & t1 < 0)
xv = 2100 * (t2 - t1);
vpsv = (xv * m) / 23200000;
vpbv = (xv * m) / 32200000;
var xa ;
if (t2 > 2519 & t1 < 660)
xa = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);
if (t2 == 2519 & t1 < 660)
xa = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000;
if (t2 < 2519 & t1 < 660)
xa = 897 * (660 - t1) + 390000 + 897 * (2519 - t2);
if (t2 == 660 & t1 < 660)
xa = 897 * (660 - t1) + 390000;
if (t2 < 660 & t1 < 660)
xa = 897 * (t2 - t1);
if (t1 == 660 & t2 > 2519)
xa = 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);
if (t1 > 660 & t2 > 2519)
xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519);
if (t1 == 2519 & t2 > 2519)
xa = 10900000 + 897 * (t2 - 2519);
if (t1 > 2519 & t2 > 2519)
xa = 897 * (t2 - t1);
if (t1 > 660)
if (t2 < 2519)
xa = 897 * (t2 - t1);
if (t2 > 2519 & t1 == 660)
xa = 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);
if (t2 == 2519 & t1 == 660)
xa = 390000 + 897 * (2519 - 660) + 10900000;
if (t2 < 2519 & t1 == 660)
xa = 390000 + 897 * (t2 - 660);
if (t1 < 660 & t2 == 2519)
xa = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000;
if (t1 == 660 & t2 == 2519)
xa = 390000 + 897 * (2519 - 660) + 10900000;
if (t1 > 660 & t2 == 2519)
xa = 897 * (2519 - t1) + 10900000;
if (t2 > 2519 & t1 > 660)
xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519);
if (t2 == 2519 & t1 > 660)
xa = 897 * (2519 - t1) + 10900000;
if (t2 < 2519 & t1 > 660)
xa = 897 * (t2 - t1);
if (t1 < 660 & t2 < 2519)
xa = 897 * (660 - t1) + 390000 + 897 * (t2 - 660);
if (t1 == 660 & t2 < 2519)
xa = 390000 + 897 * (t2 - 660);
if (t1 > 660 & t2 < 2519)
xa = 897 * (t2 - t1);
if (t1 == 2519 & t2 > 2519)
xa = 10900000 + 897 * (t2 - 2519);
if (t1 > 2519 & t2 > 2519)
xa = 897 * (t2 - t1);
if (t2 == 660 & t1 < 660)
xa = 897 * (660 - t1) + 390000;
if (t2 < 660 & t1 < 660)
xa = 897 * (t2 - t1);
vpsa = (xa * m) / 23200000;
vpba = (xa * m) / 32200000;
var xr ;
if (t2 > 357 & t1 < -39)
xr = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);
if (t2 == 357 & t1 < -39)
xr = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000;
if (t2 < 357 & t1 < -39)
xr = 140 * (-39 - t1) + 12000 + 140 * (357 - t2);
if (t2 == -39 & t1 < -39)
xr = 140 * (-39 - t1) + 12000;
if (t2 < -39 & t1 < -39)
xr = 140 * (t2 - t1);
if (t1 == -39 & t2 > 357)
xr = 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);
if (t1 > -39 & t2 > 357)
xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357);
if (t1 == 357 & t2 > 357)
xr = 282000 + 140 * (t2 - 357);
if (t1 > 357 & t2 > 357)
xr = 140 * (t2 - t1);
if (t1 > -39)
if (t2 < 357)
xr = 140 * (t2 - t1);
if (t2 > 357 & t1 == -39)
xr = 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);
if (t2 == 357 & t1 == -39)
xr = 12000 + 140 * (357 - (-39)) + 282000;
if (t2 < 357 & t1 == -39)
xr = 12000 + 140 * (t2 - (-39));
if (t1 < -39 & t2 == 357)
xr = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000;
if (t1 == -39 & t2 == 357)
xr = 12000 + 140 * (357 - -39) + 282000;
if (t1 > -39 & t2 == 357)
xr = 140 * (357 - t1) + 282000;
if (t2 > 357 & t1 > -39)
xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357);
if (t2 == 357 & t1 > -39)
xr = 140 * (357 - t1) + 282000;
if (t2 < 357 & t1 > -39)
xr = 140 * (t2 - t1);
if (t1 < -39 & t2 < 357)
xr = 140 * (-39 - t1) + 12000 + 140 * (t2 - (-39));
if (t1 == -39 & t2 < 357)
xr = 12000 + 140 * (t2 - (-39));
if (t1 > -39 & t2 < 357)
xr = 140 * (t2 - t1);
if (t1 == 357 & t2 > 357)
xr = 282000 + 140 * (t2 - 357);
if (t1 > 357 & t2 > 357)
xr = 140 * (t2 - t1);
if (t2 == -39 & t1 < -39)
xr = 140 * (-39 - t1) + 12000;
if (t2 < -39 & t1 < -39)
xr = 140 * (t2 - t1);
vpsr = (xr * m) / 23200000;
vpbr = (xr * m) / 32200000;
var xs ;
if (t2 > 1749 & t1 < 328)
xs = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000 + 130 * (t2 - 1749);
if (t2 == 1749 & t1 < 328)
xs = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000;
if (t2 < 1749 & t1 < 328)
xs = 130 * (328 - t1) + 25000 + 130 * (1749 - t2);
if (t2 == 328 & t1 < 328)
xs = 130 * (328 - t1) + 25000;
if (t2 < 328 & t1 < 328)
xs = 130 * (t2 - t1);
if (t1 == 328 & t2 > 1749)
xs = 25000 + 130 * (855 - 328) + 855000 + 130 * (t2 - 1749);
if (t1 > 328 & t2 > 1749)
xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749);
if (t1 == 1749 & t2 > 1749)
xs = 855000 + 130 * (t2 - 1749);
if (t1 > 1749 & t2 > 1749)
xs = 130 * (t2 - t1);
if (t1 > 328)
if (t2 < 1749)
xs = 130 * (t2 - t1);
if (t2 > 1749 & t1 == 328)
xs = 25000 + 130 * (1749 - 328) + 855000 + 130 * (t2 - 1749);
if (t2 == 1749 & t1 == 328)
xs = 25000 + 130 * (1749 - 328) + 855000;
if (t2 < 1749 & t1 == 328)
xs = 25000 + 130 * (t2 - 328);
if (t1 < 328 & t2 == 1749)
xs = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000;
if (t1 == 328 & t2 == 1749)
xs = 25000 + 130 * (1749 - 328) + 855000;
if (t1 > 328 & t2 == 1749)
xs = 130 * (1749 - t1) + 855000;
if (t2 > 1749 & t1 > 328)
xs = 130 * (855 - t1) + 855000 + 130 * (t2 - 1749);
if (t2 == 1749 & t1 > 328)
xs = 130 * (1749 - t1) + 855000;
if (t2 < 1749 & t1 > 328)
xs = 130 * (t2 - t1);
if (t1 < 328 & t2 < 1749)
xs = 130 * (328 - t1) + 25000 + 130 * (t2 - 328);
if (t1 == 328 & t2 < 1749)
xs = 25000 + 130 * (t2 - 328);
if (t1 > 328 & t2 < 1749)
xs = 130 * (t2 - t1);
if (t1 == 1749 & t2 > 1749)
xs = 855000 + 130 * (t2 - 1749);
if (t1 > 1749 & t2 > 1749)
xs = 130 * (t2 - t1);
if (t2 == 328 & t1 < 328)
xs = 130 * (328 - t1) + 25000;
if (t2 < 328 & t1 < 328)
xs = 130 * (t2 - t1);
vpss = (xs * m) / 23200000;
vpbs = (xs * m) / 32200000;
var xm ;
if (t2 > 2567 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);
if (t2 == 2567 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000;
if (t2 < 2567 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2);
if (t2 == 1083 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000;
if (t2 < 1083 & t1 < 1083)
xm = 385 * (t2 - t1);
if (t1 == 1083 & t2 > 2567)
xm = 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);
if (t1 > 1083 & t2 > 2567)
xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567);
if (t1 == 2567 & t2 > 2567)
xm = 4820000 + 385 * (t2 - 2567);
if (t1 > 2567 & t2 > 2567)
xm = 385 * (t2 - t1);
if (t1 > 1083)
if (t2 < 2567)
xm = 385 * (t2 - t1);
if (t2 > 2567 & t1 == 1083)
xm = 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);
if (t2 == 2567 & t1 == 1083)
xm = 213000 + 385 * (2567 - 1083) + 4820000;
if (t2 < 2567 & t1 == 1083)
xm = 213000 + 385 * (t2 - 1083);
if (t1 < 1083 & t2 == 2567)
xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000;
if (t1 == 1083 & t2 == 2567)
xm = 213000 + 385 * (2567 - 1083) + 4820000;
if (t1 > 1083 & t2 == 2567)
xm = 385 * (2567 - t1) + 4820000;
if (t2 > 2567 & t1 > 1083)
xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567);
if (t2 == 2567 & t1 > 1083)
xm = 385 * (2567 - t1) + 4820000;
if (t2 < 2567 & t1 > 1083)
xm = 385 * (t2 - t1);
if (t1 < 1083 & t2 < 2567)
xm = 385 * (1083 - t1) + 213000 + 385 * (t2 - 1083);
if (t1 == 1083 & t2 < 2567)
xm = 213000 + 385 * (t2 - 1083);
if (t1 > 1083 & t2 < 2567)
xm = 385 * (t2 - t1);
if (t1 == 2567 & t2 > 2567)
xm = 4820000 + 385 * (t2 - 2567);
if (t1 > 2567 & t2 > 2567)
xm = 385 * (t2 - t1);
if (t2 == 1083 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000;
if (t2 < 1083 & t1 < 1083)
xm = 385 * (t2 - t1);
vpsm = (xm * m) / 23200000;
vpbm = (xm * m) / 32200000;
var xz ;
if (t2 > 2861 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000 + 449 * (t2 - 2861);
if (t2 == 2861 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000;
if (t2 < 2861 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000 + 449 * (2861 - t2);
if (t2 == 1539 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000;
if (t2 < 1539 & t1 < 1539)
xz = 449 * (t2 - t1);
if (t1 == 1539 & t2 > 2861)
xz = 277000 + 449 * (855 - 1539) + 6120000 + 449 * (t2 - 2861);
if (t1 > 1539 & t2 > 2861)
xz = 449 * (2861 - t1) + 6120000 + 449 * (t2 - 2861);
if (t1 == 2861 & t2 > 2861)
xz = 6120000 + 449 * (t2 - 2861);
if (t1 > 2861 & t2 > 2861)
xz = 449 * (t2 - t1);
if (t1 > 1539)
if (t2 < 2861)
xz = 449 * (t2 - t1);
if (t2 > 2861 & t1 == 1539)
xz = 277000 + 449 * (2861 - 1539) + 6120000 + 449 * (t2 - 2861);
if (t2 == 2861 & t1 == 1539)
xz = 277000 + 449 * (2861 - 1539) + 6120000;
if (t2 < 2861 & t1 == 1539)
xz = 277000 + 449 * (t2 - 1539);
if (t1 < 1539 & t2 == 2861)
xz = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000;
if (t1 == 1539 & t2 == 2861)
xz = 277000 + 449 * (2861 - 1539) + 6120000;
if (t1 > 1539 & t2 == 2861)
xz = 449 * (2861 - t1) + 6120000;
if (t2 > 2861 & t1 > 1539)
xz = 449 * (855 - t1) + 6120000 + 449 * (t2 - 2861);
if (t2 == 2861 & t1 > 1539)
xz = 449 * (2861 - t1) + 6120000;
if (t2 < 2861 & t1 > 1539)
xz = 449 * (t2 - t1);
if (t1 < 1539 & t2 < 2861)
xz = 449 * (1539 - t1) + 277000 + 449 * (t2 - 1539);
if (t1 == 1539 & t2 < 2861)
xz = 277000 + 449 * (t2 - 1539);
if (t1 > 1539 & t2 < 2861)
xz = 449 * (t2 - t1);
if (t1 == 2861 & t2 > 2861)
xz = 6120000 + 449 * (t2 - 2861);
if (t1 > 2861 & t2 > 2861)
xz = 449 * (t2 - t1);
if (t2 == 1539 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000;
if (t2 < 1539 & t1 < 1539)
xz = 449 * (t2 - t1);
vpsz = (xz * m) / 23200000;
vpbz = (xz * m) / 32200000;
string = "Об`єм спирту для води (л)= " + vpsv +"<br>"+ "Об`єм бензину для води (л)= " + vpbv;
string +="<br>"+"<br>";
string += "Об`єм спирту для алюмінію (л)= " + vpsa +"<br>"+ "Об`єм бензину для алюмінію (л)= " + vpba;
string +="<br>"+"<br>";
string += "Об`єм спирту для ртуті (л)= " + vpsr +"<br>"+ "Об`єм бензину для ртуті (л)= " + vpbr;
string +="<br>"+"<br>";
string += "Об`єм спирту для свинцю (л)= " + vpss +"<br>"+ "Об`єм бензину для свинцю (л)= " + vpbs;
string +="<br>"+"<br>";
string += "Об`єм спирту для міді (л)= " + vpsm +"<br>"+ "Об`єм бензину для міді (л)= " + vpbm;
string +="<br>"+"<br>";
string += "Об`єм спирту для заліза (л)= " + vpsz +"<br>"+ "Об`єм бензину для заліза (л)= " + vpbz;
sol.innerHTML = string;
}
</script>
</body>
Реалізація в VB.NET
Реалізація в VB.NET
Class Program
Shared Sub Main()
Console.WriteLine(" УМОВА")
Console.WriteLine("Скiльки лiтрiв палива треба, щоб нагрiти ")
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("Маса речовини (кг) = ")
Dim m As Double = Convert.ToDouble(Console.ReadLine())
Dim xv,xa,xr,xs,xm,xz As Double
IF t2 > 100 AND t1 < 0 THEN xv = 2100 * (-t1) + 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
IF t2 = 100 AND t1 < 0 THEN xv = 2100 * (-t1) + 330000 + 420000 + 2260000
IF t2 < 100 AND t1 < 0 THEN xv = 2100 * (-t1) + 330000 + 4200 * (100 - t2)
IF t2 = 0 AND t1 < 0 THEN xv = 2100 * (-t1) + 330000
IF t2 < 0 AND t1 < 0 THEN xv = 2100 * (t2 - t1)
IF t1 = 0 AND t2 > 100 THEN xv = 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
IF t1 > 0 AND t2 > 100 THEN xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
IF t1 = 100 AND t2 > 100 THEN xv = 2260000 + 4200 * (t2 - 100)
IF t1 > 100 AND t2 > 100 THEN xv = 4200 * (t2 - t1)
IF t1 > 0 THEN IF t2 < 100 THEN xv = 4200 * (t2 - t1)
IF t2 > 100 AND t1 = 0 THEN xv = 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
IF t2 = 100 AND t1 = 0 THEN xv = 330000 + 420000 + 2260000
IF t2 < 100 AND t1 = 0 THEN xv = 330000 + 4200 * t2
IF t1 < 0 AND t2 = 100 THEN xv = 2100 * (-t1) + 330000 + 420000 + 2260000
IF t1 = 0 AND t2 = 100 THEN xv = 330000 + 420000 + 2260000
IF t1 > 0 AND t2 = 100 THEN xv = 4200 * (100 - t1) + 2260000
IF t2 > 100 AND t1 > 0 THEN xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
IF t2 = 100 AND t1 > 0 THEN xv = 4200 * (100 - t1) + 2260000
IF t2 < 100 AND t1 > 0 THEN xv = 4200 * (t2 - t1)
IF t1 < 0 AND t2 < 100 THEN xv = 2100 * (-t1) + 330000 + 4200 * t2
IF t1 = 0 AND t2 < 100 THEN xv = 330000 + 4200 * t2
IF t1 > 0 AND t2 < 100 THEN xv = 4200 * (t2 - t1)
IF t1 = 100 AND t2 > 100 THEN xv = 2260000 + 4200 * (t2 - 100)
IF t1 > 100 AND t2 > 100 THEN xv = 4200 * (t2 - t1)
IF t2 = 0 AND t1 < 0 THEN xv = 2100 * t1 + 330000
IF t2 < 0 AND t1 < 0 THEN xv = 2100 * (t2 - t1)
Dim vpsv As Double = (xv * m) / 23200000
Dim vpbv As Double = (xv * m) / 32200000
IF t2 > 2519 AND t1 < 660 THEN xa = 897 * (660 - t1) + 12957523 + 897 * (t2 - 2519)
IF t2 = 2519 AND t1 < 660 THEN xa = 897 * (660 - t1) + 12957523
IF t2 < 2519 AND t1 < 660 THEN xa = 897 * (660 - t1) + 390000 + 897 * (2519 - t2)
IF t2 = 660 AND t1 < 660 THEN xa = 897 * (660 - t1) + 390000
IF t2 < 660 AND t1 < 660 THEN xa = 897 * (t2 - t1)
IF t1 = 660 AND t2 > 2519 THEN xa = 12957523 + 897 * (t2 - 2519)
IF t1 > 660 AND t2 > 2519 THEN xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
IF t1 = 2519 AND t2 > 2519 THEN xa = 10900000 + 897 * (t2 - 2519)
IF t1 > 2519 AND t2 > 2519 THEN xa = 897 * (t2 - t1)
IF t1 > 660 THEN IF t2 < 2519 THEN xa = 897 * (t2 - t1)
IF t2 > 2519 AND t1 = 660 THEN xa = 12957523 + 897 * (t2 - 2519)
IF t2 = 2519 AND t1 = 660 THEN xa = 12957523
IF t2 < 2519 AND t1 = 660 THEN xa = 390000 + 897 * (t2 - 660)
IF t1 < 660 AND t2 = 2519 THEN xa = 897 * (660 - t1) + 12957523
IF t1 = 660 AND t2 = 2519 THEN xa = 12957523
IF t1 > 660 AND t2 = 2519 THEN xa = 897 * (2519 - t1) + 10900000
IF t2 > 2519 AND t1 > 660 THEN xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
IF t2 = 2519 AND t1 > 660 THEN xa = 897 * (2519 - t1) + 10900000
IF t2 < 2519 AND t1 > 660 THEN xa = 897 * (t2 - t1)
IF t1 < 660 AND t2 < 2519 THEN xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
IF t1 = 660 AND t2 < 2519 THEN xa = 10900000 + 897 * (t2 - 2519)
IF t1 > 660 AND t2 < 2519 THEN xa = 897 * (t2 - t1)
IF t1 = 2519 AND t2 > 2519 THEN xa = 10900000 + 897 * (t2 - 2519)
IF t1 > 2519 AND t2 > 2519 THEN xa = 897 * (t2 - t1)
IF t2 = 660 AND t1 < 660 THEN xa = 897 * (660 - t1) + 390000
IF t2 < 660 AND t1 < 660 THEN xa = 897 * (t2 - t1)
Dim vpsa As Double = (xa * m) / 23200000
Dim vpba As Double = (xa * m) / 32200000
IF t2 > 357 AND t1 < (-39) THEN xr = 140 * ((-39) - t1) + 349440 + 140 * (t2 - 357)
IF t2 = 357 AND t1 < (-39) THEN xr = 140 * ((-39) - t1) + 349440
IF t2 < 357 AND t1 < (-39) THEN xr = 140 * ((-39) - t1) + 12000 + 140 * (357 - t2)
IF t2 = (-39) AND t1 < (-39) THEN xr = 140 * ((-39) - t1) + 12000
IF t2 < (-39) AND t1 < (-39) THEN xr = 140 * (t2 - t1)
IF t1 = (-39) AND t2 > 357 THEN xr = 349440 + 140 * (t2 - 357)
IF t1 > (-39) AND t2 > 357 THEN xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
IF t1 = 357 AND t2 > 357 THEN xr = 282000 + 140 * (t2 - 357)
IF t1 > 357 AND t2 > 357 THEN xr = 140 * (t2 - t1)
IF t1 > (-39) THEN IF t2 < 357 THEN xr = 140 * (t2 - t1)
IF t2 > 357 AND t1 = (-39) THEN xr = 349440 + 140 * (t2 - 357)
IF t2 = 357 AND t1 = (-39) THEN xr = 349440
IF t2 < 357 AND t1 = (-39) THEN xr = 12000 + 140 * (t2 - (-39))
IF t1 < (-39) AND t2 = 357 THEN xr = 140 * ((-39) - t1) + 349440
IF t1 = (-39) AND t2 = 357 THEN xr = 349440
IF t1 > (-39) AND t2 = 357 THEN xr = 140 * (357 - t1) + 282000
IF t2 > 357 AND t1 > (-39) THEN xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
IF t2 = 357 AND t1 > (-39) THEN xr = 140 * (357 - t1) + 282000
IF t2 < 357 AND t1 > (-39) THEN xr = 140 * (t2 - t1)
IF t1 < (-39) AND t2 < 357 THEN xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
IF t1 = (-39) AND t2 < 357 THEN xr = 282000 + 140 * (t2 - 357)
IF t1 > (-39) AND t2 < 357 THEN xr = 140 * (t2 - t1)
IF t1 = 357 AND t2 > 357 THEN xr = 282000 + 140 * (t2 - 357)
IF t1 > 357 AND t2 > 357 THEN xr = 140 * (t2 - t1)
IF t2 = (-39) AND t1 < (-39) THEN xr = 140 * ((-39) - t1) + 12000
IF t2 < (-39) AND t1 < (-39) THEN xr = 140 * (t2 - t1)
Dim vpsr As Double = (xr * m) / 23200000
Dim vpbr As Double = (xr * m) / 32200000
IF t2 > 1749 AND t1 < 328 THEN xs = 130 * (328 - t1) + 1064730 + 130 * (t2 - 1749)
IF t2 = 1749 AND t1 < 328 THEN xs = 130 * (328 - t1) + 1064730
IF t2 < 1749 AND t1 < 328 THEN xs = 130 * (328 - t1) + 25000 + 130 * (1749 - t2)
IF t2 = 328 AND t1 < 328 THEN xs = 130 * (328 - t1) + 25000
IF t2 < 328 AND t1 < 328 THEN xs = 130 * (t2 - t1)
IF t1 = 328 AND t2 > 1749 THEN xs = 1064730 + 130 * (t2 - 1749)
IF t1 > 328 AND t2 > 1749 THEN xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
IF t1 = 1749 AND t2 > 1749 THEN xs = 855000 + 130 * (t2 - 1749)
IF t1 > 1749 AND t2 > 1749 THEN xs = 130 * (t2 - t1)
IF t1 > 328 THEN IF t2 < 1749 THEN xs = 130 * (t2 - t1)
IF t2 > 1749 AND t1 = 328 THEN xs = 1064730 + 130 * (t2 - 1749)
IF t2 = 1749 AND t1 = 328 THEN xs = 1064730
IF t2 < 1749 AND t1 = 328 THEN xs = 25000 + 130 * (t2 - 328)
IF t1 < 328 AND t2 = 1749 THEN xs = 130 * (328 - t1) + 1064730
IF t1 = 328 AND t2 = 1749 THEN xs = 1064730
IF t1 > 328 AND t2 = 1749 THEN xs = 130 * (1749 - t1) + 855000
IF t2 > 1749 AND t1 > 328 THEN xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
IF t2 = 1749 AND t1 > 328 THEN xs = 130 * (1749 - t1) + 855000
IF t2 < 1749 AND t1 > 328 THEN xs = 130 * (t2 - t1)
IF t1 < 328 AND t2 < 1749 THEN xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
IF t1 = 328 AND t2 < 1749 THEN xs = 25000 + 130 * (t2 - 328)
IF t1 > 328 AND t2 < 1749 THEN xs = 130 * (t2 - t1)
IF t1 = 1749 AND t2 > 1749 THEN xs = 855000 + 130 * (t2 - 1749)
IF t1 > 1749 AND t2 > 1749 THEN xs = 130 * (t2 - t1)
IF t2 = 328 AND t1 < 328 THEN xs = 130 * (328 - t1) + 25000
IF t2 < 328 AND t1 < 328 THEN xs = 130 * (t2 - t1)
Dim vpss As Double = (xs * m) / 23200000
Dim vpbs As Double = (xs * m) / 32200000
IF t2 > 2567 AND t1 < 1083 THEN xm = 385 * (1083 - t1) + 5604340 + 385 * (t2 - 2567)
IF t2 = 2567 AND t1 < 1083 THEN xm = 385 * (1083 - t1) + 5604340
IF t2 < 2567 AND t1 < 1083 THEN xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2)
IF t2 = 1083 AND t1 < 1083 THEN xm = 385 * (1083 - t1) + 213000
IF t2 < 1083 AND t1 < 1083 THEN xm = 385 * (t2 - t1)
IF t1 = 1083 AND t2 > 2567 THEN xm = 5604340 + 385 * (t2 - 2567)
IF t1 > 1083 AND t2 > 2567 THEN xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
IF t1 = 2567 AND t2 > 2567 THEN xm = 4820000 + 385 * (t2 - 2567)
IF t1 > 2567 AND t2 > 2567 THEN xm = 385 * (t2 - t1)
IF t1 > 1083 THEN IF t2 < 2567 THEN xm = 385 * (t2 - t1)
IF t2 > 2567 AND t1 = 1083 THEN xm = 5604340 + 385 * (t2 - 2567)
IF t2 = 2567 AND t1 = 1083 THEN xm = 5604340
IF t2 < 2567 AND t1 = 1083 THEN xm = 213000 + 385 * (t2 - 1083)
IF t1 < 1083 AND t2 = 2567 THEN xm = 385 * (1083 - t1) + 5604340
IF t1 = 1083 AND t2 = 2567 THEN xm = 5604340
IF t1 > 1083 AND t2 = 2567 THEN xm = 385 * (2567 - t1) + 4820000
IF t2 > 2567 AND t1 > 1083 THEN xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
IF t2 = 2567 AND t1 > 1083 THEN xm = 385 * (2567 - t1) + 4820000
IF t2 < 2567 AND t1 > 1083 THEN xm = 385 * (t2 - t1)
IF t1 < 1083 AND t2 < 2567 THEN xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
IF t1 = 1083 AND t2 < 2567 THEN xm = 213000 + 385 * (t2 - 1083)
IF t1 > 1083 AND t2 < 2567 THEN xm = 385 * (t2 - t1)
IF t1 = 2567 AND t2 > 2567 THEN xm = 4820000 + 385 * (t2 - 2567)
IF t1 > 2567 AND t2 > 2567 THEN xm = 385 * (t2 - t1)
IF t2 = 1083 AND t1 < 1083 THEN xm = 385 * (1083 - t1) + 213000
IF t2 < 1083 AND t1 < 1083 THEN xm = 385 * (t2 - t1)
Dim vpsm As Double = (xm * m) / 23200000
Dim vpbm As Double = (xm * m) / 32200000
IF t2 > 2567 AND t1 < 1539 THEN xz = 449 * (1539 - t1) + 6990578 + 449 * (t2 - 2567)
IF t2 = 2567 AND t1 < 1539 THEN xz = 449 * (1539 - t1) + 6990578
IF t2 < 2567 AND t1 < 1539 THEN xz = 449 * (1539 - t1) + 277000 + 449 * (2567 - t2)
IF t2 = 1539 AND t1 < 1539 THEN xz = 449 * (1539 - t1) + 277000
IF t2 < 1539 AND t1 < 1539 THEN xz = 449 * (t2 - t1)
IF t1 = 1539 AND t2 > 2567 THEN xz = 6990578 + 449 * (t2 - 2567)
IF t1 > 1539 AND t2 > 2567 THEN xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
IF t1 = 2567 AND t2 > 2567 THEN xz = 6120000 + 449 * (t2 - 2567)
IF t1 > 2567 AND t2 > 2567 THEN xz = 449 * (t2 - t1)
IF t1 > 1539 THEN IF t2 < 2567 THEN xz = 449 * (t2 - t1)
IF t2 > 2567 AND t1 = 1539 THEN xz = 6990578 + 449 * (t2 - 2567)
IF t2 = 2567 AND t1 = 1539 THEN xz = 6990578
IF t2 < 2567 AND t1 = 1539 THEN xz = 277000 + 449 * (t2 - 1539)
IF t1 < 1539 AND t2 = 2567 THEN xz = 449 * (1539 - t1) + 6990578
IF t1 = 1539 AND t2 = 2567 THEN xz = 6990578
IF t1 > 1539 AND t2 = 2567 THEN xz = 449 * (2567 - t1) + 6120000
IF t2 > 2567 AND t1 > 1539 THEN xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
IF t2 = 2567 AND t1 > 1539 THEN xz = 449 * (2567 - t1) + 6120000
IF t2 < 2567 AND t1 > 1539 THEN xz = 449 * (t2 - t1)
IF t1 < 1539 AND t2 < 2567 THEN xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
IF t1 = 1539 AND t2 < 2567 THEN xz = 277000 + 449 * (t2 - 1539)
IF t1 > 1539 AND t2 < 2567 THEN xz = 449 * (t2 - t1)
IF t1 = 2567 AND t2 > 2567 THEN xz = 6120000 + 449 * (t2 - 2567)
IF t1 > 2567 AND t2 > 2567 THEN xz = 449 * (t2 - t1)
IF t2 = 1539 AND t1 < 1539 THEN xz = 449 * (1539 - t1) + 277000
IF t2 < 1539 AND t1 < 1539 THEN xz = 449 * (t2 - t1)
Dim vpsz As Double = (xz * m) / 23200000
Dim vpbz As Double = (xz * m) / 32200000
Console.WriteLine(" ")
Console.WriteLine("Об`єм спирту для води (л) = {0} ", vpsv)
Console.WriteLine("Об`єм бензину для води (л) = {0} ", vpbv)
Console.WriteLine(" ")
Console.WriteLine("Об`єм спирту для алюмiнiю (л) = {0} ", vpsa)
Console.WriteLine("Об`єм бензину для алюмiнiю (л) = {0} ", vpba)
Console.WriteLine(" ")
Console.WriteLine("Об`єм спирту для ртутi (л) = {0} ", vpsr)
Console.WriteLine("Об`єм бензину для ртутi (л) = {0} ", vpbr)
Console.WriteLine(" ")
Console.WriteLine("Об`єм спирту для свинцю (л) = {0} ", vpss)
Console.WriteLine("Об`єм бензину для свинцю (л) = {0} ", vpbs)
Console.WriteLine(" ")
Console.WriteLine("Об`єм спирту для мiдi (л) = {0} ", vpsm)
Console.WriteLine("Об`єм бензину для мiдi (л) = {0} ", vpbm)
Console.WriteLine(" ")
Console.WriteLine("Об`єм спирту для залiза (л) = {0} ", vpsz)
Console.WriteLine("Об`єм бензину для залiза (л) = {0} ", vpbz)
Console.ReadKey()
End Sub
End Class
Реалізація в Dev-c++
Реалізація в Dev-c++
#include <conio.h>
#include <iostream>
int main(void)
{
double t1,t2,m,vpbv,vpba,vpbs,vpbr,vpbm,vpbz,vpsv,vpsa,vpsr,vpss,vpsm,vpsz,xv,xa,xr,xs,xm,xz;
setlocale(LC_ALL, "");
std::cout << " УМОВА \nСкiльки лiтрiв палива треба, щоб нагрiти \nводу(лiд) , алюмiнiй, свинець, мiдь, ртуть \ni залiзо в iнтервалi певних температур. \n \n";
std::cout << "Початкова Температура (в CI) = ";
std::cin >> t1;
std::cout << "Кiнцева Температура (в CI) = ";
std::cin >> t2;
std::cout << "Маса речовини = ";
std::cin >> m;
if (t2 > 100 & t1 < 0)
xv = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 < 0)
xv = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000;
if (t2 < 100 & t1 < 0)
xv = 2100 * (0 - t1) + 330000 + 4200 * (100 - t2);
if (t2 == 0 & t1 < 0)
xv = 2100 * (0 - t1) + 330000;
if (t2 < 0 & t1 < 0)
xv = 2100 * (t2 - t1);
if (t1 == 0 & t2 > 100)
xv = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t1 > 0 & t2 > 100)
xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100);
if (t1 == 100 & t2 > 100)
xv = 2260000 + 4200 * (t2 - 100);
if (t1 > 100 & t2 > 100)
xv = 4200 * (t2 - t1);
if (t1 > 0)
if (t2 < 100)
xv = 4200 * (t2 - t1);
if (t2 > 100 & t1 == 0)
xv = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 == 0)
xv = 330000 + 4200 * (100 - 0) + 2260000;
if (t2 < 100 & t1 == 0)
xv = 330000 + 4200 * (t2 - 0);
if (t1 < 0 & t2 == 100)
xv = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000;
if (t1 == 0 & t2 == 100)
xv = 330000 + 4200 * (100 - 0) + 2260000;
if (t1 > 0 & t2 == 100)
xv = 4200 * (100 - t1) + 2260000;
if (t2 > 100 & t1 > 0)
xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 > 0)
xv = 4200 * (100 - t1) + 2260000;
if (t2 < 100 & t1 > 0)
xv = 4200 * (t2 - t1);
if (t1 < 0 & t2 < 100)
xv = 2100 * (0 - t1) + 330000 + 4200 * (t2 - 0);
if (t1 == 0 & t2 < 100)
xv = 330000 + 4200 * (t2 - 0);
if (t1 > 0 & t2 < 100)
xv = 4200 * (t2 - t1);
if (t1 == 100 & t2 > 100)
xv = 2260000 + 4200 * (t2 - 100);
if (t1 > 100 & t2 > 100)
xv = 4200 * (t2 - t1);
if (t2 == 0 & t1 < 0)
xv = 2100 * (0 - t1) + 330000;
if (t2 < 0 & t1 < 0)
xv = 2100 * (t2 - t1);
vpsv = (xv * m) / 23200000;
vpbv = (xv * m) / 32200000;
if (t2 > 2519 & t1 < 660)
xa = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);
if (t2 == 2519 & t1 < 660)
xa = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000;
if (t2 < 2519 & t1 < 660)
xa = 897 * (660 - t1) + 390000 + 897 * (2519 - t2);
if (t2 == 660 & t1 < 660)
xa = 897 * (660 - t1) + 390000;
if (t2 < 660 & t1 < 660)
xa = 897 * (t2 - t1);
if (t1 == 660 & t2 > 2519)
xa = 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);
if (t1 > 660 & t2 > 2519)
xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519);
if (t1 == 2519 & t2 > 2519)
xa = 10900000 + 897 * (t2 - 2519);
if (t1 > 2519 & t2 > 2519)
xa = 897 * (t2 - t1);
if (t1 > 660)
if (t2 < 2519)
xa = 897 * (t2 - t1);
if (t2 > 2519 & t1 == 660)
xa = 390000 + 897 * (2519 - 660) + 10900000 + 897 * (t2 - 2519);
if (t2 == 2519 & t1 == 660)
xa = 390000 + 897 * (2519 - 660) + 10900000;
if (t2 < 2519 & t1 == 660)
xa = 390000 + 897 * (t2 - 660);
if (t1 < 660 & t2 == 2519)
xa = 897 * (660 - t1) + 390000 + 897 * (2519 - 660) + 10900000;
if (t1 == 660 & t2 == 2519)
xa = 390000 + 897 * (2519 - 660) + 10900000;
if (t1 > 660 & t2 == 2519)
xa = 897 * (2519 - t1) + 10900000;
if (t2 > 2519 & t1 > 660)
xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519);
if (t2 == 2519 & t1 > 660)
xa = 897 * (2519 - t1) + 10900000;
if (t2 < 2519 & t1 > 660)
xa = 897 * (t2 - t1);
if (t1 < 660 & t2 < 2519)
xa = 897 * (660 - t1) + 390000 + 897 * (t2 - 660);
if (t1 == 660 & t2 < 2519)
xa = 390000 + 897 * (t2 - 660);
if (t1 > 660 & t2 < 2519)
xa = 897 * (t2 - t1);
if (t1 == 2519 & t2 > 2519)
xa = 10900000 + 897 * (t2 - 2519);
if (t1 > 2519 & t2 > 2519)
xa = 897 * (t2 - t1);
if (t2 == 660 & t1 < 660)
xa = 897 * (660 - t1) + 390000;
if (t2 < 660 & t1 < 660)
xa = 897 * (t2 - t1);
vpsa = (xa * m) / 23200000;
vpba = (xa * m) / 32200000;
if (t2 > 357 & t1 < -39)
xr = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);
if (t2 == 357 & t1 < -39)
xr = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000;
if (t2 < 357 & t1 < -39)
xr = 140 * (-39 - t1) + 12000 + 140 * (357 - t2);
if (t2 == -39 & t1 < -39)
xr = 140 * (-39 - t1) + 12000;
if (t2 < -39 & t1 < -39)
xr = 140 * (t2 - t1);
if (t1 == -39 & t2 > 357)
xr = 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);
if (t1 > -39 & t2 > 357)
xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357);
if (t1 == 357 & t2 > 357)
xr = 282000 + 140 * (t2 - 357);
if (t1 > 357 & t2 > 357)
xr = 140 * (t2 - t1);
if (t1 > -39)
if (t2 < 357)
xr = 140 * (t2 - t1);
if (t2 > 357 & t1 == -39)
xr = 12000 + 140 * (357 - (-39)) + 282000 + 140 * (t2 - 357);
if (t2 == 357 & t1 == -39)
xr = 12000 + 140 * (357 - (-39)) + 282000;
if (t2 < 357 & t1 == -39)
xr = 12000 + 140 * (t2 - (-39));
if (t1 < -39 & t2 == 357)
xr = 140 * (-39 - t1) + 12000 + 140 * (357 - (-39)) + 282000;
if (t1 == -39 & t2 == 357)
xr = 12000 + 140 * (357 - -39) + 282000;
if (t1 > -39 & t2 == 357)
xr = 140 * (357 - t1) + 282000;
if (t2 > 357 & t1 > -39)
xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357);
if (t2 == 357 & t1 > -39)
xr = 140 * (357 - t1) + 282000;
if (t2 < 357 & t1 > -39)
xr = 140 * (t2 - t1);
if (t1 < -39 & t2 < 357)
xr = 140 * (-39 - t1) + 12000 + 140 * (t2 - (-39));
if (t1 == -39 & t2 < 357)
xr = 12000 + 140 * (t2 - (-39));
if (t1 > -39 & t2 < 357)
xr = 140 * (t2 - t1);
if (t1 == 357 & t2 > 357)
xr = 282000 + 140 * (t2 - 357);
if (t1 > 357 & t2 > 357)
xr = 140 * (t2 - t1);
if (t2 == -39 & t1 < -39)
xr = 140 * (-39 - t1) + 12000;
if (t2 < -39 & t1 < -39)
xr = 140 * (t2 - t1);
vpsr = (xr * m) / 23200000;
vpbr = (xr * m) / 32200000;
if (t2 > 1749 & t1 < 328)
xs = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000 + 130 * (t2 - 1749);
if (t2 == 1749 & t1 < 328)
xs = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000;
if (t2 < 1749 & t1 < 328)
xs = 130 * (328 - t1) + 25000 + 130 * (1749 - t2);
if (t2 == 328 & t1 < 328)
xs = 130 * (328 - t1) + 25000;
if (t2 < 328 & t1 < 328)
xs = 130 * (t2 - t1);
if (t1 == 328 & t2 > 1749)
xs = 25000 + 130 * (855 - 328) + 855000 + 130 * (t2 - 1749);
if (t1 > 328 & t2 > 1749)
xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749);
if (t1 == 1749 & t2 > 1749)
xs = 855000 + 130 * (t2 - 1749);
if (t1 > 1749 & t2 > 1749)
xs = 130 * (t2 - t1);
if (t1 > 328)
if (t2 < 1749)
xs = 130 * (t2 - t1);
if (t2 > 1749 & t1 == 328)
xs = 25000 + 130 * (1749 - 328) + 855000 + 130 * (t2 - 1749);
if (t2 == 1749 & t1 == 328)
xs = 25000 + 130 * (1749 - 328) + 855000;
if (t2 < 1749 & t1 == 328)
xs = 25000 + 130 * (t2 - 328);
if (t1 < 328 & t2 == 1749)
xs = 130 * (328 - t1) + 25000 + 130 * (1749 - 328) + 855000;
if (t1 == 328 & t2 == 1749)
xs = 25000 + 130 * (1749 - 328) + 855000;
if (t1 > 328 & t2 == 1749)
xs = 130 * (1749 - t1) + 855000;
if (t2 > 1749 & t1 > 328)
xs = 130 * (855 - t1) + 855000 + 130 * (t2 - 1749);
if (t2 == 1749 & t1 > 328)
xs = 130 * (1749 - t1) + 855000;
if (t2 < 1749 & t1 > 328)
xs = 130 * (t2 - t1);
if (t1 < 328 & t2 < 1749)
xs = 130 * (328 - t1) + 25000 + 130 * (t2 - 328);
if (t1 == 328 & t2 < 1749)
xs = 25000 + 130 * (t2 - 328);
if (t1 > 328 & t2 < 1749)
xs = 130 * (t2 - t1);
if (t1 == 1749 & t2 > 1749)
xs = 855000 + 130 * (t2 - 1749);
if (t1 > 1749 & t2 > 1749)
xs = 130 * (t2 - t1);
if (t2 == 328 & t1 < 328)
xs = 130 * (328 - t1) + 25000;
if (t2 < 328 & t1 < 328)
xs = 130 * (t2 - t1);
vpss = (xs * m) / 23200000;
vpbs = (xs * m) / 32200000;
if (t2 > 2567 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);
if (t2 == 2567 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000;
if (t2 < 2567 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2);
if (t2 == 1083 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000;
if (t2 < 1083 & t1 < 1083)
xm = 385 * (t2 - t1);
if (t1 == 1083 & t2 > 2567)
xm = 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);
if (t1 > 1083 & t2 > 2567)
xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567);
if (t1 == 2567 & t2 > 2567)
xm = 4820000 + 385 * (t2 - 2567);
if (t1 > 2567 & t2 > 2567)
xm = 385 * (t2 - t1);
if (t1 > 1083)
if (t2 < 2567)
xm = 385 * (t2 - t1);
if (t2 > 2567 & t1 == 1083)
xm = 213000 + 385 * (2567 - 1083) + 4820000 + 385 * (t2 - 2567);
if (t2 == 2567 & t1 == 1083)
xm = 213000 + 385 * (2567 - 1083) + 4820000;
if (t2 < 2567 & t1 == 1083)
xm = 213000 + 385 * (t2 - 1083);
if (t1 < 1083 & t2 == 2567)
xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - 1083) + 4820000;
if (t1 == 1083 & t2 == 2567)
xm = 213000 + 385 * (2567 - 1083) + 4820000;
if (t1 > 1083 & t2 == 2567)
xm = 385 * (2567 - t1) + 4820000;
if (t2 > 2567 & t1 > 1083)
xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567);
if (t2 == 2567 & t1 > 1083)
xm = 385 * (2567 - t1) + 4820000;
if (t2 < 2567 & t1 > 1083)
xm = 385 * (t2 - t1);
if (t1 < 1083 & t2 < 2567)
xm = 385 * (1083 - t1) + 213000 + 385 * (t2 - 1083);
if (t1 == 1083 & t2 < 2567)
xm = 213000 + 385 * (t2 - 1083);
if (t1 > 1083 & t2 < 2567)
xm = 385 * (t2 - t1);
if (t1 == 2567 & t2 > 2567)
xm = 4820000 + 385 * (t2 - 2567);
if (t1 > 2567 & t2 > 2567)
xm = 385 * (t2 - t1);
if (t2 == 1083 & t1 < 1083)
xm = 385 * (1083 - t1) + 213000;
if (t2 < 1083 & t1 < 1083)
xm = 385 * (t2 - t1);
vpsm = (xm * m) / 23200000;
vpbm = (xm * m) / 32200000;
if (t2 > 2861 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000 + 449 * (t2 - 2861);
if (t2 == 2861 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000;
if (t2 < 2861 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000 + 449 * (2861 - t2);
if (t2 == 1539 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000;
if (t2 < 1539 & t1 < 1539)
xz = 449 * (t2 - t1);
if (t1 == 1539 & t2 > 2861)
xz = 277000 + 449 * (855 - 1539) + 6120000 + 449 * (t2 - 2861);
if (t1 > 1539 & t2 > 2861)
xz = 449 * (2861 - t1) + 6120000 + 449 * (t2 - 2861);
if (t1 == 2861 & t2 > 2861)
xz = 6120000 + 449 * (t2 - 2861);
if (t1 > 2861 & t2 > 2861)
xz = 449 * (t2 - t1);
if (t1 > 1539)
if (t2 < 2861)
xz = 449 * (t2 - t1);
if (t2 > 2861 & t1 == 1539)
xz = 277000 + 449 * (2861 - 1539) + 6120000 + 449 * (t2 - 2861);
if (t2 == 2861 & t1 == 1539)
xz = 277000 + 449 * (2861 - 1539) + 6120000;
if (t2 < 2861 & t1 == 1539)
xz = 277000 + 449 * (t2 - 1539);
if (t1 < 1539 & t2 == 2861)
xz = 449 * (1539 - t1) + 277000 + 449 * (2861 - 1539) + 6120000;
if (t1 == 1539 & t2 == 2861)
xz = 277000 + 449 * (2861 - 1539) + 6120000;
if (t1 > 1539 & t2 == 2861)
xz = 449 * (2861 - t1) + 6120000;
if (t2 > 2861 & t1 > 1539)
xz = 449 * (855 - t1) + 6120000 + 449 * (t2 - 2861);
if (t2 == 2861 & t1 > 1539)
xz = 449 * (2861 - t1) + 6120000;
if (t2 < 2861 & t1 > 1539)
xz = 449 * (t2 - t1);
if (t1 < 1539 & t2 < 2861)
xz = 449 * (1539 - t1) + 277000 + 449 * (t2 - 1539);
if (t1 == 1539 & t2 < 2861)
xz = 277000 + 449 * (t2 - 1539);
if (t1 > 1539 & t2 < 2861)
xz = 449 * (t2 - t1);
if (t1 == 2861 & t2 > 2861)
xz = 6120000 + 449 * (t2 - 2861);
if (t1 > 2861 & t2 > 2861)
xz = 449 * (t2 - t1);
if (t2 == 1539 & t1 < 1539)
xz = 449 * (1539 - t1) + 277000;
if (t2 < 1539 & t1 < 1539)
xz = 449 * (t2 - t1);
vpsz = (xz * m) / 23200000;
vpbz = (xz * m) / 32200000;
std::cout
<< "\n\nОб`єм спирту для води (льоду) (л) = " << vpsv << "\nОб`єм бензину для води (льоду) (л) = " << vpbv
<< "\n\nОб`єм спирту для алюмiнiю (л) = " << vpsa << "\nОб`єм бензину для алюмiнiю (л) = " << vpba
<< "\n\nОб`єм спирту для ртутi (л) = " << vpsr << "\nОб`єм бензину для ртутi (л) = " << vpbr
<< "\n\nОб`єм спирту для свинцю (л) = " << vpss << "\nОб`єм бензину для свинцю (л) = " << vpbs
<< "\n\nОб`єм спирту для мiдi (л) = " << vpsm << "\nОб`єм бензину для мiдi (л) = " << vpbm
<< "\n\nОб`єм спирту для залiза (л) = " << vpsz << "\nОб`єм бензину для залiза (л) = " << vpbz
<< std::endl;
getch();
return 0;
}
Реалізація в Python
Реалізація в Python
print (' УМОВА')
print ('Скiльки лiтрiв палива треба, щоб нагрiти')
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 > 100 and t1 < 0 : xv = 2100*(0-t1)+330000+4200*(100-0)+2260000+4200*(t2-100)
if t2 == 100 and t1 < 0 : xv = 2100*(0-t1)+330000+4200*(100-0)+2260000
if t2 < 100 and t1 < 0 : xv = 2100*(0-t1)+330000+4200*(100-t2)
if t2 == 0 and t1 < 0 : xv = 2100*(0-t1)+330000
if t2 < 0 and t1 < 0 : xv = 2100 * (t2 - t1)
if t1 == 0 and t2 > 100 : xv = 330000+4200*(100-0)+2260000+4200*(t2-100)
if t1 > 0 and t2 > 100 : xv = 4200*(100-t1)+2260000+4200*(t2-100)
if t1 == 100 and t2 > 100 : xv = 2260000+4200*(t2-100)
if t1 > 100 and t2 > 100 : xv = 4200 * (t2 - t1)
if t1 > 0 and t2 < 100 : xv = 4200 * (t2 - t1)
if t2 > 100 and t1 == 0 : xv = 330000+4200*(100-0)+2260000+4200*(t2-100)
if t2 == 100 and t1 == 0 : xv = 330000+4200*(100-0)+2260000
if t2 < 100 and t1 == 0 : xv = 330000+4200*(t2-0)
if t1 < 0 and t2 == 100 : xv = 2100*(0-t1)+330000+4200*(100-0)+2260000
if t1 == 0 and t2 == 100 : xv = 330000+4200*(100-0)+2260000
if t1 > 0 and t2 == 100 : xv = 4200*(100-t1)+2260000
if t2 > 100 and t1 > 0 : xv = 4200*(100-t1)+2260000+4200*(t2-100)
if t2 == 100 and t1 > 0 : xv = 4200*(100-t1)+2260000
if t2 < 100 and t1 > 0 : xv = 4200 * (t2 - t1)
if t1 < 0 and t2 < 100 : xv = 2100*(0-t1)+330000+4200*(t2-0)
if t1 == 0 and t2 < 100 : xv = 330000+4200*(t2-0)
if t1 > 0 and t2 < 100 : xv = 4200 * (t2 - t1)
if t1 == 100 and t2 > 100 : xv = 2260000+4200*(t2-100)
if t1 > 100 and t2 > 100 : xv = 4200 * (t2 - t1)
if t2 == 0 and t1 < 0 : xv = 2100*(0-t1)+330000
if t2 < 0 and t1 < 0 : xv = 2100 * (t2 - t1)
vpsv = (xv * m) / 23200000
vpbv = (xv * m) / 32200000
if t2 > 2519 and t1 < 660 : xa = 897 * (660 - t1) + 12957523 + 897 * (t2 - 2519)
if t2 == 2519 and t1 < 660 : xa = 897 * (660 - t1) + 12957523
if t2 < 2519 and t1 < 660 : xa = 897 * (660 - t1) + 390000 + 897 * (2519 - t2)
if t2 == 660 and t1 < 660 : xa = 897 * (660 - t1) + 390000
if t2 < 660 and t1 < 660 : xa = 897 * (t2 - t1)
if t1 == 660 and t2 > 2519 : xa = 12957523 + 897 * (t2 - 2519)
if t1 > 660 and t2 > 2519 : xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
if t1 == 2519 and t2 > 2519 : xa = 10900000 + 897 * (t2 - 2519)
if t1 > 2519 and t2 > 2519 : xa = 897 * (t2 - t1)
if t1 > 660 and t2 < 2519 : xa = 897 * (t2 - t1)
if t2 > 2519 and t1 == 660 : xa = 12957523 + 897 * (t2 - 2519)
if t2 == 2519 and t1 == 660 : xa = 12957523
if t2 < 2519 and t1 == 660 : xa = 390000 + 897 * (t2 - 660)
if t1 < 660 and t2 == 2519 : xa = 897 * (660 - t1) + 12957523
if t1 == 660 and t2 == 2519 : xa = 12957523
if t1 > 660 and t2 == 2519 : xa = 897 * (2519 - t1) + 10900000
if t2 > 2519 and t1 > 660 : xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
if t2 == 2519 and t1 > 660 : xa = 897 * (2519 - t1) + 10900000
if t2 < 2519 and t1 > 660 : xa = 897 * (t2 - t1)
if t1 < 660 and t2 < 2519 : xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
if t1 == 660 and t2 < 2519 : xa = 10900000 + 897 * (t2 - 2519)
if t1 > 660 and t2 < 2519 : xa = 897 * (t2 - t1)
if t1 == 2519 and t2 > 2519 : xa = 10900000 + 897 * (t2 - 2519)
if t1 > 2519 and t2 > 2519 : xa = 897 * (t2 - t1)
if t2 == 660 and t1 < 660 : xa = 897 * (660 - t1) + 390000
if t2 < 660 and t1 < 660 : xa = 897 * (t2 - t1)
vpsa = (xa * m) / 23200000
vpba = (xa * m) / 32200000
if t2 > 357 and t1 < (-39) : xr = 140 * ((-39) - t1) + 349440 + 140 * (t2 - 357)
if t2 == 357 and t1 < (-39) : xr = 140 * ((-39) - t1) + 349440
if t2 < 357 and t1 < (-39) : xr = 140 * ((-39) - t1) + 12000 + 140 * (357 - t2)
if t2 == (-39) and t1 < (-39) : xr = 140 * ((-39) - t1) + 12000
if t2 < (-39) and t1 < (-39) : xr = 140 * (t2 - t1)
if t1 == (-39) and t2 > 357 : xr = 349440 + 140 * (t2 - 357)
if t1 > (-39) and t2 > 357 : xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
if t1 == 357 and t2 > 357 : xr = 282000 + 140 * (t2 - 357)
if t1 > 357 and t2 > 357 : xr = 140 * (t2 - t1)
if t1 > (-39) and t2 < 357 : xr = 140 * (t2 - t1)
if t2 > 357 and t1 == (-39) : xr = 349440 + 140 * (t2 - 357)
if t2 == 357 and t1 == (-39) : xr = 349440
if t2 < 357 and t1 == (-39) : xr = 12000 + 140 * (t2 - (-39))
if t1 < (-39) and t2 == 357 : xr = 140 * ((-39) - t1) + 349440
if t1 == (-39) and t2 == 357 : xr = 349440
if t1 > (-39) and t2 == 357 : xr = 140 * (357 - t1) + 282000
if t2 > 357 and t1 > (-39) : xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
if t2 == 357 and t1 > (-39) : xr = 140 * (357 - t1) + 282000
if t2 < 357 and t1 > (-39) : xr = 140 * (t2 - t1)
if t1 < (-39) and t2 < 357 : xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
if t1 == (-39) and t2 < 357 : xr = 282000 + 140 * (t2 - 357)
if t1 > (-39) and t2 < 357 : xr = 140 * (t2 - t1)
if t1 == 357 and t2 > 357 : xr = 282000 + 140 * (t2 - 357)
if t1 > 357 and t2 > 357 : xr = 140 * (t2 - t1)
if t2 == (-39) and t1 < (-39) : xr = 140 * ((-39) - t1) + 12000
if t2 < (-39) and t1 < (-39) : xr = 140 * (t2 - t1)
vpsr = (xr * m) / 23200000
vpbr = (xr * m) / 32200000
if t2 > 1749 and t1 < 328 : xs = 130 * (328 - t1) + 1064730 + 130 * (t2 - 1749)
if t2 == 1749 and t1 < 328 : xs = 130 * (328 - t1) + 1064730
if t2 < 1749 and t1 < 328 : xs = 130 * (328 - t1) + 25000 + 130 * (1749 - t2)
if t2 == 328 and t1 < 328 : xs = 130 * (328 - t1) + 25000
if t2 < 328 and t1 < 328 : xs = 130 * (t2 - t1)
if t1 == 328 and t2 > 1749 : xs = 1064730 + 130 * (t2 - 1749)
if t1 > 328 and t2 > 1749 : xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
if t1 == 1749 and t2 > 1749 : xs = 855000 + 130 * (t2 - 1749)
if t1 > 1749 and t2 > 1749 : xs = 130 * (t2 - t1)
if t1 > 328 and t2 < 1749 : xs = 130 * (t2 - t1)
if t2 > 1749 and t1 == 328 : xs = 1064730 + 130 * (t2 - 1749)
if t2 == 1749 and t1 == 328 : xs = 1064730
if t2 < 1749 and t1 == 328 : xs = 25000 + 130 * (t2 - 328)
if t1 < 328 and t2 == 1749 : xs = 130 * (328 - t1) + 1064730
if t1 == 328 and t2 == 1749 : xs = 1064730
if t1 > 328 and t2 == 1749 : xs = 130 * (1749 - t1) + 855000
if t2 > 1749 and t1 > 328 : xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
if t2 == 1749 and t1 > 328 : xs = 130 * (1749 - t1) + 855000
if t2 < 1749 and t1 > 328 : xs = 130 * (t2 - t1)
if t1 < 328 and t2 < 1749 : xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
if t1 == 328 and t2 < 1749 : xs = 25000 + 130 * (t2 - 328)
if t1 > 328 and t2 < 1749 : xs = 130 * (t2 - t1)
if t1 == 1749 and t2 > 1749 : xs = 855000 + 130 * (t2 - 1749)
if t1 > 1749 and t2 > 1749 : xs = 130 * (t2 - t1)
if t2 == 328 and t1 < 328 : xs = 130 * (328 - t1) + 25000
if t2 < 328 and t1 < 328 : xs = 130 * (t2 - t1)
vpss = (xs * m) / 23200000
vpbs = (xs * m) / 32200000
if t2 > 2567 and t1 < 1083 : xm = 385 * (1083 - t1) + 5604340 + 385 * (t2 - 2567)
if t2 == 2567 and t1 < 1083 : xm = 385 * (1083 - t1) + 5604340
if t2 < 2567 and t1 < 1083 : xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2)
if t2 == 1083 and t1 < 1083 : xm = 385 * (1083 - t1) + 213000
if t2 < 1083 and t1 < 1083 : xm = 385 * (t2 - t1)
if t1 == 1083 and t2 > 2567 : xm = 5604340 + 385 * (t2 - 2567)
if t1 > 1083 and t2 > 2567 : xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
if t1 == 2567 and t2 > 2567 : xm = 4820000 + 385 * (t2 - 2567)
if t1 > 2567 and t2 > 2567 : xm = 385 * (t2 - t1)
if t1 > 1083 and t2 < 2567 : xm = 385 * (t2 - t1)
if t2 > 2567 and t1 == 1083 : xm = 5604340 + 385 * (t2 - 2567)
if t2 == 2567 and t1 == 1083 : xm = 5604340
if t2 < 2567 and t1 == 1083 : xm = 213000 + 385 * (t2 - 1083)
if t1 < 1083 and t2 == 2567 : xm = 385 * (1083 - t1) + 5604340
if t1 == 1083 and t2 == 2567 : xm = 5604340
if t1 > 1083 and t2 == 2567 : xm = 385 * (2567 - t1) + 4820000
if t2 > 2567 and t1 > 1083 : xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
if t2 == 2567 and t1 > 1083 : xm = 385 * (2567 - t1) + 4820000
if t2 < 2567 and t1 > 1083 : xm = 385 * (t2 - t1)
if t1 < 1083 and t2 < 2567 : xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
if t1 == 1083 and t2 < 2567 : xm = 213000 + 385 * (t2 - 1083)
if t1 > 1083 and t2 < 2567 : xm = 385 * (t2 - t1)
if t1 == 2567 and t2 > 2567 : xm = 4820000 + 385 * (t2 - 2567)
if t1 > 2567 and t2 > 2567 : xm = 385 * (t2 - t1)
if t2 == 1083 and t1 < 1083 : xm = 385 * (1083 - t1) + 213000
if t2 < 1083 and t1 < 1083 : xm = 385 * (t2 - t1)
vpsm = (xm * m) / 23200000
vpbm = (xm * m) / 32200000
if t2 > 2567 and t1 < 1539 : xz = 449 * (1539 - t1) + 6990578 + 449 * (t2 - 2567)
if t2 == 2567 and t1 < 1539 : xz = 449 * (1539 - t1) + 6990578
if t2 < 2567 and t1 < 1539 : xz = 449 * (1539 - t1) + 277000 + 449 * (2567 - t2)
if t2 == 1539 and t1 < 1539 : xz = 449 * (1539 - t1) + 277000
if t2 < 1539 and t1 < 1539 : xz = 449 * (t2 - t1)
if t1 == 1539 and t2 > 2567 : xz = 6990578 + 449 * (t2 - 2567)
if t1 > 1539 and t2 > 2567 : xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
if t1 == 2567 and t2 > 2567 : xz = 6120000 + 449 * (t2 - 2567)
if t1 > 2567 and t2 > 2567 : xz = 449 * (t2 - t1)
if t1 > 1539 and t2 < 2567 : xz = 449 * (t2 - t1)
if t2 > 2567 and t1 == 1539 : xz = 6990578 + 449 * (t2 - 2567)
if t2 == 2567 and t1 == 1539 : xz = 6990578
if t2 < 2567 and t1 == 1539 : xz = 277000 + 449 * (t2 - 1539)
if t1 < 1539 and t2 == 2567 : xz = 449 * (1539 - t1) + 6990578
if t1 == 1539 and t2 == 2567 : xz = 6990578
if t1 > 1539 and t2 == 2567 : xz = 449 * (2567 - t1) + 6120000
if t2 > 2567 and t1 > 1539 : xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
if t2 == 2567 and t1 > 1539 : xz = 449 * (2567 - t1) + 6120000
if t2 < 2567 and t1 > 1539 : xz = 449 * (t2 - t1)
if t1 < 1539 and t2 < 2567 : xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
if t1 == 1539 and t2 < 2567 : xz = 277000 + 449 * (t2 - 1539)
if t1 > 1539 and t2 < 2567 : xz = 449 * (t2 - t1)
if t1 == 2567 and t2 > 2567 : xz = 6120000 + 449 * (t2 - 2567)
if t1 > 2567 and t2 > 2567 : xz = 449 * (t2 - t1)
if t2 == 1539 and t1 < 1539 : xz = 449 * (1539 - t1) + 277000
if t2 < 1539 and t1 < 1539 : xz = 449 * (t2 - t1)
vpsz = (xz * m) / 23200000
vpbz = (xz * m) / 32200000
print (' ')
print ('Об`єм спирту для води (л) = ', vpsv)
print ('Об`єм бензину для води (л) = ', vpbv)
print (' ')
print ('Об`єм спирту для алюмiнiю (л) = ', vpsa)
print ('Об`єм бензину для алюмiнiю (л) = ', vpba)
print (' ')
print ('Об`єм спирту для ртутi (л) = ', vpsr)
print ('Об`єм бензину для ртутi (л) = ', vpbr)
print (' ')
print ('Об`єм спирту для свинцю (л) = ', vpss)
print ('Об`єм бензину для свинцю (л) = ', vpbs)
print (' ')
print ('Об`єм спирту для мiдi (л) = ', vpsm)
print ('Об`єм бензину для мiдi (л) = ', vpbm)
print (' ')
print ('Об`єм спирту для залiза (л) = ', vpsz)
print ('Об`єм бензину для залiза (л) = ', vpbz)
input()
Графічні програми
Графічні програми
Реалізація в VB6
Код
Код
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Молекулярна фізика"
ClientHeight = 5235
ClientLeft = 45
ClientTop = 390
ClientWidth = 12450
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5235
ScaleWidth = 12450
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text15
Height = 285
Left = 9000
TabIndex = 32
Top = 4080
Width = 2415
End
Begin VB.TextBox Text14
Height = 285
Left = 6240
TabIndex = 31
Top = 4080
Width = 2415
End
Begin VB.TextBox Text13
Height = 285
Left = 9000
TabIndex = 28
Top = 3240
Width = 2415
End
Begin VB.TextBox Text12
Height = 285
Left = 6240
TabIndex = 27
Top = 3240
Width = 2415
End
Begin VB.TextBox Text11
Height = 285
Left = 9000
TabIndex = 24
Top = 2400
Width = 2415
End
Begin VB.TextBox Text10
Height = 285
Left = 6240
TabIndex = 23
Top = 2400
Width = 2415
End
Begin VB.TextBox Text9
Height = 285
Left = 3480
TabIndex = 20
Top = 4080
Width = 2415
End
Begin VB.TextBox Text8
Height = 285
Left = 720
TabIndex = 19
Top = 4080
Width = 2415
End
Begin VB.TextBox Text7
Height = 285
Left = 3480
TabIndex = 16
Top = 3240
Width = 2415
End
Begin VB.TextBox Text6
Height = 285
Left = 720
TabIndex = 15
Top = 3240
Width = 2415
End
Begin VB.CommandButton Command3
Caption = "СТАРТ"
Height = 495
Left = 9000
TabIndex = 13
Top = 1320
Width = 2415
End
Begin VB.TextBox Text5
Height = 285
Left = 720
TabIndex = 12
Top = 2400
Width = 2415
End
Begin VB.TextBox Text4
Height = 285
Left = 3480
TabIndex = 10
Top = 2400
Width = 2415
End
Begin VB.TextBox Text3
Height = 285
Left = 6240
TabIndex = 8
Top = 1560
Width = 2415
End
Begin VB.TextBox Text2
Height = 285
Left = 3480
TabIndex = 6
Top = 1560
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 = 6240
TabIndex = 1
Top = 4560
Width = 5415
End
Begin VB.CommandButton Command1
Caption = "Очистка"
Height = 375
Left = 600
TabIndex = 0
Top = 4560
Width = 5415
End
Begin VB.Label Label17
Caption = "Об'єм спирту для заліза (л) ="
Height = 255
Left = 9000
TabIndex = 34
Top = 3720
Width = 2535
End
Begin VB.Label Label16
Caption = "Об'єм бензинy для заліза (л) ="
Height = 255
Left = 6240
TabIndex = 33
Top = 3720
Width = 2535
End
Begin VB.Label Label15
Caption = "Об'єм спирту для свинцю (л) ="
Height = 255
Left = 9000
TabIndex = 30
Top = 2880
Width = 2535
End
Begin VB.Label Label14
Caption = "Об'єм бензинy для свинцю (л) ="
Height = 255
Left = 6240
TabIndex = 29
Top = 2880
Width = 2535
End
Begin VB.Label Label13
Caption = "Об'єм спирту для алюмінію (л) ="
Height = 255
Left = 9000
TabIndex = 26
Top = 2040
Width = 2535
End
Begin VB.Label Label12
Caption = "Об'єм бензинy для алюмінію (л) ="
Height = 255
Left = 6240
TabIndex = 25
Top = 2040
Width = 2535
End
Begin VB.Label Label11
Caption = "Об'єм спирту для міді (л) ="
Height = 255
Left = 3480
TabIndex = 22
Top = 3720
Width = 2535
End
Begin VB.Label Label10
Caption = "Об'єм бензинy для міді (л) ="
Height = 255
Left = 720
TabIndex = 21
Top = 3720
Width = 2535
End
Begin VB.Label Label9
Caption = "Об'єм спирту для ртуті (л) ="
Height = 255
Left = 3480
TabIndex = 18
Top = 2880
Width = 2535
End
Begin VB.Label Label8
Caption = "Об'єм бензинy для ртуті (л) ="
Height = 255
Left = 720
TabIndex = 17
Top = 2880
Width = 2535
End
Begin VB.Label Label7
Caption = "УМОВА"
Height = 255
Left = 5880
TabIndex = 14
Top = 240
Width = 615
End
Begin VB.Label Label6
Caption = "Об'єм бензинy для води (л) ="
Height = 255
Left = 720
TabIndex = 11
Top = 2040
Width = 2535
End
Begin VB.Label Label5
Caption = "Об'єм спирту води (л) ="
Height = 255
Left = 3480
TabIndex = 9
Top = 2040
Width = 2535
End
Begin VB.Label Label4
Caption = "Маса речовини (кг) ="
Height = 255
Left = 6240
TabIndex = 7
Top = 1200
Width = 2535
End
Begin VB.Label Label3
Caption = "Кiнцева Температура (в CI)="
Height = 255
Left = 3480
TabIndex = 5
Top = 1200
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 = 1560
TabIndex = 2
Top = 480
Width = 9495
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 = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.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 > 100 And t1 < 0 Then xv = 2100 * (-t1) + 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
If t2 = 100 And t1 < 0 Then xv = 2100 * (-t1) + 330000 + 420000 + 2260000
If t2 < 100 And t1 < 0 Then xv = 2100 * (-t1) + 330000 + 4200 * (100 - t2)
If t2 = 0 And t1 < 0 Then xv = 2100 * (-t1) + 330000
If t2 < 0 And t1 < 0 Then xv = 2100 * (t2 - t1)
If t1 = 0 And t2 > 100 Then xv = 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
If t1 > 0 And t2 > 100 Then xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
If t1 = 100 And t2 > 100 Then xv = 2260000 + 4200 * (t2 - 100)
If t1 > 100 And t2 > 100 Then xv = 4200 * (t2 - t1)
If t1 > 0 Then If t2 < 100 Then xv = 4200 * (t2 - t1)
If t2 > 100 And t1 = 0 Then xv = 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
If t2 = 100 And t1 = 0 Then xv = 330000 + 420000 + 2260000
If t2 < 100 And t1 = 0 Then xv = 330000 + 4200 * t2
If t1 < 0 And t2 = 100 Then xv = 2100 * (-t1) + 330000 + 420000 + 2260000
If t1 = 0 And t2 = 100 Then xv = 330000 + 420000 + 2260000
If t1 > 0 And t2 = 100 Then xv = 4200 * (100 - t1) + 2260000
If t2 > 100 And t1 > 0 Then xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
If t2 = 100 And t1 > 0 Then xv = 4200 * (100 - t1) + 2260000
If t2 < 100 And t1 > 0 Then xv = 4200 * (t2 - t1)
If t1 < 0 And t2 < 100 Then xv = 2100 * (-t1) + 330000 + 4200 * t2
If t1 = 0 And t2 < 100 Then xv = 330000 + 4200 * t2
If t1 > 0 And t2 < 100 Then xv = 4200 * (t2 - t1)
If t1 = 100 And t2 > 100 Then xv = 2260000 + 4200 * (t2 - 100)
If t1 > 100 And t2 > 100 Then xv = 4200 * (t2 - t1)
If t2 = 0 And t1 < 0 Then xv = 2100 * t1 + 330000
If t2 < 0 And t1 < 0 Then xv = 2100 * (t2 - t1)
vpsv = (xv * m) / 23200000
vpbv = (xv * m) / 32200000
If t2 > 2519 And t1 < 660 Then xa = 897 * (660 - t1) + 12957523 + 897 * (t2 - 2519)
If t2 = 2519 And t1 < 660 Then xa = 897 * (660 - t1) + 12957523
If t2 < 2519 And t1 < 660 Then xa = 897 * (660 - t1) + 390000 + 897 * (2519 - t2)
If t2 = 660 And t1 < 660 Then xa = 897 * (660 - t1) + 390000
If t2 < 660 And t1 < 660 Then xa = 897 * (t2 - t1)
If t1 = 660 And t2 > 2519 Then xa = 12957523 + 897 * (t2 - 2519)
If t1 > 660 And t2 > 2519 Then xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
If t1 = 2519 And t2 > 2519 Then xa = 10900000 + 897 * (t2 - 2519)
If t1 > 2519 And t2 > 2519 Then xa = 897 * (t2 - t1)
If t1 > 660 Then If t2 < 2519 Then xa = 897 * (t2 - t1)
If t2 > 2519 And t1 = 660 Then xa = 12957523 + 897 * (t2 - 2519)
If t2 = 2519 And t1 = 660 Then xa = 12957523
If t2 < 2519 And t1 = 660 Then xa = 390000 + 897 * (t2 - 660)
If t1 < 660 And t2 = 2519 Then xa = 897 * (660 - t1) + 12957523
If t1 = 660 And t2 = 2519 Then xa = 12957523
If t1 > 660 And t2 = 2519 Then xa = 897 * (2519 - t1) + 10900000
If t2 > 2519 And t1 > 660 Then xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
If t2 = 2519 And t1 > 660 Then xa = 897 * (2519 - t1) + 10900000
If t2 < 2519 And t1 > 660 Then xa = 897 * (t2 - t1)
If t1 < 660 And t2 < 2519 Then xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
If t1 = 660 And t2 < 2519 Then xa = 10900000 + 897 * (t2 - 2519)
If t1 > 660 And t2 < 2519 Then xa = 897 * (t2 - t1)
If t1 = 2519 And t2 > 2519 Then xa = 10900000 + 897 * (t2 - 2519)
If t1 > 2519 And t2 > 2519 Then xa = 897 * (t2 - t1)
If t2 = 660 And t1 < 660 Then xa = 897 * (660 - t1) + 390000
If t2 < 660 And t1 < 660 Then xa = 897 * (t2 - t1)
vpsa = (xa * m) / 23200000
vpba = (xa * m) / 32200000
If t2 > 357 And t1 < (-39) Then xr = 140 * ((-39) - t1) + 349440 + 140 * (t2 - 357)
If t2 = 357 And t1 < (-39) Then xr = 140 * ((-39) - t1) + 349440
If t2 < 357 And t1 < (-39) Then xr = 140 * ((-39) - t1) + 12000 + 140 * (357 - t2)
If t2 = (-39) And t1 < (-39) Then xr = 140 * ((-39) - t1) + 12000
If t2 < (-39) And t1 < (-39) Then xr = 140 * (t2 - t1)
If t1 = (-39) And t2 > 357 Then xr = 349440 + 140 * (t2 - 357)
If t1 > (-39) And t2 > 357 Then xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
If t1 = 357 And t2 > 357 Then xr = 282000 + 140 * (t2 - 357)
If t1 > 357 And t2 > 357 Then xr = 140 * (t2 - t1)
If t1 > (-39) Then If t2 < 357 Then xr = 140 * (t2 - t1)
If t2 > 357 And t1 = (-39) Then xr = 349440 + 140 * (t2 - 357)
If t2 = 357 And t1 = (-39) Then xr = 349440
If t2 < 357 And t1 = (-39) Then xr = 12000 + 140 * (t2 - (-39))
If t1 < (-39) And t2 = 357 Then xr = 140 * ((-39) - t1) + 349440
If t1 = (-39) And t2 = 357 Then xr = 349440
If t1 > (-39) And t2 = 357 Then xr = 140 * (357 - t1) + 282000
If t2 > 357 And t1 > (-39) Then xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
If t2 = 357 And t1 > (-39) Then xr = 140 * (357 - t1) + 282000
If t2 < 357 And t1 > (-39) Then xr = 140 * (t2 - t1)
If t1 < (-39) And t2 < 357 Then xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
If t1 = (-39) And t2 < 357 Then xr = 282000 + 140 * (t2 - 357)
If t1 > (-39) And t2 < 357 Then xr = 140 * (t2 - t1)
If t1 = 357 And t2 > 357 Then xr = 282000 + 140 * (t2 - 357)
If t1 > 357 And t2 > 357 Then xr = 140 * (t2 - t1)
If t2 = (-39) And t1 < (-39) Then xr = 140 * ((-39) - t1) + 12000
If t2 < (-39) And t1 < (-39) Then xr = 140 * (t2 - t1)
vpsr = (xr * m) / 23200000
vpbr = (xr * m) / 32200000
If t2 > 1749 And t1 < 328 Then xs = 130 * (328 - t1) + 1064730 + 130 * (t2 - 1749)
If t2 = 1749 And t1 < 328 Then xs = 130 * (328 - t1) + 1064730
If t2 < 1749 And t1 < 328 Then xs = 130 * (328 - t1) + 25000 + 130 * (1749 - t2)
If t2 = 328 And t1 < 328 Then xs = 130 * (328 - t1) + 25000
If t2 < 328 And t1 < 328 Then xs = 130 * (t2 - t1)
If t1 = 328 And t2 > 1749 Then xs = 1064730 + 130 * (t2 - 1749)
If t1 > 328 And t2 > 1749 Then xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
If t1 = 1749 And t2 > 1749 Then xs = 855000 + 130 * (t2 - 1749)
If t1 > 1749 And t2 > 1749 Then xs = 130 * (t2 - t1)
If t1 > 328 Then If t2 < 1749 Then xs = 130 * (t2 - t1)
If t2 > 1749 And t1 = 328 Then xs = 1064730 + 130 * (t2 - 1749)
If t2 = 1749 And t1 = 328 Then xs = 1064730
If t2 < 1749 And t1 = 328 Then xs = 25000 + 130 * (t2 - 328)
If t1 < 328 And t2 = 1749 Then xs = 130 * (328 - t1) + 1064730
If t1 = 328 And t2 = 1749 Then xs = 1064730
If t1 > 328 And t2 = 1749 Then xs = 130 * (1749 - t1) + 855000
If t2 > 1749 And t1 > 328 Then xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
If t2 = 1749 And t1 > 328 Then xs = 130 * (1749 - t1) + 855000
If t2 < 1749 And t1 > 328 Then xs = 130 * (t2 - t1)
If t1 < 328 And t2 < 1749 Then xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
If t1 = 328 And t2 < 1749 Then xs = 25000 + 130 * (t2 - 328)
If t1 > 328 And t2 < 1749 Then xs = 130 * (t2 - t1)
If t1 = 1749 And t2 > 1749 Then xs = 855000 + 130 * (t2 - 1749)
If t1 > 1749 And t2 > 1749 Then xs = 130 * (t2 - t1)
If t2 = 328 And t1 < 328 Then xs = 130 * (328 - t1) + 25000
If t2 < 328 And t1 < 328 Then xs = 130 * (t2 - t1)
vpss = (xs * m) / 23200000
vpbs = (xs * m) / 32200000
If t2 > 2567 And t1 < 1083 Then xm = 385 * (1083 - t1) + 5604340 + 385 * (t2 - 2567)
If t2 = 2567 And t1 < 1083 Then xm = 385 * (1083 - t1) + 5604340
If t2 < 2567 And t1 < 1083 Then xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2)
If t2 = 1083 And t1 < 1083 Then xm = 385 * (1083 - t1) + 213000
If t2 < 1083 And t1 < 1083 Then xm = 385 * (t2 - t1)
If t1 = 1083 And t2 > 2567 Then xm = 5604340 + 385 * (t2 - 2567)
If t1 > 1083 And t2 > 2567 Then xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
If t1 = 2567 And t2 > 2567 Then xm = 4820000 + 385 * (t2 - 2567)
If t1 > 2567 And t2 > 2567 Then xm = 385 * (t2 - t1)
If t1 > 1083 Then If t2 < 2567 Then xm = 385 * (t2 - t1)
If t2 > 2567 And t1 = 1083 Then xm = 5604340 + 385 * (t2 - 2567)
If t2 = 2567 And t1 = 1083 Then xm = 5604340
If t2 < 2567 And t1 = 1083 Then xm = 213000 + 385 * (t2 - 1083)
If t1 < 1083 And t2 = 2567 Then xm = 385 * (1083 - t1) + 5604340
If t1 = 1083 And t2 = 2567 Then xm = 5604340
If t1 > 1083 And t2 = 2567 Then xm = 385 * (2567 - t1) + 4820000
If t2 > 2567 And t1 > 1083 Then xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
If t2 = 2567 And t1 > 1083 Then xm = 385 * (2567 - t1) + 4820000
If t2 < 2567 And t1 > 1083 Then xm = 385 * (t2 - t1)
If t1 < 1083 And t2 < 2567 Then xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
If t1 = 1083 And t2 < 2567 Then xm = 213000 + 385 * (t2 - 1083)
If t1 > 1083 And t2 < 2567 Then xm = 385 * (t2 - t1)
If t1 = 2567 And t2 > 2567 Then xm = 4820000 + 385 * (t2 - 2567)
If t1 > 2567 And t2 > 2567 Then xm = 385 * (t2 - t1)
If t2 = 1083 And t1 < 1083 Then xm = 385 * (1083 - t1) + 213000
If t2 < 1083 And t1 < 1083 Then xm = 385 * (t2 - t1)
vpsm = (xm * m) / 23200000
vpbm = (xm * m) / 32200000
If t2 > 2567 And t1 < 1539 Then xz = 449 * (1539 - t1) + 6990578 + 449 * (t2 - 2567)
If t2 = 2567 And t1 < 1539 Then xz = 449 * (1539 - t1) + 6990578
If t2 < 2567 And t1 < 1539 Then xz = 449 * (1539 - t1) + 277000 + 449 * (2567 - t2)
If t2 = 1539 And t1 < 1539 Then xz = 449 * (1539 - t1) + 277000
If t2 < 1539 And t1 < 1539 Then xz = 449 * (t2 - t1)
If t1 = 1539 And t2 > 2567 Then xz = 6990578 + 449 * (t2 - 2567)
If t1 > 1539 And t2 > 2567 Then xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
If t1 = 2567 And t2 > 2567 Then xz = 6120000 + 449 * (t2 - 2567)
If t1 > 2567 And t2 > 2567 Then xz = 449 * (t2 - t1)
If t1 > 1539 Then If t2 < 2567 Then xz = 449 * (t2 - t1)
If t2 > 2567 And t1 = 1539 Then xz = 6990578 + 449 * (t2 - 2567)
If t2 = 2567 And t1 = 1539 Then xz = 6990578
If t2 < 2567 And t1 = 1539 Then xz = 277000 + 449 * (t2 - 1539)
If t1 < 1539 And t2 = 2567 Then xz = 449 * (1539 - t1) + 6990578
If t1 = 1539 And t2 = 2567 Then xz = 6990578
If t1 > 1539 And t2 = 2567 Then xz = 449 * (2567 - t1) + 6120000
If t2 > 2567 And t1 > 1539 Then xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
If t2 = 2567 And t1 > 1539 Then xz = 449 * (2567 - t1) + 6120000
If t2 < 2567 And t1 > 1539 Then xz = 449 * (t2 - t1)
If t1 < 1539 And t2 < 2567 Then xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
If t1 = 1539 And t2 < 2567 Then xz = 277000 + 449 * (t2 - 1539)
If t1 > 1539 And t2 < 2567 Then xz = 449 * (t2 - t1)
If t1 = 2567 And t2 > 2567 Then xz = 6120000 + 449 * (t2 - 2567)
If t1 > 2567 And t2 > 2567 Then xz = 449 * (t2 - t1)
If t2 = 1539 And t1 < 1539 Then xz = 449 * (1539 - t1) + 277000
If t2 < 1539 And t1 < 1539 Then xz = 449 * (t2 - t1)
vpsz = (xz * m) / 23200000
vpbz = (xz * m) / 32200000
Text4.Text = vpsv
Text5.Text = vpbv
Text11.Text = vpsa
Text10.Text = vpba
Text6.Text = vpbr
Text7.Text = vpsr
Text12.Text = vpbs
Text13.Text = vpss
Text8.Text = vpbm
Text9.Text = vpsm
Text14.Text = vpbz
Text15.Text = vpsz
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 t1,t2,m,vpbv,vpba,vpbr,vpbs,vpbm,vpbz,vpsv,vpsa,vpsr,vpss,vpsm,vpsz,xv,xa,xr,xs,xm,xz:real;
begin
t1:=StrToFloat(TextBox1.Text);
t2:=StrToFloat(TextBox2.Text);
m:=StrToFloat(TextBox3.Text);
if t1<0 then
begin
if t2>100 then xv:=2100*(0-t1)+330000+4200*(100-0)+2260000+4200*(t2-100);
if t2=100 then xv:=2100*(0-t1)+330000+4200*(100-0)+2260000;
if t2<100 then xv:=2100*(0-t1)+330000+4200*(100-t2);
if t2=0 then xv:=2100*(0-t1)+330000;
if t2<0 then xv:=2100*(t2-t1);
end;
if t2>100 then
begin
if t1=0 then xv:=330000+4200*(100-0)+2260000+4200*(t2-100);
if t1>0 then xv:=4200*(100-t1)+2260000+4200*(t2-100);
if t1=100 then xv:=2260000+4200*(t2-100);
if t1>100 then xv:=4200*(t2-t1);
end;
if t1>0 then if t2<100 then xv:=4200*(t2-t1);
if t1=0 then
begin
if t2>100 then xv:=330000+4200*(100-0)+2260000+4200*(t2-100);
if t2=100 then xv:=330000+4200*(100-0)+2260000;
if t2<100 then xv:=330000+4200*(t2-0);
end;
if t2=100 then
begin
if t1<0 then xv:=2100*(0-t1)+330000+4200*(100-0)+2260000;
if t1=0 then xv:=330000+4200*(100-0)+2260000;
if t1>0 then xv:=4200*(100-t1)+2260000;
end;
if t1>0 then
begin
if t2>100 then xv:=4200*(100-t1)+2260000+4200*(t2-100);
if t2=100 then xv:=4200*(100-t1)+2260000;
if t2<100 then xv:=4200*(t2-t1);
end;
if t2<100 then
begin
if t1<0 then xv:=2100*(0-t1)+330000+4200*(t2-0);
if t1=0 then xv:=330000+4200*(t2-0);
if t1>0 then xv:=4200*(t2-t1);
end;
if t2>100 then
begin
if t1=100 then xv:=2260000+4200*(t2-100);
if t1>100 then xv:=4200*(t2-t1);
end;
if t1<0 then
begin
if t2=0 then xv:=2100*(0-t1)+330000;
if t2<0 then xv:=2100*(t2-t1);
end;
vpsv:= (xv*m)/23200000;
vpbv:= (xv*m)/32200000;
if t1<660 then
begin
if t2>2519 then xa:=897*(660-t1)+390000+897*(2519-660)+10900000+897*(t2-2519);
if t2=2519 then xa:=897*(660-t1)+390000+897*(2519-660)+10900000;
if t2<2519 then xa:=897*(660-t1)+390000+897*(2519-t2);
if t2=660 then xa:=897*(660-t1)+390000;
if t2<660 then xa:=897*(t2-t1);
end;
if t2>2519 then
begin
if t1=660 then xa:=390000+897*(2519-660)+10900000+897*(t2-2519);
if t1>660 then xa:=897*(2519-t1)+10900000+897*(t2-2519);
if t1=2519 then xa:=10900000+897*(t2-2519);
if t1>2519 then xa:=897*(t2-t1);
end;
if t1>660 then if t2<2519 then xa:=897*(t2-t1);
if t1=660 then
begin
if t2>2519 then xa:=390000+897*(2519-660)+10900000+897*(t2-2519);
if t2=2519 then xa:=390000+897*(2519-660)+10900000;
if t2<2519 then xa:=390000+897*(t2-660);
end;
if t2=2519 then
begin
if t1<660 then xa:=897*(660-t1)+390000+897*(100-660)+10900000;
if t1=660 then xa:=390000+897*(2519-660)+10900000;
if t1>660 then xa:=897*(2519-t1)+10900000;
end;
if t1>660 then
begin
if t2>2519 then xa:=897*(2519-t1)+10900000+897*(t2-2519);
if t2=2519 then xa:=897*(2519-t1)+10900000;
if t2<2519 then xa:=897*(t2-t1);
end;
if t2<2519 then
begin
if t1<660 then xa:=897*(660-t1)+390000+897*(t2-660);
if t1=660 then xa:=390000+897*(t2-660);
if t1>660 then xa:=897*(t2-t1);
end;
if t2>2519 then
begin
if t1=2519 then xa:=10900000+897*(t2-2519);
if t1>2519 then xa:=897*(t2-t1);
end;
if t1<660 then
begin
if t2=660 then xa:=897*(660-t1)+390000;
if t2<660 then xa:=897*(t2-t1);
end;
vpsa:= (xa*m)/23200000;
vpba:= (xa*m)/32200000;
if t1<(-39) then
begin
if t2>357 then xr:=140*((-39)-t1)+12000+140*(357-(-39))+282000+140*(t2-357);
if t2=357 then xr:=140*((-39)-t1)+12000+140*(357-(-39))+282000;
if t2<357 then xr:=140*((-39)-t1)+12000+140*(357-t2);
if t2=(-39) then xr:=140*((-39)-t1)+12000;
if t2<(-39) then xr:=140*(t2-t1);
end;
if t2>357 then
begin
if t1=(-39) then xr:=12000+140*(357-(-39))+282000+140*(t2-357);
if t1>(-39) then xr:=140*(357-t1)+282000+140*(t2-357);
if t1=357 then xr:=282000+140*(t2-357);
if t1>357 then xr:=140*(t2-t1);
end;
if t1>(-39) then if t2<357 then xr:=140*(t2-t1);
if t1=(-39) then
begin
if t2>357 then xr:=12000+140*(357-(-39))+282000+140*(t2-357);
if t2=357 then xr:=12000+140*(357-(-39))+282000;
if t2<357 then xr:=12000+140*(t2-(-39));
end;
if t2=357 then
begin
if t1<(-39) then xr:=140*((-39)-t1)+12000+140*(100-(-39))+282000;
if t1=(-39) then xr:=12000+140*(357-(-39))+282000;
if t1>(-39) then xr:=140*(357-t1)+282000;
end;
if t1>(-39) then
begin
if t2>357 then xr:=140*(357-t1)+282000+140*(t2-357);
if t2=357 then xr:=140*(357-t1)+282000;
if t2<357 then xr:=140*(t2-t1);
end;
if t2<357 then
begin
if t1<(-39) then xr:=140*((-39)-t1)+12000+140*(t2-(-39));
if t1=(-39) then xr:=12000+140*(t2-(-39));
if t1>(-39) then xr:=140*(t2-t1);
end;
if t2>357 then
begin
if t1=357 then xr:=282000+140*(t2-357);
if t1>357 then xr:=140*(t2-t1);
end;
if t1<(-39) then
begin
if t2=(-39) then xr:=140*((-39)-t1)+12000;
if t2<(-39) then xr:=140*(t2-t1);
end;
vpsr:= (xr*m)/23200000;
vpbr:= (xr*m)/32200000;
if t1<328 then
begin
if t2>1749 then xs:=130*(328-t1)+25000+130*(1749-328)+855000+130*(t2-1749);
if t2=1749 then xs:=130*(328-t1)+25000+130*(1749-328)+855000;
if t2<1749 then xs:=130*(328-t1)+25000+130*(1749-t2);
if t2=328 then xs:=130*(328-t1)+25000;
if t2<328 then xs:=130*(t2-t1);
end;
if t2>1749 then
begin
if t1=328 then xs:=25000+130*(1749-328)+855000+130*(t2-1749);
if t1>328 then xs:=130*(1749-t1)+855000+130*(t2-1749);
if t1=1749 then xs:=855000+130*(t2-1749);
if t1>1749 then xs:=130*(t2-t1);
end;
if t1>328 then if t2<1749 then xs:=130*(t2-t1);
if t1=328 then
begin
if t2>1749 then xs:=25000+130*(1749-328)+855000+130*(t2-1749);
if t2=1749 then xs:=25000+130*(1749-328)+855000;
if t2<1749 then xs:=25000+130*(t2-328);
end;
if t2=1749 then
begin
if t1<328 then xs:=130*(328-t1)+25000+130*(100-328)+855000;
if t1=328 then xs:=25000+130*(1749-328)+855000;
if t1>328 then xs:=130*(1749-t1)+855000;
end;
if t1>328 then
begin
if t2>1749 then xs:=130*(1749-t1)+855000+130*(t2-1749);
if t2=1749 then xs:=130*(1749-t1)+855000;
if t2<1749 then xs:=130*(t2-t1);
end;
if t2<1749 then
begin
if t1<328 then xs:=130*(328-t1)+25000+130*(t2-328);
if t1=328 then xs:=25000+130*(t2-328);
if t1>328 then xs:=130*(t2-t1);
end;
if t2>1749 then
begin
if t1=1749 then xs:=855000+130*(t2-1749);
if t1>1749 then xs:=130*(t2-t1);
end;
if t1<328 then
begin
if t2=328 then xs:=130*(328-t1)+25000;
if t2<328 then xs:=130*(t2-t1);
end;
vpss:= (xs*m)/23200000;
vpbs:= (xs*m)/32200000;
if t1<1083 then
begin
if t2>2567 then xm:=385*(1083-t1)+213000+385*(2567-1083)+4820000+385*(t2-2567);
if t2=2567 then xm:=385*(1083-t1)+213000+385*(2567-1083)+4820000;
if t2<2567 then xm:=385*(1083-t1)+213000+385*(2567-t2);
if t2=1083 then xm:=385*(1083-t1)+213000;
if t2<1083 then xm:=385*(t2-t1);
end;
if t2>2567 then
begin
if t1=1083 then xm:=213000+385*(2567-1083)+4820000+385*(t2-2567);
if t1>1083 then xm:=385*(2567-t1)+4820000+385*(t2-2567);
if t1=2567 then xm:=4820000+385*(t2-2567);
if t1>2567 then xm:=385*(t2-t1);
end;
if t1>1083 then if t2<2567 then xm:=385*(t2-t1);
if t1=1083 then
begin
if t2>2567 then xm:=213000+385*(2567-1083)+4820000+385*(t2-2567);
if t2=2567 then xm:=213000+385*(2567-1083)+4820000;
if t2<2567 then xm:=213000+385*(t2-1083);
end;
if t2=2567 then
begin
if t1<1083 then xm:=385*(1083-t1)+213000+385*(100-1083)+4820000;
if t1=1083 then xm:=213000+385*(2567-1083)+4820000;
if t1>1083 then xm:=385*(2567-t1)+4820000;
end;
if t1>1083 then
begin
if t2>2567 then xm:=385*(2567-t1)+4820000+385*(t2-2567);
if t2=2567 then xm:=385*(2567-t1)+4820000;
if t2<2567 then xm:=385*(t2-t1);
end;
if t2<2567 then
begin
if t1<1083 then xm:=385*(1083-t1)+213000+385*(t2-1083);
if t1=1083 then xm:=213000+385*(t2-1083);
if t1>1083 then xm:=385*(t2-t1);
end;
if t2>2567 then
begin
if t1=2567 then xm:=4820000+385*(t2-2567);
if t1>2567 then xm:=385*(t2-t1);
end;
if t1<1083 then
begin
if t2=1083 then xm:=385*(1083-t1)+213000;
if t2<1083 then xm:=385*(t2-t1);
end;
vpsm:= (xm*m)/23200000;
vpbm:= (xm*m)/32200000;
if t1<1539 then
begin
if t2>2831 then xz:=449*(1539-t1)+277000+449*(2831-1539)+6120000+449*(t2-2831);
if t2=2831 then xz:=449*(1539-t1)+277000+449*(2831-1539)+6120000;
if t2<2831 then xz:=449*(1539-t1)+277000+449*(2831-t2);
if t2=1539 then xz:=449*(1539-t1)+277000;
if t2<1539 then xz:=449*(t2-t1);
end;
if t2>2831 then
begin
if t1=1539 then xz:=277000+449*(2831-1539)+6120000+449*(t2-2831);
if t1>1539 then xz:=449*(2831-t1)+6120000+449*(t2-2831);
if t1=2831 then xz:=6120000+449*(t2-2831);
if t1>2831 then xz:=449*(t2-t1);
end;
if t1>1539 then if t2<2831 then xz:=449*(t2-t1);
if t1=1539 then
begin
if t2>2831 then xz:=277000+449*(2831-1539)+6120000+449*(t2-2831);
if t2=2831 then xz:=277000+449*(2831-1539)+6120000;
if t2<2831 then xz:=277000+449*(t2-1539);
end;
if t2=2831 then
begin
if t1<1539 then xz:=449*(1539-t1)+277000+449*(100-1539)+6120000;
if t1=1539 then xz:=277000+449*(2831-1539)+6120000;
if t1>1539 then xz:=449*(2831-t1)+6120000;
end;
if t1>1539 then
begin
if t2>2831 then xz:=449*(2831-t1)+6120000+449*(t2-2831);
if t2=2831 then xz:=449*(2831-t1)+6120000;
if t2<2831 then xz:=449*(t2-t1);
end;
if t2<2831 then
begin
if t1<1539 then xz:=449*(1539-t1)+277000+449*(t2-1539);
if t1=1539 then xz:=277000+449*(t2-1539);
if t1>1539 then xz:=449*(t2-t1);
end;
if t2>2831 then
begin
if t1=2831 then xz:=6120000+449*(t2-2831);
if t1>2831 then xz:=449*(t2-t1);
end;
if t1<1539 then
begin
if t2=1539 then xz:=449*(1539-t1)+277000;
if t2<1539 then xz:=449*(t2-t1);
end;
vpsz:= (xz*m)/23200000;
vpbz:= (xz*m)/32200000;
TextBox5.Text:= FloatToStr(vpsv);
TextBox7.Text:= FloatToStr(vpbv);
TextBox6.Text:= FloatToStr(vpsa);
TextBox4.Text:= FloatToStr(vpba);
TextBox11.Text:= FloatToStr(vpsr);
TextBox10.Text:= FloatToStr(vpbr);
TextBox9.Text:= FloatToStr(vpss);
TextBox8.Text:= FloatToStr(vpbs);
TextBox15.Text:= FloatToStr(vpsm);
TextBox14.Text:= FloatToStr(vpbm);
TextBox13.Text:= FloatToStr(vpsz);
TextBox12.Text:= FloatToStr(vpbz);
end;
procedure Form1.button3_Click(sender: Object; e: EventArgs);
begin
TextBox1.Text:='';
TextBox2.Text:='';
TextBox3.Text:='';
TextBox4.Text:='';
TextBox5.Text:='';
TextBox6.Text:='';
TextBox7.Text:='';
TextBox8.Text:='';
TextBox9.Text:='';
TextBox10.Text:='';
TextBox11.Text:='';
TextBox12.Text:='';
TextBox13.Text:='';
TextBox15.Text:='';
TextBox14.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 xv, xa, xr, xs, xm, xz As Double
If t2 > 100 And t1 < 0 Then xv = 2100 * (-t1) + 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
If t2 = 100 And t1 < 0 Then xv = 2100 * (-t1) + 330000 + 420000 + 2260000
If t2 < 100 And t1 < 0 Then xv = 2100 * (-t1) + 330000 + 4200 * (100 - t2)
If t2 = 0 And t1 < 0 Then xv = 2100 * (-t1) + 330000
If t2 < 0 And t1 < 0 Then xv = 2100 * (t2 - t1)
If t1 = 0 And t2 > 100 Then xv = 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
If t1 > 0 And t2 > 100 Then xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
If t1 = 100 And t2 > 100 Then xv = 2260000 + 4200 * (t2 - 100)
If t1 > 100 And t2 > 100 Then xv = 4200 * (t2 - t1)
If t1 > 0 Then If t2 < 100 Then xv = 4200 * (t2 - t1)
If t2 > 100 And t1 = 0 Then xv = 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
If t2 = 100 And t1 = 0 Then xv = 330000 + 420000 + 2260000
If t2 < 100 And t1 = 0 Then xv = 330000 + 4200 * t2
If t1 < 0 And t2 = 100 Then xv = 2100 * (-t1) + 330000 + 420000 + 2260000
If t1 = 0 And t2 = 100 Then xv = 330000 + 420000 + 2260000
If t1 > 0 And t2 = 100 Then xv = 4200 * (100 - t1) + 2260000
If t2 > 100 And t1 > 0 Then xv = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
If t2 = 100 And t1 > 0 Then xv = 4200 * (100 - t1) + 2260000
If t2 < 100 And t1 > 0 Then xv = 4200 * (t2 - t1)
If t1 < 0 And t2 < 100 Then xv = 2100 * (-t1) + 330000 + 4200 * t2
If t1 = 0 And t2 < 100 Then xv = 330000 + 4200 * t2
If t1 > 0 And t2 < 100 Then xv = 4200 * (t2 - t1)
If t1 = 100 And t2 > 100 Then xv = 2260000 + 4200 * (t2 - 100)
If t1 > 100 And t2 > 100 Then xv = 4200 * (t2 - t1)
If t2 = 0 And t1 < 0 Then xv = 2100 * t1 + 330000
If t2 < 0 And t1 < 0 Then xv = 2100 * (t2 - t1)
Dim vpsv As Double = (xv * m) / 23200000
Dim vpbv As Double = (xv * m) / 32200000
If t2 > 2519 And t1 < 660 Then xa = 897 * (660 - t1) + 12957523 + 897 * (t2 - 2519)
If t2 = 2519 And t1 < 660 Then xa = 897 * (660 - t1) + 12957523
If t2 < 2519 And t1 < 660 Then xa = 897 * (660 - t1) + 390000 + 897 * (2519 - t2)
If t2 = 660 And t1 < 660 Then xa = 897 * (660 - t1) + 390000
If t2 < 660 And t1 < 660 Then xa = 897 * (t2 - t1)
If t1 = 660 And t2 > 2519 Then xa = 12957523 + 897 * (t2 - 2519)
If t1 > 660 And t2 > 2519 Then xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
If t1 = 2519 And t2 > 2519 Then xa = 10900000 + 897 * (t2 - 2519)
If t1 > 2519 And t2 > 2519 Then xa = 897 * (t2 - t1)
If t1 > 660 Then If t2 < 2519 Then xa = 897 * (t2 - t1)
If t2 > 2519 And t1 = 660 Then xa = 12957523 + 897 * (t2 - 2519)
If t2 = 2519 And t1 = 660 Then xa = 12957523
If t2 < 2519 And t1 = 660 Then xa = 390000 + 897 * (t2 - 660)
If t1 < 660 And t2 = 2519 Then xa = 897 * (660 - t1) + 12957523
If t1 = 660 And t2 = 2519 Then xa = 12957523
If t1 > 660 And t2 = 2519 Then xa = 897 * (2519 - t1) + 10900000
If t2 > 2519 And t1 > 660 Then xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
If t2 = 2519 And t1 > 660 Then xa = 897 * (2519 - t1) + 10900000
If t2 < 2519 And t1 > 660 Then xa = 897 * (t2 - t1)
If t1 < 660 And t2 < 2519 Then xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
If t1 = 660 And t2 < 2519 Then xa = 10900000 + 897 * (t2 - 2519)
If t1 > 660 And t2 < 2519 Then xa = 897 * (t2 - t1)
If t1 = 2519 And t2 > 2519 Then xa = 10900000 + 897 * (t2 - 2519)
If t1 > 2519 And t2 > 2519 Then xa = 897 * (t2 - t1)
If t2 = 660 And t1 < 660 Then xa = 897 * (660 - t1) + 390000
If t2 < 660 And t1 < 660 Then xa = 897 * (t2 - t1)
Dim vpsa As Double = (xa * m) / 23200000
Dim vpba As Double = (xa * m) / 32200000
If t2 > 357 And t1 < (-39) Then xr = 140 * ((-39) - t1) + 349440 + 140 * (t2 - 357)
If t2 = 357 And t1 < (-39) Then xr = 140 * ((-39) - t1) + 349440
If t2 < 357 And t1 < (-39) Then xr = 140 * ((-39) - t1) + 12000 + 140 * (357 - t2)
If t2 = (-39) And t1 < (-39) Then xr = 140 * ((-39) - t1) + 12000
If t2 < (-39) And t1 < (-39) Then xr = 140 * (t2 - t1)
If t1 = (-39) And t2 > 357 Then xr = 349440 + 140 * (t2 - 357)
If t1 > (-39) And t2 > 357 Then xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
If t1 = 357 And t2 > 357 Then xr = 282000 + 140 * (t2 - 357)
If t1 > 357 And t2 > 357 Then xr = 140 * (t2 - t1)
If t1 > (-39) Then If t2 < 357 Then xr = 140 * (t2 - t1)
If t2 > 357 And t1 = (-39) Then xr = 349440 + 140 * (t2 - 357)
If t2 = 357 And t1 = (-39) Then xr = 349440
If t2 < 357 And t1 = (-39) Then xr = 12000 + 140 * (t2 - (-39))
If t1 < (-39) And t2 = 357 Then xr = 140 * ((-39) - t1) + 349440
If t1 = (-39) And t2 = 357 Then xr = 349440
If t1 > (-39) And t2 = 357 Then xr = 140 * (357 - t1) + 282000
If t2 > 357 And t1 > (-39) Then xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
If t2 = 357 And t1 > (-39) Then xr = 140 * (357 - t1) + 282000
If t2 < 357 And t1 > (-39) Then xr = 140 * (t2 - t1)
If t1 < (-39) And t2 < 357 Then xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
If t1 = (-39) And t2 < 357 Then xr = 282000 + 140 * (t2 - 357)
If t1 > (-39) And t2 < 357 Then xr = 140 * (t2 - t1)
If t1 = 357 And t2 > 357 Then xr = 282000 + 140 * (t2 - 357)
If t1 > 357 And t2 > 357 Then xr = 140 * (t2 - t1)
If t2 = (-39) And t1 < (-39) Then xr = 140 * ((-39) - t1) + 12000
If t2 < (-39) And t1 < (-39) Then xr = 140 * (t2 - t1)
Dim vpsr As Double = (xr * m) / 23200000
Dim vpbr As Double = (xr * m) / 32200000
If t2 > 1749 And t1 < 328 Then xs = 130 * (328 - t1) + 1064730 + 130 * (t2 - 1749)
If t2 = 1749 And t1 < 328 Then xs = 130 * (328 - t1) + 1064730
If t2 < 1749 And t1 < 328 Then xs = 130 * (328 - t1) + 25000 + 130 * (1749 - t2)
If t2 = 328 And t1 < 328 Then xs = 130 * (328 - t1) + 25000
If t2 < 328 And t1 < 328 Then xs = 130 * (t2 - t1)
If t1 = 328 And t2 > 1749 Then xs = 1064730 + 130 * (t2 - 1749)
If t1 > 328 And t2 > 1749 Then xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
If t1 = 1749 And t2 > 1749 Then xs = 855000 + 130 * (t2 - 1749)
If t1 > 1749 And t2 > 1749 Then xs = 130 * (t2 - t1)
If t1 > 328 Then If t2 < 1749 Then xs = 130 * (t2 - t1)
If t2 > 1749 And t1 = 328 Then xs = 1064730 + 130 * (t2 - 1749)
If t2 = 1749 And t1 = 328 Then xs = 1064730
If t2 < 1749 And t1 = 328 Then xs = 25000 + 130 * (t2 - 328)
If t1 < 328 And t2 = 1749 Then xs = 130 * (328 - t1) + 1064730
If t1 = 328 And t2 = 1749 Then xs = 1064730
If t1 > 328 And t2 = 1749 Then xs = 130 * (1749 - t1) + 855000
If t2 > 1749 And t1 > 328 Then xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
If t2 = 1749 And t1 > 328 Then xs = 130 * (1749 - t1) + 855000
If t2 < 1749 And t1 > 328 Then xs = 130 * (t2 - t1)
If t1 < 328 And t2 < 1749 Then xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
If t1 = 328 And t2 < 1749 Then xs = 25000 + 130 * (t2 - 328)
If t1 > 328 And t2 < 1749 Then xs = 130 * (t2 - t1)
If t1 = 1749 And t2 > 1749 Then xs = 855000 + 130 * (t2 - 1749)
If t1 > 1749 And t2 > 1749 Then xs = 130 * (t2 - t1)
If t2 = 328 And t1 < 328 Then xs = 130 * (328 - t1) + 25000
If t2 < 328 And t1 < 328 Then xs = 130 * (t2 - t1)
Dim vpss As Double = (xs * m) / 23200000
Dim vpbs As Double = (xs * m) / 32200000
If t2 > 2567 And t1 < 1083 Then xm = 385 * (1083 - t1) + 5604340 + 385 * (t2 - 2567)
If t2 = 2567 And t1 < 1083 Then xm = 385 * (1083 - t1) + 5604340
If t2 < 2567 And t1 < 1083 Then xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2)
If t2 = 1083 And t1 < 1083 Then xm = 385 * (1083 - t1) + 213000
If t2 < 1083 And t1 < 1083 Then xm = 385 * (t2 - t1)
If t1 = 1083 And t2 > 2567 Then xm = 5604340 + 385 * (t2 - 2567)
If t1 > 1083 And t2 > 2567 Then xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
If t1 = 2567 And t2 > 2567 Then xm = 4820000 + 385 * (t2 - 2567)
If t1 > 2567 And t2 > 2567 Then xm = 385 * (t2 - t1)
If t1 > 1083 Then If t2 < 2567 Then xm = 385 * (t2 - t1)
If t2 > 2567 And t1 = 1083 Then xm = 5604340 + 385 * (t2 - 2567)
If t2 = 2567 And t1 = 1083 Then xm = 5604340
If t2 < 2567 And t1 = 1083 Then xm = 213000 + 385 * (t2 - 1083)
If t1 < 1083 And t2 = 2567 Then xm = 385 * (1083 - t1) + 5604340
If t1 = 1083 And t2 = 2567 Then xm = 5604340
If t1 > 1083 And t2 = 2567 Then xm = 385 * (2567 - t1) + 4820000
If t2 > 2567 And t1 > 1083 Then xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
If t2 = 2567 And t1 > 1083 Then xm = 385 * (2567 - t1) + 4820000
If t2 < 2567 And t1 > 1083 Then xm = 385 * (t2 - t1)
If t1 < 1083 And t2 < 2567 Then xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
If t1 = 1083 And t2 < 2567 Then xm = 213000 + 385 * (t2 - 1083)
If t1 > 1083 And t2 < 2567 Then xm = 385 * (t2 - t1)
If t1 = 2567 And t2 > 2567 Then xm = 4820000 + 385 * (t2 - 2567)
If t1 > 2567 And t2 > 2567 Then xm = 385 * (t2 - t1)
If t2 = 1083 And t1 < 1083 Then xm = 385 * (1083 - t1) + 213000
If t2 < 1083 And t1 < 1083 Then xm = 385 * (t2 - t1)
Dim vpsm As Double = (xm * m) / 23200000
Dim vpbm As Double = (xm * m) / 32200000
If t2 > 2567 And t1 < 1539 Then xz = 449 * (1539 - t1) + 6990578 + 449 * (t2 - 2567)
If t2 = 2567 And t1 < 1539 Then xz = 449 * (1539 - t1) + 6990578
If t2 < 2567 And t1 < 1539 Then xz = 449 * (1539 - t1) + 277000 + 449 * (2567 - t2)
If t2 = 1539 And t1 < 1539 Then xz = 449 * (1539 - t1) + 277000
If t2 < 1539 And t1 < 1539 Then xz = 449 * (t2 - t1)
If t1 = 1539 And t2 > 2567 Then xz = 6990578 + 449 * (t2 - 2567)
If t1 > 1539 And t2 > 2567 Then xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
If t1 = 2567 And t2 > 2567 Then xz = 6120000 + 449 * (t2 - 2567)
If t1 > 2567 And t2 > 2567 Then xz = 449 * (t2 - t1)
If t1 > 1539 Then If t2 < 2567 Then xz = 449 * (t2 - t1)
If t2 > 2567 And t1 = 1539 Then xz = 6990578 + 449 * (t2 - 2567)
If t2 = 2567 And t1 = 1539 Then xz = 6990578
If t2 < 2567 And t1 = 1539 Then xz = 277000 + 449 * (t2 - 1539)
If t1 < 1539 And t2 = 2567 Then xz = 449 * (1539 - t1) + 6990578
If t1 = 1539 And t2 = 2567 Then xz = 6990578
If t1 > 1539 And t2 = 2567 Then xz = 449 * (2567 - t1) + 6120000
If t2 > 2567 And t1 > 1539 Then xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
If t2 = 2567 And t1 > 1539 Then xz = 449 * (2567 - t1) + 6120000
If t2 < 2567 And t1 > 1539 Then xz = 449 * (t2 - t1)
If t1 < 1539 And t2 < 2567 Then xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
If t1 = 1539 And t2 < 2567 Then xz = 277000 + 449 * (t2 - 1539)
If t1 > 1539 And t2 < 2567 Then xz = 449 * (t2 - t1)
If t1 = 2567 And t2 > 2567 Then xz = 6120000 + 449 * (t2 - 2567)
If t1 > 2567 And t2 > 2567 Then xz = 449 * (t2 - t1)
If t2 = 1539 And t1 < 1539 Then xz = 449 * (1539 - t1) + 277000
If t2 < 1539 And t1 < 1539 Then xz = 449 * (t2 - t1)
Dim vpsz As Double = (xz * m) / 23200000
Dim vpbz As Double = (xz * m) / 32200000
TextBox5.Text = Convert.ToString(vpsv)
TextBox7.Text = Convert.ToString(vpbv)
TextBox6.Text = Convert.ToString(vpsa)
TextBox4.Text = Convert.ToString(vpba)
TextBox8.Text = Convert.ToString(vpbr)
TextBox9.Text = Convert.ToString(vpsr)
TextBox10.Text = Convert.ToString(vpbs)
TextBox11.Text = Convert.ToString(vpss)
TextBox12.Text = Convert.ToString(vpbm)
TextBox13.Text = Convert.ToString(vpsm)
TextBox14.Text = Convert.ToString(vpbz)
TextBox15.Text = Convert.ToString(vpsz)
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 = ""
TextBox6.Text = ""
TextBox4.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
Розв’язування задачі в Python
Код
Код
from tkinter import *
def click ():
t1 = float (entry1.get())
t2 = float (entry2.get())
m = float (entry3.get())
if t2 > 100 and t1 < 0 : xv = 2100*(0-t1)+330000+4200*(100-0)+2260000+4200*(t2-100)
if t2 == 100 and t1 < 0 : xv = 2100*(0-t1)+330000+4200*(100-0)+2260000
if t2 < 100 and t1 < 0 : xv = 2100*(0-t1)+330000+4200*(100-t2)
if t2 == 0 and t1 < 0 : xv = 2100*(0-t1)+330000
if t2 < 0 and t1 < 0 : xv = 2100 * (t2 - t1)
if t1 == 0 and t2 > 100 : xv = 330000+4200*(100-0)+2260000+4200*(t2-100)
if t1 > 0 and t2 > 100 : xv = 4200*(100-t1)+2260000+4200*(t2-100)
if t1 == 100 and t2 > 100 : xv = 2260000+4200*(t2-100)
if t1 > 100 and t2 > 100 : xv = 4200 * (t2 - t1)
if t1 > 0 and t2 < 100 : xv = 4200 * (t2 - t1)
if t2 > 100 and t1 == 0 : xv = 330000+4200*(100-0)+2260000+4200*(t2-100)
if t2 == 100 and t1 == 0 : xv = 330000+4200*(100-0)+2260000
if t2 < 100 and t1 == 0 : xv = 330000+4200*(t2-0)
if t1 < 0 and t2 == 100 : xv = 2100*(0-t1)+330000+4200*(100-0)+2260000
if t1 == 0 and t2 == 100 : xv = 330000+4200*(100-0)+2260000
if t1 > 0 and t2 == 100 : xv = 4200*(100-t1)+2260000
if t2 > 100 and t1 > 0 : xv = 4200*(100-t1)+2260000+4200*(t2-100)
if t2 == 100 and t1 > 0 : xv = 4200*(100-t1)+2260000
if t2 < 100 and t1 > 0 : xv = 4200 * (t2 - t1)
if t1 < 0 and t2 < 100 : xv = 2100*(0-t1)+330000+4200*(t2-0)
if t1 == 0 and t2 < 100 : xv = 330000+4200*(t2-0)
if t1 > 0 and t2 < 100 : xv = 4200 * (t2 - t1)
if t1 == 100 and t2 > 100 : xv = 2260000+4200*(t2-100)
if t1 > 100 and t2 > 100 : xv = 4200 * (t2 - t1)
if t2 == 0 and t1 < 0 : xv = 2100*(0-t1)+330000
if t2 < 0 and t1 < 0 : xv = 2100 * (t2 - t1)
vpsv = (xv * m) / 23200000
vpbv = (xv * m) / 32200000
if t2 > 2519 and t1 < 660 : xa = 897 * (660 - t1) + 12957523 + 897 * (t2 - 2519)
if t2 == 2519 and t1 < 660 : xa = 897 * (660 - t1) + 12957523
if t2 < 2519 and t1 < 660 : xa = 897 * (660 - t1) + 390000 + 897 * (2519 - t2)
if t2 == 660 and t1 < 660 : xa = 897 * (660 - t1) + 390000
if t2 < 660 and t1 < 660 : xa = 897 * (t2 - t1)
if t1 == 660 and t2 > 2519 : xa = 12957523 + 897 * (t2 - 2519)
if t1 > 660 and t2 > 2519 : xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
if t1 == 2519 and t2 > 2519 : xa = 10900000 + 897 * (t2 - 2519)
if t1 > 2519 and t2 > 2519 : xa = 897 * (t2 - t1)
if t1 > 660 and t2 < 2519 : xa = 897 * (t2 - t1)
if t2 > 2519 and t1 == 660 : xa = 12957523 + 897 * (t2 - 2519)
if t2 == 2519 and t1 == 660 : xa = 12957523
if t2 < 2519 and t1 == 660 : xa = 390000 + 897 * (t2 - 660)
if t1 < 660 and t2 == 2519 : xa = 897 * (660 - t1) + 12957523
if t1 == 660 and t2 == 2519 : xa = 12957523
if t1 > 660 and t2 == 2519 : xa = 897 * (2519 - t1) + 10900000
if t2 > 2519 and t1 > 660 : xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
if t2 == 2519 and t1 > 660 : xa = 897 * (2519 - t1) + 10900000
if t2 < 2519 and t1 > 660 : xa = 897 * (t2 - t1)
if t1 < 660 and t2 < 2519 : xa = 897 * (2519 - t1) + 10900000 + 897 * (t2 - 2519)
if t1 == 660 and t2 < 2519 : xa = 10900000 + 897 * (t2 - 2519)
if t1 > 660 and t2 < 2519 : xa = 897 * (t2 - t1)
if t1 == 2519 and t2 > 2519 : xa = 10900000 + 897 * (t2 - 2519)
if t1 > 2519 and t2 > 2519 : xa = 897 * (t2 - t1)
if t2 == 660 and t1 < 660 : xa = 897 * (660 - t1) + 390000
if t2 < 660 and t1 < 660 : xa = 897 * (t2 - t1)
vpsa = (xa * m) / 23200000
vpba = (xa * m) / 32200000
if t2 > 357 and t1 < (-39) : xr = 140 * ((-39) - t1) + 349440 + 140 * (t2 - 357)
if t2 == 357 and t1 < (-39) : xr = 140 * ((-39) - t1) + 349440
if t2 < 357 and t1 < (-39) : xr = 140 * ((-39) - t1) + 12000 + 140 * (357 - t2)
if t2 == (-39) and t1 < (-39) : xr = 140 * ((-39) - t1) + 12000
if t2 < (-39) and t1 < (-39) : xr = 140 * (t2 - t1)
if t1 == (-39) and t2 > 357 : xr = 349440 + 140 * (t2 - 357)
if t1 > (-39) and t2 > 357 : xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
if t1 == 357 and t2 > 357 : xr = 282000 + 140 * (t2 - 357)
if t1 > 357 and t2 > 357 : xr = 140 * (t2 - t1)
if t1 > (-39) and t2 < 357 : xr = 140 * (t2 - t1)
if t2 > 357 and t1 == (-39) : xr = 349440 + 140 * (t2 - 357)
if t2 == 357 and t1 == (-39) : xr = 349440
if t2 < 357 and t1 == (-39) : xr = 12000 + 140 * (t2 - (-39))
if t1 < (-39) and t2 == 357 : xr = 140 * ((-39) - t1) + 349440
if t1 == (-39) and t2 == 357 : xr = 349440
if t1 > (-39) and t2 == 357 : xr = 140 * (357 - t1) + 282000
if t2 > 357 and t1 > (-39) : xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
if t2 == 357 and t1 > (-39) : xr = 140 * (357 - t1) + 282000
if t2 < 357 and t1 > (-39) : xr = 140 * (t2 - t1)
if t1 < (-39) and t2 < 357 : xr = 140 * (357 - t1) + 282000 + 140 * (t2 - 357)
if t1 == (-39) and t2 < 357 : xr = 282000 + 140 * (t2 - 357)
if t1 > (-39) and t2 < 357 : xr = 140 * (t2 - t1)
if t1 == 357 and t2 > 357 : xr = 282000 + 140 * (t2 - 357)
if t1 > 357 and t2 > 357 : xr = 140 * (t2 - t1)
if t2 == (-39) and t1 < (-39) : xr = 140 * ((-39) - t1) + 12000
if t2 < (-39) and t1 < (-39) : xr = 140 * (t2 - t1)
vpsr = (xr * m) / 23200000
vpbr = (xr * m) / 32200000
if t2 > 1749 and t1 < 328 : xs = 130 * (328 - t1) + 1064730 + 130 * (t2 - 1749)
if t2 == 1749 and t1 < 328 : xs = 130 * (328 - t1) + 1064730
if t2 < 1749 and t1 < 328 : xs = 130 * (328 - t1) + 25000 + 130 * (1749 - t2)
if t2 == 328 and t1 < 328 : xs = 130 * (328 - t1) + 25000
if t2 < 328 and t1 < 328 : xs = 130 * (t2 - t1)
if t1 == 328 and t2 > 1749 : xs = 1064730 + 130 * (t2 - 1749)
if t1 > 328 and t2 > 1749 : xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
if t1 == 1749 and t2 > 1749 : xs = 855000 + 130 * (t2 - 1749)
if t1 > 1749 and t2 > 1749 : xs = 130 * (t2 - t1)
if t1 > 328 and t2 < 1749 : xs = 130 * (t2 - t1)
if t2 > 1749 and t1 == 328 : xs = 1064730 + 130 * (t2 - 1749)
if t2 == 1749 and t1 == 328 : xs = 1064730
if t2 < 1749 and t1 == 328 : xs = 25000 + 130 * (t2 - 328)
if t1 < 328 and t2 == 1749 : xs = 130 * (328 - t1) + 1064730
if t1 == 328 and t2 == 1749 : xs = 1064730
if t1 > 328 and t2 == 1749 : xs = 130 * (1749 - t1) + 855000
if t2 > 1749 and t1 > 328 : xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
if t2 == 1749 and t1 > 328 : xs = 130 * (1749 - t1) + 855000
if t2 < 1749 and t1 > 328 : xs = 130 * (t2 - t1)
if t1 < 328 and t2 < 1749 : xs = 130 * (1749 - t1) + 855000 + 130 * (t2 - 1749)
if t1 == 328 and t2 < 1749 : xs = 25000 + 130 * (t2 - 328)
if t1 > 328 and t2 < 1749 : xs = 130 * (t2 - t1)
if t1 == 1749 and t2 > 1749 : xs = 855000 + 130 * (t2 - 1749)
if t1 > 1749 and t2 > 1749 : xs = 130 * (t2 - t1)
if t2 == 328 and t1 < 328 : xs = 130 * (328 - t1) + 25000
if t2 < 328 and t1 < 328 : xs = 130 * (t2 - t1)
vpss = (xs * m) / 23200000
vpbs = (xs * m) / 32200000
if t2 > 2567 and t1 < 1083 : xm = 385 * (1083 - t1) + 5604340 + 385 * (t2 - 2567)
if t2 == 2567 and t1 < 1083 : xm = 385 * (1083 - t1) + 5604340
if t2 < 2567 and t1 < 1083 : xm = 385 * (1083 - t1) + 213000 + 385 * (2567 - t2)
if t2 == 1083 and t1 < 1083 : xm = 385 * (1083 - t1) + 213000
if t2 < 1083 and t1 < 1083 : xm = 385 * (t2 - t1)
if t1 == 1083 and t2 > 2567 : xm = 5604340 + 385 * (t2 - 2567)
if t1 > 1083 and t2 > 2567 : xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
if t1 == 2567 and t2 > 2567 : xm = 4820000 + 385 * (t2 - 2567)
if t1 > 2567 and t2 > 2567 : xm = 385 * (t2 - t1)
if t1 > 1083 and t2 < 2567 : xm = 385 * (t2 - t1)
if t2 > 2567 and t1 == 1083 : xm = 5604340 + 385 * (t2 - 2567)
if t2 == 2567 and t1 == 1083 : xm = 5604340
if t2 < 2567 and t1 == 1083 : xm = 213000 + 385 * (t2 - 1083)
if t1 < 1083 and t2 == 2567 : xm = 385 * (1083 - t1) + 5604340
if t1 == 1083 and t2 == 2567 : xm = 5604340
if t1 > 1083 and t2 == 2567 : xm = 385 * (2567 - t1) + 4820000
if t2 > 2567 and t1 > 1083 : xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
if t2 == 2567 and t1 > 1083 : xm = 385 * (2567 - t1) + 4820000
if t2 < 2567 and t1 > 1083 : xm = 385 * (t2 - t1)
if t1 < 1083 and t2 < 2567 : xm = 385 * (2567 - t1) + 4820000 + 385 * (t2 - 2567)
if t1 == 1083 and t2 < 2567 : xm = 213000 + 385 * (t2 - 1083)
if t1 > 1083 and t2 < 2567 : xm = 385 * (t2 - t1)
if t1 == 2567 and t2 > 2567 : xm = 4820000 + 385 * (t2 - 2567)
if t1 > 2567 and t2 > 2567 : xm = 385 * (t2 - t1)
if t2 == 1083 and t1 < 1083 : xm = 385 * (1083 - t1) + 213000
if t2 < 1083 and t1 < 1083 : xm = 385 * (t2 - t1)
vpsm = (xm * m) / 23200000
vpbm = (xm * m) / 32200000
if t2 > 2567 and t1 < 1539 : xz = 449 * (1539 - t1) + 6990578 + 449 * (t2 - 2567)
if t2 == 2567 and t1 < 1539 : xz = 449 * (1539 - t1) + 6990578
if t2 < 2567 and t1 < 1539 : xz = 449 * (1539 - t1) + 277000 + 449 * (2567 - t2)
if t2 == 1539 and t1 < 1539 : xz = 449 * (1539 - t1) + 277000
if t2 < 1539 and t1 < 1539 : xz = 449 * (t2 - t1)
if t1 == 1539 and t2 > 2567 : xz = 6990578 + 449 * (t2 - 2567)
if t1 > 1539 and t2 > 2567 : xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
if t1 == 2567 and t2 > 2567 : xz = 6120000 + 449 * (t2 - 2567)
if t1 > 2567 and t2 > 2567 : xz = 449 * (t2 - t1)
if t1 > 1539 and t2 < 2567 : xz = 449 * (t2 - t1)
if t2 > 2567 and t1 == 1539 : xz = 6990578 + 449 * (t2 - 2567)
if t2 == 2567 and t1 == 1539 : xz = 6990578
if t2 < 2567 and t1 == 1539 : xz = 277000 + 449 * (t2 - 1539)
if t1 < 1539 and t2 == 2567 : xz = 449 * (1539 - t1) + 6990578
if t1 == 1539 and t2 == 2567 : xz = 6990578
if t1 > 1539 and t2 == 2567 : xz = 449 * (2567 - t1) + 6120000
if t2 > 2567 and t1 > 1539 : xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
if t2 == 2567 and t1 > 1539 : xz = 449 * (2567 - t1) + 6120000
if t2 < 2567 and t1 > 1539 : xz = 449 * (t2 - t1)
if t1 < 1539 and t2 < 2567 : xz = 449 * (2567 - t1) + 6120000 + 449 * (t2 - 2567)
if t1 == 1539 and t2 < 2567 : xz = 277000 + 449 * (t2 - 1539)
if t1 > 1539 and t2 < 2567 : xz = 449 * (t2 - t1)
if t1 == 2567 and t2 > 2567 : xz = 6120000 + 449 * (t2 - 2567)
if t1 > 2567 and t2 > 2567 : xz = 449 * (t2 - t1)
if t2 == 1539 and t1 < 1539 : xz = 449 * (1539 - t1) + 277000
if t2 < 1539 and t1 < 1539 : xz = 449 * (t2 - t1)
vpsz = (xz * m) / 23200000
vpbz = (xz * m) / 32200000
entry4.insert (0,vpsv)
entry5.insert (0,vpbv)
entry6.insert(0, vpsa)
entry7.insert(0, vpba)
entry8.insert(0, vpsr)
entry9.insert(0, vpbr)
entry10.insert(0, vpss)
entry11.insert(0, vpbs)
entry12.insert(0, vpsm)
entry13.insert(0, vpbm)
entry14.insert(0, vpsz)
entry15.insert(0, vpbz)
def click1 ():
entry1.delete(0, END)
entry2.delete(0, END)
entry3.delete(0, END)
entry4.delete(0, END)
entry5.delete(0, END)
entry6.delete(0, END)
entry7.delete(0, END)
entry8.delete(0, END)
entry9.delete(0, END)
entry10.delete(0, END)
entry11.delete(0, END)
entry12.delete(0, END)
entry13.delete(0, END)
entry14.delete(0, END)
entry15.delete(0, END)
root=Tk()
root.title('Речовини')
root.geometry('300x720')
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 = 1)
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)
labe7 = Label (text = 'Об`єм спирту для алюмiнiю (л)')
labe7.pack(pady = 1)
entry6 = Entry ()
entry6.pack (pady = 1)
labe8 = Label (text = 'Об`єм бензину для алюмiнiю (л)')
labe8.pack(pady = 1)
entry7 = Entry ()
entry7.pack (pady = 1)
labe9 = Label (text = 'Об`єм спирту для ртутi (л)')
labe9.pack(pady = 1)
entry8 = Entry ()
entry8.pack (pady = 1)
labe10 = Label (text = 'Об`єм бензину для ртутi (л)')
labe10.pack(pady = 1)
entry9 = Entry ()
entry9.pack (pady = 1)
labe11 = Label (text = 'Об`єм спирту для свинцю (л)')
labe11.pack(pady = 1)
entry10 = Entry ()
entry10.pack (pady = 1)
labe12 = Label (text = 'Об`єм бензину для свинцю (л)')
labe12.pack(pady = 1)
entry11 = Entry ()
entry11.pack (pady = 1)
labe13 = Label (text = 'Об`єм спирту для мiдi (л)')
labe13.pack(pady = 1)
entry12 = Entry ()
entry12.pack (pady = 1)
labe14 = Label (text = 'Об`єм бензину для мiдi (л)')
labe14.pack(pady = 1)
entry13 = Entry ()
entry13.pack (pady = 1)
labe15 = Label (text = 'Об`єм спирту для залiза (л)')
labe15.pack(pady = 1)
entry14 = Entry ()
entry14.pack (pady = 1)
labe16 = Label (text = 'Об`єм бензину для залiза (л)')
labe16.pack(pady = 1)
entry15 = Entry ()
entry15.pack (pady = 1)
Page updated
Google Sites
Report abuse