Речовина - вода (лід)
Речовина - вода (лід)
Embedded Files
Реалізація в Pascal ABC.NET
Реалізація в Pascal ABC.NET
program mf;
Uses CRT;
label y;
var x,vr,m,t1,t2,vps,vpb:real;
begin
TextColor (02);
y: writeln (' УМОВА');
writeln ('Скiльки лiтрiв палива треба, щоб нагрiти ');
writeln ('воду(лiд) в iнтервалi певних температур.');
TextColor (03);
write ('Початкова Температура (в CI) = ');
readln(t1);
write ('Кiнцева Температура (в CI) = ');
readln(t2);
write ('Маса води (льоду)(кг) = ');
readln(m);
if t1<0 then
begin
if t2>100 then x:=2100*(0-t1)+330000+4200*(100-0)+2260000+4200*(t2-100);
if t2=100 then x:=2100*(0-t1)+330000+4200*(100-0)+2260000;
if t2<100 then x:=2100*(0-t1)+330000+4200*(100-t2);
if t2=0 then x:=2100*(0-t1)+330000;
if t2<0 then x:=2100*(t2-t1);
end;
if t2>100 then
begin
if t1=0 then x:=330000+4200*(100-0)+2260000+4200*(t2-100);
if t1>0 then x:=4200*(100-t1)+2260000+4200*(t2-100);
if t1=100 then x:=2260000+4200*(t2-100);
if t1>100 then x:=4200*(t2-t1);
end;
if t1>0 then if t2<100 then x:=4200*(t2-t1);
if t1=0 then
begin
if t2>100 then x:=330000+4200*(100-0)+2260000+4200*(t2-100);
if t2=100 then x:=330000+4200*(100-0)+2260000;
if t2<100 then x:=330000+4200*(t2-0);
end;
if t2=100 then
begin
if t1<0 then x:=2100*(0-t1)+330000+4200*(100-0)+2260000;
if t1=0 then x:=330000+4200*(100-0)+2260000;
if t1>0 then x:=4200*(100-t1)+2260000;
end;
if t1>0 then
begin
if t2>100 then x:=4200*(100-t1)+2260000+4200*(t2-100);
if t2=100 then x:=4200*(100-t1)+2260000;
if t2<100 then x:=4200*(t2-t1);
end;
if t2<100 then
begin
if t1<0 then x:=2100*(0-t1)+330000+4200*(t2-0);
if t1=0 then x:=330000+4200*(t2-0);
if t1>0 then x:=4200*(t2-t1);
end;
if t2>100 then
begin
if t1=100 then x:=2260000+4200*(t2-100);
if t1>100 then x:=4200*(t2-t1);
end;
if t1<0 then
begin
if t2=0 then x:=2100*(0-t1)+330000;
if t2<0 then x:=2100*(t2-t1);
end;
vps:= (x*m)/23200000;
vpb:= (x*m)/32200000;
TextColor (02);
writeln ('Об`єм спирту (л) = ',vps);
writeln ('Об`єм бензину (л) = ',vpb);
readln;
clrscr;
goto y;
end.
Реалізація в C
Реалізація в C
#include <stdio.h>
int main(void)
{
float t1,t2,m,vpb,vps,x;
printf (" “¬®ў \n‘Єi«мЄЁ «iваiў Ї «Ёў вॡ , й®Ў ЈаiвЁ \nў®¤г («i¤) ў iвҐаў «i ЇҐўЁе ⥬ЇҐа вга.\n \n");
printf ( "Џ®з вЄ®ў ⥬ЇҐа вга (ў CI) = ");
scanf("%f", &t1);
printf ( "Љi楢 ⥬ЇҐа вга (ў CI) = ");
scanf("%f", &t2);
printf ( "Њ б ў®¤Ё («м®¤г)(ЄЈ) = ");
scanf("%f", &m);
if (t2 > 100 & t1 < 0)
x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 < 0)
x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000;
if (t2 < 100 & t1 < 0)
x = 2100 * (0 - t1) + 330000 + 4200 * (100 - t2);
if (t2 == 0 & t1 < 0)
x = 2100 * (0 - t1) + 330000;
if (t2 < 0 & t1 < 0)
x = 2100 * (t2 - t1);
if (t1 == 0 & t2 > 100)
x = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t1 > 0 & t2 > 100)
x = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100);
if (t1 == 100 & t2 > 100)
x = 2260000 + 4200 * (t2 - 100);
if (t1 > 100 & t2 > 100)
x = 4200 * (t2 - t1);
if (t1 > 0)
if (t2 < 100)
x = 4200 * (t2 - t1);
if (t2 > 100 & t1 == 0)
x = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 == 0)
x = 330000 + 4200 * (100 - 0) + 2260000;
if (t2 < 100 & t1 == 0)
x = 330000 + 4200 * (t2 - 0);
if (t1 < 0 & t2 == 100)
x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000;
if (t1 == 0 & t2 == 100)
x = 330000 + 4200 * (100 - 0) + 2260000;
if (t1 > 0 & t2 == 100)
x = 4200 * (100 - t1) + 2260000;
if (t2 > 100 & t1 > 0)
x = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 > 0)
x = 4200 * (100 - t1) + 2260000;
if (t2 < 100 & t1 > 0)
x = 4200 * (t2 - t1);
if (t1 < 0 & t2 < 100)
x = 2100 * (0 - t1) + 330000 + 4200 * (t2 - 0);
if (t1 == 0 & t2 < 100)
x = 330000 + 4200 * (t2 - 0);
if (t1 > 0 & t2 < 100)
x = 4200 * (t2 - t1);
if (t1 == 100 & t2 > 100)
x = 2260000 + 4200 * (t2 - 100);
if (t1 > 100 & t2 > 100)
x = 4200 * (t2 - t1);
if (t2 == 0 & t1 < 0)
x = 2100 * (0 - t1) + 330000;
if (t2 < 0 & t1 < 0)
x = 2100 * (t2 - t1);
vps = (x * m) / 23200000;
vpb = (x * m) / 32200000;
printf ("\nЋЎ©Ґ¬ бЇЁавг («) = %f", vps);
printf ("\nЋЎ©Ґ¬ ЎҐ§Ёг («) = %f", vpb);
scanf("\n");
return 0;
}
Реалізація в Qbasic
Реалізація в Qbasic
l: CLS
PRINT " “¬®ў "
' УМОВА
PRINT "‘Єi«мЄЁ «iваiў Ї «Ёў вॡ , й®Ў ЈаiвЁ"
PRINT "ў®¤г («i¤) ў iвҐаў «i ЇҐўЁе ⥬ЇҐа вга."
'Скiльки лiтрiв палива треба, щоб нагрiти
'воду (лід) в iнтервалi певних температур.
INPUT "Џ®з вЄ®ў ⥬ЇҐа вга (ў CI) = ", t1
'Початкова Температура (в Цельсiях)
INPUT "Љi楢 ⥬ЇҐа вга (ў CI) = ", t2
'Кiнцева Температура (в Цельсiях)
INPUT "Њ б ў®¤Ё («м®¤г) (ЄЈ) = ", m
'Маса води (льоду)(кг) ='
IF t2 > 100 AND t1 < 0 THEN x = 2100 * (-t1) + 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
IF t2 = 100 AND t1 < 0 THEN x = 2100 * (-t1) + 330000 + 420000 + 2260000
IF t2 < 100 AND t1 < 0 THEN x = 2100 * (-t1) + 330000 + 4200 * (100 - t2)
IF t2 = 0 AND t1 < 0 THEN x = 2100 * (-t1) + 330000
IF t2 < 0 AND t1 < 0 THEN x = 2100 * (t2 - t1)
IF t1 = 0 AND t2 > 100 THEN x = 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
IF t1 > 0 AND t2 > 100 THEN x = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
IF t1 = 100 AND t2 > 100 THEN x = 2260000 + 4200 * (t2 - 100)
IF t1 > 100 AND t2 > 100 THEN x = 4200 * (t2 - t1)
IF t1 > 0 THEN IF t2 < 100 THEN x = 4200 * (t2 - t1)
IF t2 > 100 AND t1 = 0 THEN x = 330000 + 420000 + 2260000 + 4200 * (t2 - 100)
IF t2 = 100 AND t1 = 0 THEN x = 330000 + 420000 + 2260000
IF t2 < 100 AND t1 = 0 THEN x = 330000 + 4200 * t2
IF t1 < 0 AND t2 = 100 THEN x = 2100 * (-t1) + 330000 + 420000 + 2260000
IF t1 = 0 AND t2 = 100 THEN x = 330000 + 420000 + 2260000
IF t1 > 0 AND t2 = 100 THEN x = 4200 * (100 - t1) + 2260000
IF t2 > 100 AND t1 > 0 THEN x = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
IF t2 = 100 AND t1 > 0 THEN x = 4200 * (100 - t1) + 2260000
IF t2 < 100 AND t1 > 0 THEN x = 4200 * (t2 - t1)
IF t1 < 0 AND t2 < 100 THEN x = 2100 * (-t1) + 330000 + 4200 * t2
IF t1 = 0 AND t2 < 100 THEN x = 330000 + 4200 * t2
IF t1 > 0 AND t2 < 100 THEN x = 4200 * (t2 - t1)
IF t1 = 100 AND t2 > 100 THEN x = 2260000 + 4200 * (t2 - 100)
IF t1 > 100 AND t2 > 100 THEN x = 4200 * (t2 - t1)
IF t2 = 0 AND t1 < 0 THEN x = 2100 * t1 + 330000
IF t2 < 0 AND t1 < 0 THEN x = 2100 * (t2 - t1)
vps = (x * m) / 23200000
vpb = (x * m) / 32200000
PRINT "ЋЎ©Ґ¬ бЇЁавг («) = "; vps
'Обєм спирту (л)
PRINT "ЋЎ©Ґ¬ ЎҐ§Ёг («) = "; vpb
'Обєм бензину (л)
INPUT z
GOTO l
Реалізація в Java
Реалізація в Java
<title>Молекулярна фізика</title>
<body><div align="center">
<b>Скiльки лiтрiв палива треба, щоб нагрiти воду (лід) в iнтервалi певних температур.</b><br><br>
<form name="mfv" action="javascript:mfv()" id="1419313176">
Початкова температура (в Цельсiях) = <input name="mfv_t1" type="text" value=" " size="4">
Кінцева температура (в Цельсiях) = <input name="mfv_t2" type="text" value=" " size="4">
Маса води (льоду) = <input name="mfv_m" type="text" value=" " size="4">
<input type="submit" value="Порахувати">
<input type="reset" value="Reset">
</form>
Опрацювання: <br> <span id="mfv_sol">Введіть коефіцієнти і нажміть "Порахувати"</span>
</div>
<script language="javascript">
function mfv() {
var t1 = document.mfv.mfv_t1.value;
var t2 = document.mfv.mfv_t2.value;
var m = document.mfv.mfv_m.value;
var sol = document.getElementById("mfv_sol");
var x ;
if (t2 > 100 & t1 < 0)
x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 < 0)
x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000;
if (t2 < 100 & t1 < 0)
x = 2100 * (0 - t1) + 330000 + 4200 * (100 - t2);
if (t2 == 0 & t1 < 0)
x = 2100 * (0 - t1) + 330000;
if (t2 < 0 & t1 < 0)
x = 2100 * (t2 - t1);
if (t1 == 0 & t2 > 100)
x = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t1 > 0 & t2 > 100)
x = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100);
if (t1 == 100 & t2 > 100)
x = 2260000 + 4200 * (t2 - 100);
if (t1 > 100 & t2 > 100)
x = 4200 * (t2 - t1);
if (t1 > 0)
if (t2 < 100)
x = 4200 * (t2 - t1);
if (t2 > 100 & t1 == 0)
x = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 == 0)
x = 330000 + 4200 * (100 - 0) + 2260000;
if (t2 < 100 & t1 == 0)
x = 330000 + 4200 * (t2 - 0);
if (t1 < 0 & t2 == 100)
x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000;
if (t1 == 0 & t2 == 100)
x = 330000 + 4200 * (100 - 0) + 2260000;
if (t1 > 0 & t2 == 100)
x = 4200 * (100 - t1) + 2260000;
if (t2 > 100 & t1 > 0)
x = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 > 0)
x = 4200 * (100 - t1) + 2260000;
if (t2 < 100 & t1 > 0)
x = 4200 * (t2 - t1);
if (t1 < 0 & t2 < 100)
x = 2100 * (0 - t1) + 330000 + 4200 * (t2 - 0);
if (t1 == 0 & t2 < 100)
x = 330000 + 4200 * (t2 - 0);
if (t1 > 0 & t2 < 100)
x = 4200 * (t2 - t1);
if (t1 == 100 & t2 > 100)
x = 2260000 + 4200 * (t2 - 100);
if (t1 > 100 & t2 > 100)
x = 4200 * (t2 - t1);
if (t2 == 0 & t1 < 0)
x = 2100 * (0 - t1) + 330000;
if (t2 < 0 & t1 < 0)
x = 2100 * (t2 - t1);
vps = (x * m) / 23200000;
vpb = (x * m) / 32200000;
string = "Об`єм спирту (л)= " + vps +"<br>"+ "Об`єм бензину (л)= " + vpb;
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 певних температур. ")
Console.Write("Початкова Температура (в CI) = ")
Dim t1 As Double = Convert.ToDouble(Console.ReadLine())
Console.Write("Кiнцева Температура (в CI) = ")
Dim t2 As Double = Convert.ToDouble(Console.ReadLine())
Console.Write("Маса води (льоду) (кг) = ")
Dim m As Double = Convert.ToDouble(Console.ReadLine())
Dim x As Double
IF t2 > 100 AND t1 < 0 THEN x = 2100*(0-t1)+330000+4200*(100-0)+2260000+4200*(t2-100)
IF t2 = 100 AND t1 < 0 THEN x = 2100*(0-t1)+330000+4200*(100-0)+2260000
IF t2 < 100 AND t1 < 0 THEN x = 2100*(0-t1)+330000+4200*(100-t2)
IF t2 = 0 AND t1 < 0 THEN x = 2100*(0-t1)+330000
IF t2 < 0 AND t1 < 0 THEN x = 2100 * (t2 - t1)
IF t1 = 0 AND t2 > 100 THEN x = 330000+4200*(100-0)+2260000+4200*(t2-100)
IF t1 > 0 AND t2 > 100 THEN x = 4200*(100-t1)+2260000+4200*(t2-100)
IF t1 = 100 AND t2 > 100 THEN x = 2260000+4200*(t2-100)
IF t1 > 100 AND t2 > 100 THEN x = 4200 * (t2 - t1)
IF t1 > 0 THEN IF t2 < 100 THEN x = 4200 * (t2 - t1)
IF t2 > 100 AND t1 = 0 THEN x = 330000+4200*(100-0)+2260000+4200*(t2-100)
IF t2 = 100 AND t1 = 0 THEN x = 330000+4200*(100-0)+2260000
IF t2 < 100 AND t1 = 0 THEN x = 330000+4200*(t2-0)
IF t1 < 0 AND t2 = 100 THEN x = 2100*(0-t1)+330000+4200*(100-0)+2260000
IF t1 = 0 AND t2 = 100 THEN x = 330000+4200*(100-0)+2260000
IF t1 > 0 AND t2 = 100 THEN x = 4200*(100-t1)+2260000
IF t2 > 100 AND t1 > 0 THEN x = 4200*(100-t1)+2260000+4200*(t2-100)
IF t2 = 100 AND t1 > 0 THEN x = 4200*(100-t1)+2260000
IF t2 < 100 AND t1 > 0 THEN x = 4200 * (t2 - t1)
IF t1 < 0 AND t2 < 100 THEN x = 2100*(0-t1)+330000+4200*(t2-0)
IF t1 = 0 AND t2 < 100 THEN x = 330000+4200*(t2-0)
IF t1 > 0 AND t2 < 100 THEN x = 4200 * (t2 - t1)
IF t1 = 100 AND t2 > 100 THEN x = 2260000+4200*(t2-100)
IF t1 > 100 AND t2 > 100 THEN x = 4200 * (t2 - t1)
IF t2 = 0 AND t1 < 0 THEN x = 2100*(0-t1)+330000
IF t2 < 0 AND t1 < 0 THEN x = 2100 * (t2 - t1)
Dim vps As Double = (x * m) / 23200000
Dim vpb As Double = (x * m) / 32200000
Console.WriteLine(" ")
Console.WriteLine("Об`єм спирту (л) = {0} ", vps)
Console.WriteLine("Об`єм бензину (л) = {0} ", vpb)
Console.ReadKey()
End Sub
End Class
Реалізація в Dev-c++
Реалізація в Dev-c++
#include <conio.h>
#include <iostream>
int main(void)
{
double t1,t2,m,vpb,vps,x;
setlocale(LC_ALL, "");
std::cout << " УМОВА \nСкiльки лiтрiв палива треба, щоб нагрiти \nводу(лiд) в iнтервалi певних температур. \n \n";
std::cout << "Початкова Температура (в CI) = ";
std::cin >> t1;
std::cout << "Кiнцева Температура (в CI) = ";
std::cin >> t2;
std::cout << "Маса води (льоду)(кг) = ";
std::cin >> m;
if (t2 > 100 & t1 < 0)
x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 < 0)
x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000;
if (t2 < 100 & t1 < 0)
x = 2100 * (0 - t1) + 330000 + 4200 * (100 - t2);
if (t2 == 0 & t1 < 0)
x = 2100 * (0 - t1) + 330000;
if (t2 < 0 & t1 < 0)
x = 2100 * (t2 - t1);
if (t1 == 0 & t2 > 100)
x = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t1 > 0 & t2 > 100)
x = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100);
if (t1 == 100 & t2 > 100)
x = 2260000 + 4200 * (t2 - 100);
if (t1 > 100 & t2 > 100)
x = 4200 * (t2 - t1);
if (t1 > 0)
if (t2 < 100)
x = 4200 * (t2 - t1);
if (t2 > 100 & t1 == 0)
x = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 == 0)
x = 330000 + 4200 * (100 - 0) + 2260000;
if (t2 < 100 & t1 == 0)
x = 330000 + 4200 * (t2 - 0);
if (t1 < 0 & t2 == 100)
x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000;
if (t1 == 0 & t2 == 100)
x = 330000 + 4200 * (100 - 0) + 2260000;
if (t1 > 0 & t2 == 100)
x = 4200 * (100 - t1) + 2260000;
if (t2 > 100 & t1 > 0)
x = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100);
if (t2 == 100 & t1 > 0)
x = 4200 * (100 - t1) + 2260000;
if (t2 < 100 & t1 > 0)
x = 4200 * (t2 - t1);
if (t1 < 0 & t2 < 100)
x = 2100 * (0 - t1) + 330000 + 4200 * (t2 - 0);
if (t1 == 0 & t2 < 100)
x = 330000 + 4200 * (t2 - 0);
if (t1 > 0 & t2 < 100)
x = 4200 * (t2 - t1);
if (t1 == 100 & t2 > 100)
x = 2260000 + 4200 * (t2 - 100);
if (t1 > 100 & t2 > 100)
x = 4200 * (t2 - t1);
if (t2 == 0 & t1 < 0)
x = 2100 * (0 - t1) + 330000;
if (t2 < 0 & t1 < 0)
x = 2100 * (t2 - t1);
vps = (x * m) / 23200000;
vpb = (x * m) / 32200000;
std::cout << "\nОб`єм спирту (л) = " << vps << "\nОб`єм бензину (л) = " << vpb << std::endl;
getch();
return 0;
}
Реалізація в Python
Реалізація в Python
print (' УМОВА')
print ('Скiльки лiтрiв палива треба, щоб нагрiти')
print ('воду (лiд) в iнтервалi певних температур.')
t1=float(input('Початкова Температура (в Цельсiях) = '))
t2=float(input('Кiнцева Температура (в Цельсiях) = '))
m =float(input('Маса води (льоду) (кг) ='))
print ('')
if t2 > 100 and t1 < 0 : x = 2100*(0-t1)+330000+4200*(100-0)+2260000+4200*(t2-100)
if t2 == 100 and t1 < 0 : x = 2100*(0-t1)+330000+4200*(100-0)+2260000
if t2 < 100 and t1 < 0 : x = 2100*(0-t1)+330000+4200*(100-t2)
if t2 == 0 and t1 < 0 : x = 2100*(0-t1)+330000
if t2 < 0 and t1 < 0 : x = 2100 * (t2 - t1)
if t1 == 0 and t2 > 100 : x = 330000+4200*(100-0)+2260000+4200*(t2-100)
if t1 > 0 and t2 > 100 : x = 4200*(100-t1)+2260000+4200*(t2-100)
if t1 == 100 and t2 > 100 : x = 2260000+4200*(t2-100)
if t1 > 100 and t2 > 100 : x = 4200 * (t2 - t1)
if t1 > 0 and t2 < 100 : x = 4200 * (t2 - t1)
if t2 > 100 and t1 == 0 : x = 330000+4200*(100-0)+2260000+4200*(t2-100)
if t2 == 100 and t1 == 0 : x = 330000+4200*(100-0)+2260000
if t2 < 100 and t1 == 0 : x = 330000+4200*(t2-0)
if t1 < 0 and t2 == 100 : x = 2100*(0-t1)+330000+4200*(100-0)+2260000
if t1 == 0 and t2 == 100 : x = 330000+4200*(100-0)+2260000
if t1 > 0 and t2 == 100 : x = 4200*(100-t1)+2260000
if t2 > 100 and t1 > 0 : x = 4200*(100-t1)+2260000+4200*(t2-100)
if t2 == 100 and t1 > 0 : x = 4200*(100-t1)+2260000
if t2 < 100 and t1 > 0 : x = 4200 * (t2 - t1)
if t1 < 0 and t2 < 100 : x = 2100*(0-t1)+330000+4200*(t2-0)
if t1 == 0 and t2 < 100 : x = 330000+4200*(t2-0)
if t1 > 0 and t2 < 100 : x = 4200 * (t2 - t1)
if t1 == 100 and t2 > 100 : x = 2260000+4200*(t2-100)
if t1 > 100 and t2 > 100 : x = 4200 * (t2 - t1)
if t2 == 0 and t1 < 0 : x = 2100*(0-t1)+330000
if t2 < 0 and t1 < 0 : x = 2100 * (t2 - t1)
vps = (x * m) / 23200000
vpb = (x * m) / 32200000
print ('Об`єм спирту (л) = ', vps)
print ('Об`єм бензину (л) = ', vpb)
input()
Графічні програми
Графічні програми
Реалізація в VB6
Код
Код
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Молекулярна фізика"
ClientHeight = 5055
ClientLeft = 45
ClientTop = 390
ClientWidth = 6495
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5055
ScaleWidth = 6495
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command3
Caption = "СТАРТ"
Height = 495
Left = 3480
TabIndex = 13
Top = 3120
Width = 2415
End
Begin VB.TextBox Text5
Height = 285
Left = 3480
TabIndex = 12
Top = 2400
Width = 2415
End
Begin VB.TextBox Text4
Height = 285
Left = 3480
TabIndex = 10
Top = 1560
Width = 2415
End
Begin VB.TextBox Text3
Height = 285
Left = 720
TabIndex = 8
Top = 3240
Width = 2415
End
Begin VB.TextBox Text2
Height = 285
Left = 720
TabIndex = 6
Top = 2400
Width = 2415
End
Begin VB.TextBox Text1
Height = 285
Left = 720
TabIndex = 4
Top = 1560
Width = 2415
End
Begin VB.CommandButton Command2
Caption = "ВИХІД"
Height = 375
Left = 480
TabIndex = 1
Top = 4440
Width = 5415
End
Begin VB.CommandButton Command1
Caption = "Очистка"
Height = 375
Left = 480
TabIndex = 0
Top = 3840
Width = 5415
End
Begin VB.Label Label7
Caption = "УМОВА"
Height = 255
Left = 2880
TabIndex = 14
Top = 240
Width = 855
End
Begin VB.Label Label6
Caption = "Об'єм бензинy (л) ="
Height = 255
Left = 3480
TabIndex = 11
Top = 2040
Width = 2535
End
Begin VB.Label Label5
Caption = "Об'єм спирту (л) ="
Height = 255
Left = 3480
TabIndex = 9
Top = 1200
Width = 2535
End
Begin VB.Label Label4
Caption = "Маса води (льоду) (кг) ="
Height = 255
Left = 720
TabIndex = 7
Top = 2880
Width = 2535
End
Begin VB.Label Label3
Caption = "Кiнцева Температура (в CI)="
Height = 255
Left = 720
TabIndex = 5
Top = 2040
Width = 2535
End
Begin VB.Label Label2
Caption = "Початкова Температура (в CI)="
Height = 255
Left = 720
TabIndex = 3
Top = 1200
Width = 2535
End
Begin VB.Label Label1
Caption = "Скiльки лiтрiв палива треба, щоб нагрiти воду(лiд) в iнтервалi певних температур."
Height = 255
Left = 120
TabIndex = 2
Top = 480
Width = 6255
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
t1 = Text1.Text
t2 = Text2.Text
m = Text3.Text
If t2 > 100 And t1 < 0 Then x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100)
If t2 = 100 And t1 < 0 Then x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000
If t2 < 100 And t1 < 0 Then x = 2100 * (0 - t1) + 330000 + 4200 * (100 - t2)
If t2 = 0 And t1 < 0 Then x = 2100 * (0 - t1) + 330000
If t2 < 0 And t1 < 0 Then x = 2100 * (t2 - t1)
If t1 = 0 And t2 > 100 Then x = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100)
If t1 > 0 And t2 > 100 Then x = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
If t1 = 100 And t2 > 100 Then x = 2260000 + 4200 * (t2 - 100)
If t1 > 100 And t2 > 100 Then x = 4200 * (t2 - t1)
If t1 > 0 Then If t2 < 100 Then x = 4200 * (t2 - t1)
If t2 > 100 And t1 = 0 Then x = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100)
If t2 = 100 And t1 = 0 Then x = 330000 + 4200 * (100 - 0) + 2260000
If t2 < 100 And t1 = 0 Then x = 330000 + 4200 * (t2 - 0)
If t1 < 0 And t2 = 100 Then x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000
If t1 = 0 And t2 = 100 Then x = 330000 + 4200 * (100 - 0) + 2260000
If t1 > 0 And t2 = 100 Then x = 4200 * (100 - t1) + 2260000
If t2 > 100 And t1 > 0 Then x = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
If t2 = 100 And t1 > 0 Then x = 4200 * (100 - t1) + 2260000
If t2 < 100 And t1 > 0 Then x = 4200 * (t2 - t1)
If t1 < 0 And t2 < 100 Then x = 2100 * (0 - t1) + 330000 + 4200 * (t2 - 0)
If t1 = 0 And t2 < 100 Then x = 330000 + 4200 * (t2 - 0)
If t1 > 0 And t2 < 100 Then x = 4200 * (t2 - t1)
If t1 = 100 And t2 > 100 Then x = 2260000 + 4200 * (t2 - 100)
If t1 > 100 And t2 > 100 Then x = 4200 * (t2 - t1)
If t2 = 0 And t1 < 0 Then x = 2100 * (0 - t1) + 330000
If t2 < 0 And t1 < 0 Then x = 2100 * (t2 - t1)
vps = (m * x) / 23200000
vpb = (m * x) / 32200000
Text4.Text = vps
Text5.Text = vpb
End Sub
Реалізація в Pascal ABC.NET
Частина коду
Частина коду
procedure Form1.button2_Click(sender: Object; e: EventArgs);
begin
Close;
end;
procedure Form1.button1_Click(sender: Object; e: EventArgs);
var x,vr,t1,t2,m,vps,vpb:real;
begin
t1:=StrToFloat(TextBox1.Text);
t2:=StrToFloat(TextBox2.Text);
m:=StrToFloat(TextBox3.Text);
if t1<0 then
begin
if t2>100 then x:=2100*(0-t1)+330000+4200*(100-0)+2260000+4200*(t2-100);
if t2=100 then x:=2100*(0-t1)+330000+4200*(100-0)+2260000;
if t2<100 then x:=2100*(0-t1)+330000+4200*(100-t2);
if t2=0 then x:=2100*(0-t1)+330000;
if t2<0 then x:=2100*(t2-t1);
end;
if t2>100 then
begin
if t1=0 then x:=330000+4200*(100-0)+2260000+4200*(t2-100);
if t1>0 then x:=4200*(100-t1)+2260000+4200*(t2-100);
if t1=100 then x:=2260000+4200*(t2-100);
if t1>100 then x:=4200*(t2-t1);
end;
if t1>0 then if t2<100 then x:=4200*(t2-t1);
if t1=0 then
begin
if t2>100 then x:=330000+4200*(100-0)+2260000+4200*(t2-100);
if t2=100 then x:=330000+4200*(100-0)+2260000;
if t2<100 then x:=330000+4200*(t2-0);
end;
if t2=100 then
begin
if t1<0 then x:=2100*(0-t1)+330000+4200*(100-0)+2260000;
if t1=0 then x:=330000+4200*(100-0)+2260000;
if t1>0 then x:=4200*(100-t1)+2260000;
end;
if t1>0 then
begin
if t2>100 then x:=4200*(100-t1)+2260000+4200*(t2-100);
if t2=100 then x:=4200*(100-t1)+2260000;
if t2<100 then x:=4200*(t2-t1);
end;
if t2<100 then
begin
if t1<0 then x:=2100*(0-t1)+330000+4200*(t2-0);
if t1=0 then x:=330000+4200*(t2-0);
if t1>0 then x:=4200*(t2-t1);
end;
if t2>100 then
begin
if t1=100 then x:=2260000+4200*(t2-100);
if t1>100 then x:=4200*(t2-t1);
end;
if t1<0 then
begin
if t2=0 then x:=2100*(0-t1)+330000;
if t2<0 then x:=2100*(t2-t1);
end;
vps:= (x*m)/23200000;
vpb:= (x*m)/32200000;
TextBox5.Text:= FloatToStr(vps);
TextBox7.Text:= FloatToStr(vpb);
end;
procedure Form1.button3_Click(sender: Object; e: EventArgs);
begin
TextBox1.Text:='';
TextBox2.Text:='';
TextBox3.Text:='';
TextBox5.Text:='';
TextBox7.Text:='';
end;
Реалізація в VB.NET
Код
Код
Public Class Form1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim t1 As Double = Convert.ToDouble(TextBox1.Text)
Dim t2 As Double = Convert.ToDouble(TextBox2.Text)
Dim m As Double = Convert.ToDouble(TextBox3.Text)
Dim x As Double
If t2 > 100 And t1 < 0 Then x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100)
If t2 = 100 And t1 < 0 Then x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000
If t2 < 100 And t1 < 0 Then x = 2100 * (0 - t1) + 330000 + 4200 * (100 - t2)
If t2 = 0 And t1 < 0 Then x = 2100 * (0 - t1) + 330000
If t2 < 0 And t1 < 0 Then x = 2100 * (t2 - t1)
If t1 = 0 And t2 > 100 Then x = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100)
If t1 > 0 And t2 > 100 Then x = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
If t1 = 100 And t2 > 100 Then x = 2260000 + 4200 * (t2 - 100)
If t1 > 100 And t2 > 100 Then x = 4200 * (t2 - t1)
If t1 > 0 Then If t2 < 100 Then x = 4200 * (t2 - t1)
If t2 > 100 And t1 = 0 Then x = 330000 + 4200 * (100 - 0) + 2260000 + 4200 * (t2 - 100)
If t2 = 100 And t1 = 0 Then x = 330000 + 4200 * (100 - 0) + 2260000
If t2 < 100 And t1 = 0 Then x = 330000 + 4200 * (t2 - 0)
If t1 < 0 And t2 = 100 Then x = 2100 * (0 - t1) + 330000 + 4200 * (100 - 0) + 2260000
If t1 = 0 And t2 = 100 Then x = 330000 + 4200 * (100 - 0) + 2260000
If t1 > 0 And t2 = 100 Then x = 4200 * (100 - t1) + 2260000
If t2 > 100 And t1 > 0 Then x = 4200 * (100 - t1) + 2260000 + 4200 * (t2 - 100)
If t2 = 100 And t1 > 0 Then x = 4200 * (100 - t1) + 2260000
If t2 < 100 And t1 > 0 Then x = 4200 * (t2 - t1)
If t1 < 0 And t2 < 100 Then x = 2100 * (0 - t1) + 330000 + 4200 * (t2 - 0)
If t1 = 0 And t2 < 100 Then x = 330000 + 4200 * (t2 - 0)
If t1 > 0 And t2 < 100 Then x = 4200 * (t2 - t1)
If t1 = 100 And t2 > 100 Then x = 2260000 + 4200 * (t2 - 100)
If t1 > 100 And t2 > 100 Then x = 4200 * (t2 - t1)
If t2 = 0 And t1 < 0 Then x = 2100 * (0 - t1) + 330000
If t2 < 0 And t1 < 0 Then x = 2100 * (t2 - t1)
Dim vps As Double = (m * x) / 23200000
Dim vpb As Double = (m * x) / 32200000
TextBox5.Text = Convert.ToString(vps)
TextBox7.Text = Convert.ToString(vpb)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox7.Text = ""
TextBox5.Text = ""
End Sub
End Class
Реалізація в Python
Код
Код
from tkinter import *
def click ():
t1 = float (entry1.get())
t2 = float (entry2.get())
m = float (entry3.get())
if t2 > 100 and t1 < 0 : x = 2100*(0-t1)+330000+4200*(100-0)+2260000+4200*(t2-100)
if t2 == 100 and t1 < 0 : x = 2100*(0-t1)+330000+4200*(100-0)+2260000
if t2 < 100 and t1 < 0 : x = 2100*(0-t1)+330000+4200*(100-t2)
if t2 == 0 and t1 < 0 : x = 2100*(0-t1)+330000
if t2 < 0 and t1 < 0 : x = 2100 * (t2 - t1)
if t1 == 0 and t2 > 100 : x = 330000+4200*(100-0)+2260000+4200*(t2-100)
if t1 > 0 and t2 > 100 : x = 4200*(100-t1)+2260000+4200*(t2-100)
if t1 == 100 and t2 > 100 : x = 2260000+4200*(t2-100)
if t1 > 100 and t2 > 100 : x = 4200 * (t2 - t1)
if t1 > 0 and t2 < 100 : x = 4200 * (t2 - t1)
if t2 > 100 and t1 == 0 : x = 330000+4200*(100-0)+2260000+4200*(t2-100)
if t2 == 100 and t1 == 0 : x = 330000+4200*(100-0)+2260000
if t2 < 100 and t1 == 0 : x = 330000+4200*(t2-0)
if t1 < 0 and t2 == 100 : x = 2100*(0-t1)+330000+4200*(100-0)+2260000
if t1 == 0 and t2 == 100 : x = 330000+4200*(100-0)+2260000
if t1 > 0 and t2 == 100 : x = 4200*(100-t1)+2260000
if t2 > 100 and t1 > 0 : x = 4200*(100-t1)+2260000+4200*(t2-100)
if t2 == 100 and t1 > 0 : x = 4200*(100-t1)+2260000
if t2 < 100 and t1 > 0 : x = 4200 * (t2 - t1)
if t1 < 0 and t2 < 100 : x = 2100*(0-t1)+330000+4200*(t2-0)
if t1 == 0 and t2 < 100 : x = 330000+4200*(t2-0)
if t1 > 0 and t2 < 100 : x = 4200 * (t2 - t1)
if t1 == 100 and t2 > 100 : x = 2260000+4200*(t2-100)
if t1 > 100 and t2 > 100 : x = 4200 * (t2 - t1)
if t2 == 0 and t1 < 0 : x = 2100*(0-t1)+330000
if t2 < 0 and t1 < 0 : x = 2100 * (t2 - t1)
vps = (x * m) / 23200000
vpb = (x * m) / 32200000
entry4.insert (0,vps)
entry5.insert (0,vpb)
def click1 ():
entry1.delete(0, END)
entry2.delete(0, END)
entry3.delete(0, END)
entry4.delete(0, END)
entry5.delete(0, END)
root=Tk()
root.title('Вода (лід)')
root.geometry('300x400')
label = Label (text = 'УМОВА \n Скiльки лiтрiв палива треба, щоб нагрiти \n воду (лiд) в iнтервалi певних температур. ')
label.pack(pady = 10)
labe2 = Label (text = 'Початкова Температура (в Цельсiях)')
labe2.pack(pady = 1)
entry1 = Entry ()
entry1.pack (pady = 1)
labe3 = Label (text = 'Кiнцева Температура (в Цельсiях)')
labe3.pack(pady = 1)
entry2 = Entry ()
entry2.pack (pady = 1)
labe4 = Label (text = 'Маса води (льоду) (кг)')
labe4.pack(pady = 1)
entry3 = Entry ()
entry3.pack (pady = 1)
button = Button (text='Старт', command=click)
button.pack (pady = 10)
button = Button (text='Очистка', command=click1)
button.pack (pady = 1)
labe5 = Label (text = 'Об`єм спирту (л)')
labe5.pack(pady = 1)
entry4 = Entry ()
entry4.pack (pady = 1)
labe6 = Label (text = 'Об`єм бензину (л)')
labe6.pack(pady = 1)
entry5 = Entry ()
entry5.pack (pady = 1)
Page updated
Google Sites
Report abuse