6. Жердің жасанды серігі мен планеталардың қозғалысы
program JerSerxgx;
uses crt, Graph;
var Gd,Gm,x1,y1:integer;
ax,ay,vx,vy,x,y,t,dt,pi,GMM,M,r:real;
begin
t:=0;dt:=20;GMM:=6.672E-20;M5.97E-24;
x:=7000;y:=0;vx:=0;vy:=10;
Gd:=ega;Gm:=1;InitGraph(Gd,Gm,'');
Circle(320,170,32);
x1:=Round(x/200);y1:=Round(y/200);
repeat
SetColor(0);
Circle(320+x1,170-y1,2);
r:=Sqrt(x*x+y*y);
ax:=GMM*M*x/(r*r*r);ay:=GMM*M*y/(r*r*r);
vx:=(vx+ax*dt);vy:=(vy+ay*dt);
x:=x+vx*dt;y:=y+vy*dt;
x1:=round(x/2000);y1:=round(y/2000);
SetColor(2);
Circle(320+x1,170-y1,2);
delay(5000);t:=t+dt;
until keypressed;
end.
Энергияның сақталу және айналу заңы. пәк
5 т шойынды балқыту пешінде 20°С –ден 1320°С-ге дейін қыз- дырылған. Балқыту пешінің ПӘК 10% болса, онда қанша табиғи газ жұмсалған?
Шойынның С=540 дж/кг.С° Табиғи газдың меншікті жану жылуы
4.4*10 ^7 дж/ кг . QT=C*m(T-T0) ,Q=4.4*10 ^7
Берілгені : M=5000 кг ,T0=20°C ,T1320°C
QT=C*m(T-T0) , QT=540*5000*1300=351*10^7 ,QT=351*10^7; Шойынды 1320°С –ға дейін қыздыру үшін M1=QT/Q m1=80 кг табиғи газ керек. Пештің пайдалы әсер коэффициентті 10 % болғандықтан m=m1*100/P m=800 кг.
Program PAhK;
const c=540;Q=4.4E+7;
Var M,T0,T,P,QT,M1:real;
Begin
Readln(M,T0,T,P);
QT:=C*M*(T-T0); M1:=QT/Q;
M:=M1*100/P;
Writeln(QT:10:1,'':2,M1:2:1,'':2,M:3:1);
End.
Қуаты 2100 а. К. двигатель 6 сағ. 2.4 т мұнай жұмсайды.Двигательдің ПӘК қандай ?
N=2100 а.к. 2100*736 вт η=Aпайд/Aтол
T=6сағ. 6*3600 сек Aпайд=N*T
M=2.4 т 2400 кг Aтол=q*M
Q=4.4*10^7 дж/кг 4.4E+7 дж/кг η= N*T / q*M
η =(2100*736*6*3600)/( 4.4E+7*2400); η=0.32 ЖАУАБЫ : η=0.32
Program Quat;
const Q=4.4E+7;
Var N,T,M,AP,AT,H:real;
Begin
Readln(N,T,M);
AP:=N*T; AT:=Q*M;
H:= 100*( N*T)/(Q*M);
Writeln(AP:10:1,'':2,AT:12:1,'':2,H:3:2);
Readln;
End.
Достарыңызбен бөлісу: |
